(673)  S'inscrire

Français
Forum

Verstehe es pas

 

Gary12345

KompilierenMarqueSéparation
cls
declare IEStartPage$, IESecurityRiskPage$, IEExtensionsOffPage$, IELocalPage$, IEStartPage2$
declare IESearchPage$, IEDefault_Secondary_Page_URL$, IEProxyEnable$, IEProxyOverride$
declare IEProxyServer$, IEAutoConfigURL$, Driveletter$, IEVers$, Skype$, FireFox$, FlashPlayer$, Opera$, OperaVersion$, Chrome$, ChromeVersion$
declare Textdatei$
Driveletter$ = GetEnv$("SYSTEMDRIVE")
set("decimals", 2)
Set("Errorlevel", -1)
IEStartPage$ = ReadIni$("HKEY_1", "Software\Microsoft\Internet Explorer\Main", "Start Page")
IESecurityRiskPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Security Risk Page")
IEExtensionsOffPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Extensions Off Page")
IELocalPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Local Page")
IEStartPage2$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Start Page")
IESearchPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Search Page")
IEDefault_Secondary_Page_URL$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Default_Secondary_Page_URL")
IEProxyEnable$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
IEProxyOverride$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride")
IEProxyServer$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
IEAutoConfigURL$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "AutoConfigURL")
IEVers$ = ReadINI$("HKEY_2","SOFTWARE\Microsoft\Internet Explorer","Version")
Skype$ = ReadINI$("HKEY_1","Software\Skype\Phone\UI","StatsSentVersion")
FireFox$ = ReadINI$("HKEY_2","Software\Mozilla\Mozilla Firefox", "CurrentVersion")
FlashPlayer$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayer","CurrentVersion")
Opera$ = ReadINI$("HKEY_1","Software\Opera Software","Last Install Path") + "opera.exe"
OperaVersion$ = Resource.HoleResourceInfo(Opera$, "ProductVersion")
Chrome$ = ReadIni$("HKEY_1","SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome","InstallLocation") + "\Chrome.exe"
ChromeVersion$ = Resource.HoleResourceInfo(Chrome$, "ProductVersion")
Set("Errorlevel", 0)
Textdatei$ = "files.txt"
Struct MEMORYSTATUSEX = \
dwLength&,\
dwMemoryLoad&,\
ullTotalPhysLow&,\
ullTotalPhysHi&,\
ullAvailPhysLow&,\
ullAvailPhysHi&,\
ullTotalPageFileLow&,\
ullTotalPageFileHi&,\
ullAvailPageFileLow&,\
ullAvailPageFileHi&,\
ullTotalVirtualLow&,\
ullTotalVirtualHi&,\
ullAvailVirtualLow&,\
ullAvailVirtualHi&,\
ullAvailExtendedVirtualLow&,\
ullAvailExtendedVirtualHi&
Var Memory# = New(MEMORYSTATUSEX)
Memory#.dwLength& = SizeOf(Memory#)
Externe("Kernel32.dll","GlobalMemoryStatusEx",Memory#)
Var TotalMem! = 0
Var AvailMem! = 0
Var PagefileMem! = 0
Var APagefileMem! = 0
cls
Totalmem! = Memory#.ullTotalPhysLow&
cas Memory#.ullTotalPhysLow& < 0: TotalMem! =  Memory#.ullTotalPhysLow& + (2^32)
TotalMem! = (Memory#.ullTotalPhysHi& * (2^32)) + TotalMem!
Availmem! = Memory#.ullAvailPhysLow&
cas Memory#.ullAvailPhysLow& < 0: AvailMem! =  Memory#.ullAvailPhysLow& + (2^32)
AvailMem! = (Memory#.ullAvailPhysHi& * (2^32)) + AvailMem!
PagefileMem! = Memory#.ullTotalPageFileLow&
cas Memory#.ullTotalPageFileLow& < 0: PageFileMem! =  Memory#.ullTotalPageFileLow& + (2^32)
PageFileMem! = (Memory#.ullTotalPageFileHi& * (2^32)) + PageFileMem!
APagefileMem! = Memory#.ullAvailPageFileLow&
cas Memory#.ullAvailPageFileLow& < 0: APageFileMem! =  Memory#.ullAvailPageFileLow& + (2^32)
APageFileMem! = (Memory#.ullAvailPageFileHi& * (2^32)) + APageFileMem!
Assign #1,Textdatei$
Rewrite #1
imprimer #1, "DiskSize => " + str$(Round(DiskSize(Driveletter$)/1024/1024/1024, 2)) + "GB"
Imprimer #1, Format $("#####.00 MB TotalMemory",(TotalMem!) / 1024^2)
Imprimer #1, Format $("#####.00 MB currently available memory",(AvailMem!) / 1024^2)
Imprimer #1, Format $("#####.00 MB used memory",(TotalMem!-AvailMem!) / 1024^2)
Imprimer #1, Format $("#####.00 MB Pagefile total",PageFileMem! / 1024^2)
Imprimer #1, Format $("#####.00 MB Pagefile free",APageFileMem! / 1024^2)
Imprimer #1, Format $("#####.00 MB Pagefile used",(PageFileMem!-APageFileMem!) / 1024^2)
Imprimer #1, Format $("##### % used memory",(Memory#.dwMemoryLoad&))
imprimer #1, »
imprimer #1, "=======================IE SETTINGS======================="
imprimer #1, »
imprimer #1, "IE - [HKCU\Software\Microsoft\Internet Explorer\Main, StartPage] = "+ IEStartPage$
imprimer #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyEnable] = " + IEProxyEnable$
imprimer #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyOverride] = " + IEProxyOverride$
imprimer #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyServer] = " + IEProxyServer$
imprimer #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, AutoConfigURL] = " + IEAutoConfigURL$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Security Risk le chasseur] = " + IESecurityRiskPage$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Extensions Off le chasseur] = " + IEExtensionsOffPage$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Local le chasseur] = " + IELocalPage$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Start le chasseur] = " + IEStartPage2$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Search le chasseur] = " + IESearchPage$
imprimer #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Default_Secondary_Page_URL] = " + IEDefault_Secondary_Page_URL$
imprimer #1, »
imprimer #1, "===============UPDATECHECKER================="
imprimer #1, »
imprimer #1, "InternetExplorer Version => " + IEVers$
imprimer #1, "FireFox Version => " + FireFox$
imprimer #1, "Opera Version => " + OperaVersion$
imprimer #1, "Chrome Version => " + ChromeVersion$
imprimer #1, "FlashPlayer Version => " + FlashPlayer$
imprimer #1, "Skype Version => " + Skype$
close #1
ShellExec(Textdatei$,"open",1)
var ende% = 0

tandis que ende% = 0

    waitinput

Endwhile

si je ihn simple so ausfürhe avec Xprofan gehts sans Probleme, comme exe Dossier gibts mais Probleme. wohin liegt qui faute?
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Andreas
Miethe

Versuch's la fois avec

Set("Errorlevel", 0)
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
09.06.2013  ▲
 




Gary12345
j'ai doch

Set("Errorlevel", -1)
CODE
Set("Errorlevel", 0)

??
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Andreas
Miethe

Gary12345 (09.06.13)
j'ai doch

Set("Errorlevel", -1)
CODE
Set("Errorlevel", 0)

??


plan pas.
 
XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
09.06.2013  ▲
 




Gary12345

KompilierenMarqueSéparation
Set("Errorlevel", -1)
IEStartPage$ = ReadIni$("HKEY_1", "Software\Microsoft\Internet Explorer\Main", "Start Page")
IESecurityRiskPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Security Risk Page")
IEExtensionsOffPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Extensions Off Page")
IELocalPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Local Page")
IEStartPage2$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Start Page")
IESearchPage$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Search Page")
IEDefault_Secondary_Page_URL$ = ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Internet Explorer\Main", "Default_Secondary_Page_URL")
IEProxyEnable$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
IEProxyOverride$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride")
IEProxyServer$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
IEAutoConfigURL$ = ReadIni$("HKEY_1", "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "AutoConfigURL")
IEVers$ = ReadINI$("HKEY_2","SOFTWARE\Microsoft\Internet Explorer","Version")
Skype$ = ReadINI$("HKEY_1","Software\Skype\Phone\UI","StatsSentVersion")
FireFox$ = ReadINI$("HKEY_2","Software\Mozilla\Mozilla Firefox", "CurrentVersion")
FlashPlayer$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayer","CurrentVersion")
Opera$ = ReadINI$("HKEY_1","Software\Opera Software","Last Install Path") + "opera.exe"
OperaVersion$ = Resource.HoleResourceInfo(Opera$, "ProductVersion")
Chrome$ = ReadIni$("HKEY_1","SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome","InstallLocation") + "\Chrome.exe"
ChromeVersion$ = Resource.HoleResourceInfo(Chrome$, "ProductVersion")
Set("Errorlevel", 0)

ou bien quoi meinst Du?
 
MfG
Gary12345
09.06.2013  ▲
 




Andreas
Miethe

là mets Du oui encore den Errorlevel sur -1. Setz den sur 0.
 
XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
09.06.2013  ▲
 




Gary12345
maintenant gehts! Verstehe seulement pas wieso :/
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Gary12345
avez son une Besipielcode, avec dem on Prozesse auflisten peux? Alle vorhandenen Quellcodes sommes älter et aller chez X2 pas!
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Julian
Schmidt
bien sûr
KompilierenMarqueSéparation
Def CreateToolhelp32Snapshot(2) !"Kernel32", "CreateToolhelp32Snapshot"
Def Process32First(2) !"Kernel32", "Process32First"
Def Process32Next(2) !"Kernel32", "Process32Next"
Def CloseHandle(1) !"Kernel32", "CloseHandle"
Def GetCurrentProcessID(0) !"Kernel32", "GetCurrentProcessId"

Proc FillProcessList

    Paramètres grid&
    Déclarer Entry#,err&,handle&,cpid&,text$,text2$,i%
    Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
    Faible Entry#,PROCESSENTRY32
    Entry#.dwSize& = SizeOf(Entry#)
    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    Si handle&

        err& = Process32First(handle&, Entry#)

        Si err&

            Repeat

                err& = Process32Next(handle&, Entry#)

                Si err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    DeleteString(grid&,i%)
                    InsertString(grid&,i%,text2$+"|"+text$)
                    i%=i%+1

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

    Dispose Entry#

ENDPROC

cls
var gbox&=Créer("GridBox", %hwnd, "Prozessname;0;200;PID;0;100; Prioität; 0; 150", 0, 0, 0, width(%hwnd), height(%hwnd))
MoveListToHandle(gbox&)
FillProcessList(gbox&)

tandis que 1

    sleep 1000
    casenot getfocus(gbox&) : FillProcessList(gbox&)

Endwhile
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
09.06.2013  ▲
 




Gary12345
faute dans qui Struktur- ou bien Klassendefinition: DWSIZE&,: la ligne 9

Wasn là à l'attaque? et je veux qui s'il te plaît nich dans ner liste avons, am Besten dans einem Textdokument, Julian!
Besten Dank!
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Gary12345
maintenant gehts! je exposition maintenant pour ner Possibilité cet dans ne textdatei trop unterbringen!
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 




Gary12345

KompilierenMarqueSéparation
Def CreateToolhelp32Snapshot(2) !"Kernel32", "CreateToolhelp32Snapshot"
Def Process32First(2) !"Kernel32", "Process32First"
Def Process32Next(2) !"Kernel32", "Process32Next"
Def CloseHandle(1) !"Kernel32", "CloseHandle"
Def GetCurrentProcessID(0) !"Kernel32", "GetCurrentProcessId"

Proc FillProcessList

    Paramètres grid&
    Déclarer Entry#,err&,handle&,cpid&,text$,text2$,i%
    Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
    Faible Entry#,PROCESSENTRY32
    Entry#.dwSize& = SizeOf(Entry#)
    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    Si handle&

        err& = Process32First(handle&, Entry#)

        Si err&

            Repeat

                err& = Process32Next(handle&, Entry#)

                Si err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    DeleteString(grid&,i%)
                    InsertString(grid&,i%,text2$+"|"+text$)
                    i%=i%+1

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

    Dispose Entry#

ENDPROC

cls
var gbox&=Créer("GridBox", %hwnd, "Prozessname;0;200;PID;0;100; Prioität; 0; 150", 0, 0, 0, width(%hwnd), height(%hwnd))
MoveListToHandle(gbox&)
FillProcessList(gbox&)
var Dossier1$ = "Files2.txt"
var k% = 0

tandis que 1

    Assign #1, Dossier1$
    Rewrite #1
    imprimer #1, getString$(gbox&, k%)\
    k% = k% + 1
    Fermer #1
    ShellExec(Dossier1$, "open", 1)
    casenot getfocus(gbox&) : FillProcessList(gbox&)

Endwhile

Hab déjà Ewigkeiten nich plus XPROFAN geproggt. comment allez cela richtig? quoi sollte je en supplément lesen?
 
XProfan X2
MfG
Gary12345
09.06.2013  ▲
 



►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

30.247 Views

Untitledvor 0 min.
Georg Teles01.07.2018
ByteAttack03.10.2015
Jochen Roxlau14.04.2015
GDL01.04.2015
plus...

Themeninformationen

cet Thema hat 4 participant:

Gary12345 (19x)
Julian Schmidt (7x)
Andreas Miethe (4x)
RGH (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie