Deutsch
Forum

Verstehe es nicht

 

Gary12345

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#)
External("Kernel32.dll","GlobalMemoryStatusEx",Memory#)
Var TotalMem! = 0
Var AvailMem! = 0
Var PagefileMem! = 0
Var APagefileMem! = 0
cls
Totalmem! = Memory#.ullTotalPhysLow&
case Memory#.ullTotalPhysLow& < 0: TotalMem! =  Memory#.ullTotalPhysLow& + (2^32)
TotalMem! = (Memory#.ullTotalPhysHi& * (2^32)) + TotalMem!
Availmem! = Memory#.ullAvailPhysLow&
case Memory#.ullAvailPhysLow& < 0: AvailMem! =  Memory#.ullAvailPhysLow& + (2^32)
AvailMem! = (Memory#.ullAvailPhysHi& * (2^32)) + AvailMem!
PagefileMem! = Memory#.ullTotalPageFileLow&
case Memory#.ullTotalPageFileLow& < 0: PageFileMem! =  Memory#.ullTotalPageFileLow& + (2^32)
PageFileMem! = (Memory#.ullTotalPageFileHi& * (2^32)) + PageFileMem!
APagefileMem! = Memory#.ullAvailPageFileLow&
case Memory#.ullAvailPageFileLow& < 0: APageFileMem! =  Memory#.ullAvailPageFileLow& + (2^32)
APageFileMem! = (Memory#.ullAvailPageFileHi& * (2^32)) + APageFileMem!
Assign #1,Textdatei$
Rewrite #1
print #1, "DiskSize => " + str$(Round(DiskSize(Driveletter$)/1024/1024/1024, 2)) + "GB"
Print #1, Format$("#####.00 MB TotalMemory",(TotalMem!) / 1024^2)
Print #1, Format$("#####.00 MB currently available memory",(AvailMem!) / 1024^2)
Print #1, Format$("#####.00 MB used memory",(TotalMem!-AvailMem!) / 1024^2)
Print #1, Format$("#####.00 MB Pagefile total",PageFileMem! / 1024^2)
Print #1, Format$("#####.00 MB Pagefile free",APageFileMem! / 1024^2)
Print #1, Format$("#####.00 MB Pagefile used",(PageFileMem!-APageFileMem!) / 1024^2)
Print #1, Format$("##### % used memory",(Memory#.dwMemoryLoad&))
print #1, ""
print #1, "=======================IE SETTINGS======================="
print #1, ""
print #1, "IE - [HKCU\Software\Microsoft\Internet Explorer\Main, StartPage] = "+ IEStartPage$
print #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyEnable] = " + IEProxyEnable$
print #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyOverride] = " + IEProxyOverride$
print #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyServer] = " + IEProxyServer$
print #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, AutoConfigURL] = " + IEAutoConfigURL$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Security Risk Page] = " + IESecurityRiskPage$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Extensions Off Page] = " + IEExtensionsOffPage$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Local Page] = " + IELocalPage$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Start Page] = " + IEStartPage2$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Search Page] = " + IESearchPage$
print #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Default_Secondary_Page_URL] = " + IEDefault_Secondary_Page_URL$
print #1, ""
print #1, "===============UPDATECHECKER================="
print #1, ""
print #1, "InternetExplorer Version => " + IEVers$
print #1, "FireFox Version => " + FireFox$
print #1, "Opera Version => " + OperaVersion$
print #1, "Chrome Version => " + ChromeVersion$
print #1, "FlashPlayer Version => " + FlashPlayer$
print #1, "Skype Version => " + Skype$
close #1
ShellExec(Textdatei$,"open",1)
var ende% = 0

while ende% = 0

    waitinput

EndWhile


Wenn ich ihn einfach so ausfürhe mit Xprofan gehts ohne Probleme, als exe Datei gibts aber Probleme. Wo liegt der Fehler?
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Andreas
Miethe


Versuch's mal mit

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
Ich habe doch

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

??
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Andreas
Miethe


Gary12345 (09.06.13)
Ich habe doch

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

??


Eben nicht.
 
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

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)

Oder was meinst Du?
 
MfG
Gary12345
09.06.2013  
 




Andreas
Miethe


Da setzt Du ja schon wieder den Errorlevel auf -1. Setz den auf 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
Jetzt gehts! Verstehe nur nicht wieso :/
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Gary12345
Habt Ihr einen Besipielcode, mit dem man Prozesse auflisten kann? Alle vorhandenen Quellcodes sind älter und gehen bei X2 nicht!
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Julian
Schmidt
Klar
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

    Parameters grid&
    Declare Entry#,err&,handle&,cpid&,text$,text2$,i%
    Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
    Dim Entry#,PROCESSENTRY32
    Entry#.dwSize& = SizeOf(Entry#)
    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            Repeat

                err& = Process32Next(handle&, Entry#)

                If 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&=Create("GridBox", %hwnd, "Prozessname;0;200;PID;0;100; Prioität; 0; 150", 0, 0, 0, width(%hwnd), height(%hwnd))
MoveListToHandle(gbox&)
FillProcessList(gbox&)

while 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
Fehler in der Struktur- oder Klassendefinition: DWSIZE&,: Zeile 9

Wasn da los? Und ich will die bitte nich in ner liste haben, am Besten in einem Textdokument, Julian!
Besten Dank!
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Gary12345
Jetzt gehts! Ich schau jetzt nach ner Möglichkeit diese in ne textdatei zu unterbringen!
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Gary12345

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

    Parameters grid&
    Declare Entry#,err&,handle&,cpid&,text$,text2$,i%
    Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
    Dim Entry#,PROCESSENTRY32
    Entry#.dwSize& = SizeOf(Entry#)
    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            Repeat

                err& = Process32Next(handle&, Entry#)

                If 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&=Create("GridBox", %hwnd, "Prozessname;0;200;PID;0;100; Prioität; 0; 150", 0, 0, 0, width(%hwnd), height(%hwnd))
MoveListToHandle(gbox&)
FillProcessList(gbox&)
var Datei1$ = "Files2.txt"
var k% = 0

while 1

    Assign #1, Datei1$
    Rewrite #1
    print #1, getString$(gbox&, k%)\
    k% = k% + 1
    Close #1
    ShellExec(Datei1$, "open", 1)
    casenot getfocus(gbox&) : FillProcessList(gbox&)

Endwhile


Hab schon Ewigkeiten nich mehr XPROFAN geproggt. Wie geht das richtig? Was sollte ich dazu lesen?
 
XProfan X2
MfG
Gary12345
09.06.2013  
 




Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

28.958 Betrachtungen

Unbenanntvor 0 min.
Georg Teles01.07.2018
ByteAttack03.10.2015
Jochen Roxlau14.04.2015
GDL01.04.2015
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie