XProfan

- Seite 2 -

Gary12345

Von wem sind all diese Codes?

XProfan X2
MfG
Gary12345

11.06.2013 ▲

Gary12345

Eine Frage:

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")

Warum liest es diese Werte nicht aus?

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"IE5_UA_Backup_Flag"="5.0"
"User Agent"="Mozilla/4.0 (compatible; MSIE 8.0; Win32)"
"EmailName"="User@"
"PrivDiscUiShown"=dword:00000001
"EnableHttp1_1"=dword:00000001
"WarnOnIntranet"=dword:00000001
"MimeExclusionListForCache"="multipart/mixed multipart/x-mixed-replace multipart/x-byteranges "
"AutoConfigProxy"="wininet.dll"
"UseSchannelDirectly"=hex:01,00,00,00
"WarnOnPost"=hex:01,00,00,00
"UrlEncoding"=dword:00000000
"SecureProtocols"=dword:000000a0
"PrivacyAdvanced"=dword:00000000
"ZonesSecurityUpgrade"=hex:00,ad,7c,cd,f2,27,ce,01
"DisableCachingOfSSLPages"=dword:00000000
"WarnonZoneCrossing"=dword:00000000
"CertificateRevocation"=dword:00000001
"EnableNegotiate"=dword:00000001
"MigrateProxy"=dword:00000001
"ProxyEnable"=dword:00000000
"GlobalUserOffline"=dword:00000000

XProfan X2
MfG
Gary12345

11.06.2013 ▲

Julian
Schmidt

Die Einträge existieren bei mir alle bis auf ProxyEnable nicht.

Musst dir die Werte voranderes in der Registry zusammensuchen.

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

11.06.2013 ▲

Gary12345

Das machen:

-Regsitry Datei exportieren

1. Öffne Notepad
2. Kopiere folgenden Text in Notepad:

regedit /e %USERPROFILE%\Desktop\look.txt "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

3. Klicke auf speichern unter - speichere es unter Julian.bat und öffne es
4. Am Desktop erscheint eine look.txt - bitte kopiere den Inhalt der Datei in den Thread

Weiteres Problem:

Print #1, "ServicePack: " + Readini$("HKEY_2","SYSTEM\CurrentControlSet\Control\Windows","CSDVersion") + ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")

Ich versuche mit diesem Code das ServicePack auslesen. Der Wert exitiert auch (Datentyp REG_SZ). Warum kann das Xprofan nicht auslesen?

Beweis:

-Regsitry Datei exportieren

1. Öffne Notepad
2. Kopiere folgenden Text in Notepad:

regedit /e %USERPROFILE%\Desktop\look.txt"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"

3. Klicke auf speichern unter - speichere es unter Julian.bat und öffne es
4. Am Desktop erscheint eine look.txt - bitte kopiere den Inhalt der Datei in den Thread

XProfan X2
MfG
Gary12345

Julian
Schmidt

Hab dir mal meine Registry-Exports per PM geschickt.

Den Eintrag "SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion" bekomm ich mit den normalen XProfan auch nicht ausgelesen.
Mit FreeProfan64 klappt es allerdings.

Print ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
waitinput

- Seite 3 -

Gary12345

cls
 $H windows.ph
window 0,0-100,150
windowtitle "LISTER BY GARY12345"
windowstyle 32
print "Please wait 10-15 seconds!"
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"
DEF EnumPrinters(7) ! "WINSPOOL.DRV","EnumPrintersA"
DEF GetStandardPrinter(0) Substr$(ReadIni$("WIN.INI","Windows","Device"),1,",")
DEF &PRINTER_ENUM_LOCAL 2
DEF &PRINTER_ENUM_DEFAULT 1
Def GetDrives(2) !"KERNEL32","GetLogicalDriveStringsA"
declare anzlw%
declare lwa$[26,26]
Declare Entry#,err&,handle&,cpid&,text$,text2$
Struct PROCESSENTRY32=dwSize&,cntUsage&,th32ProcessID&,th32DefaultHeapID&,th32ModuleID&,Threads&,th32ParentProcessID&,pcPriClassBase&,dwFlags&,szExeFile$(260)
Dim Entry#,PROCESSENTRY32
Entry#.dwSize& = SizeOf(Entry#)
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 Java$, Java2$, FlashPlayer2$, IEPlugins$, DHCP$, NameServer$, Domain$, UserStylesheet$, MyStyleSheet$, SecurityProviders$
declare Textdatei$, LocalSecurityA$, LocalSecurityA2$, Windows$, FlashPlayer3$, FlashPlayer4$

Proc WindowsSprache

    Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
    Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
    Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
    Declare LangID&, UserlangID&,dll&,Lang#
    dll& = Usedll("kernel32.dll")
    Dim lang#,50
    LangID& = GetSystemDefaultLangID(0)
    VerLanguageName(langID&,lang#,40)
    Return string$(lang#,0)
    Dispose lang#
    freedll dll&

EndProc

Proc EnumPrinterss

    Declare Printername&,Portname&,PrinterName$,PortName$,Attribs&,PrinterValues#
    Declare X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Dim PrinterValues#,dwNeeded&
    Clear PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    While X& < dwReturned&*20

        Printername& = Long(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Long(PrinterValues#,x&+8)

        If Attribs& & $4

            Printername$ = Printername$ + " => Standardprinter"

        endif

        Print #1,  " - " + Printername$
        X& = X& + 20

    EndWhile

    Dispose PrinterValues#

Endproc

proc DZLWcount

    declare a#,lwa%
    dim a#,80
    let anzlw%=0
    let lwa%=0
    GetDrives(80,a#)

    while 1

        let lwa$[anzlw%]=string$(a#,lwa%)
        lwa%=lwa%+4
        casenot len(lwa$[anzlw%]):break
        inc anzlw%

    endwhile

    dispose a#

endproc

Proc FillProcessList

    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            text$=Str$(Entry#.th32ProcessID&)
            text2$=Entry#.szExeFile$
            Print #1, "PID: " + text$ + "| Processname: " + text2$

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    Print #1, "PID:" + text$ + "| Processname: " + text2$
                    Sleep 100

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

EndProc

Driveletter$ = GetEnv$("SYSTEMDRIVE")
set("decimals", 2)
Set("Errorlevel", 0)
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","SVCVersion")
Skype$ = ReadINI$("HKEY_1","Software\Skype\Phone\UI","StatsSentVersion")
FireFox$ = ReadINI$("HKEY_2","Software\Mozilla\Mozilla Firefox", "CurrentVersion")
FlashPlayer$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia","Version")
FlashPlayer3$ = ReadIni$("HKEY_2", "SOFTWARE\Macromedia\FlashPlayerActiveX", "Version")
FlashPlayer2$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayerPlugin","Version")
FlashPlayer4$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayer","CurrentVersion")
Java$ = ReadIni$("HKEY_0", "Installer\Products\4EA42A62D9304AC4784BF238120771FF", "ProductName")
Java2$ = ReadIni$("HKEY_2", "SOFTWARE\JavaSoft\Java Runtime Environment", "Java7FamilyVersion")
IEPlugins$ = ReadIni$("HKEY_2", "software\microsoft\internet explorer\plugins\Extension", "Location")
DHCP$ = ReadIni$("HKEY_2", "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "DhcpNameServer")
NameServer$ = ReadIni$("HKEY_2", "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NameServer")
Domain$ = ReadIni$("HKEY_2", "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Domain")
UserStylesheet$ = ReadIni$("HKEY_1", "Software\Microsoft\Internet Explorer\Styles", "User Stylesheet")
MyStyleSheet$ = ReadIni$("HKEY_1", "Software\Microsoft\Internet Explorer\Styles", "Use My Stylesheet")
SecurityProviders$ = ReadIni$("HKEY_2", "SYSTEM\CurrentControlSet\Control\SecurityProviders", "SecurityProviders")
LocalSecurityA$ = ReadIni$("HKEY_2", "system\currentcontrolset\control\lsa", "Authentication Packages")
LocalSecurityA2$ = ReadIni$("HKEY_2", "system\currentcontrolset\control\lsa", "Notification Packages")
Windows$ = ReadIni$("HKEY_2", "SYSTEM\CurrentControlSet\Control\Session Manager\SubSystems", "Windows")
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
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, "Lister Version 0.0.43 | created by GARY12345 | " + Date$(0) + " " + @dt("getTime", 2)
print #1, "ProgramFiles: " + GetEnv$("PROGRAMFILES") + "| Windows: " + GetEnv$("WINDIR") + "| Userprofile: " + GetEnv$("USERPROFILE") + "| Driveletter: " + GetEnv$("HOMEDRIVE")
print #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, "=============SYSTEMINFO==============="
print #1, ""
Print #1, "Processor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0","ProcessorNameString")
Print #1, ""
Print #1, "BaseBoard producer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardManufacturer")
Print #1, "BaseBoard Product: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardProduct")
Print #1, "BaseBoard Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardVersion")
Print #1, ""
Print #1, "Bios Vendor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVendor")
Print #1, "Bios release date: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSReleaseDate")
Print #1, "Bios Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVersion")
Print #1, ""
Print #1, "System-Family: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemFamily")
Print #1, "System Manufacturer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemManufacturer")
Print #1, "System productname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemProductName")
Print #1, "System SKU: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemSKU")
Print #1, "System Version: " + $WinVer
Print #1, ""
Print #1, "Windows Version: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
Print #1, "ServicePack: " + Readini$("HKEY_2","SYSTEM\CurrentControlSet\Control\Windows","CSDVersion") + ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Print #1, "Windows Product-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
Print #1, "Windows Language: " + WindowsSprache()
print #1, ""
Print #1, "Installed printers: "
Print #1, ""
EnumPrinterss()
Print #1, ""
Print #1, "Standard-printer: " + GetStandardPrinter()
Print #1, ""
Print #1, "DRIVES: "
var show%=0
dzlwcount

whilenot show%=anzlw%

    print #1, " - " + lwa$[show%]
    inc show%

endwhile

print #1, ""
print #1, "=======================PROCESSES========================="
print #1, ""
FillProcessList
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, "IE Plugins - [HKLM\software\microsoft\internet explorer\plugins\Extension, Location] = " + IEPlugins$
print #1, ""
print #1, "===============Transmission Control Protocol================="
print #1, ""
print #1, "DHCP - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters, DhcpNameServer] = " + DHCP$
print #1, "NameServer - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters, NameServer] = " + NameServer$
print #1, "Domain - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters, Domain] = " + Domain$
print #1, ""
print #1, "=================User Style Sheet============"
print #1, ""
print #1, "UserStyleSheet - [HKCU\Software\Microsoft\Internet Explorer\Styles, User Stylesheet] = " + UserStylesheet$
print #1, "MyStyleSheet - [HKCU\Software\Microsoft\Internet Explorer\Styles, Use My Stylesheet] = " + MyStyleSheet$
print #1, ""
print #1, "===============Security Providers============"
print #1, ""
print #1, "SP - [HKLM\SYSTEM\CurrentControlSet\Control\SecurityProviders, SecurityProviders] = " + SecurityProviders$
print #1, ""
print #1, "===============Local Security Authority=============="
print #1, ""
print #1, "LSA - [HKLM\system\currentcontrolset\control\lsa, Authentication Packages] = " + LocalSecurityA$
print #1, "LSA - [HKLM\system\currentcontrolset\control\lsa, Notification Packages] = " + LocalSecurityA2$
print #1, ""
print #1, "===============SubSystems Windows value============="
print #1, ""
print #1, "SWV - [HKLM\\SYSTEM\CurrentControlSet\Control\Session Manager\SubSystems, Windows] = " + Windows$
print #1, ""
print #1, "===============UPDATECHECKER================="
print #1, ""
print #1, "InternetExplorer Version => " + IEVers$
print #1, "FireFox Version => " + FireFox$
print #1, "FlashPlayer Version => " + FlashPlayer$ + " | " + FlashPlayer2$ + " | " + Flashplayer3$ + " | " + FlashPlayer4$
print #1, "Skype Version => " + Skype$
print #1, "Java Version => " + Java$ + " | FAMILYVERSION | => " + Java2$
close #1
ShellExec(Textdatei$,"open",1)
var ende% = 0

while ende% = 0

    waitinput

EndWhile

Dispose Entry#
end

Dieser ganze Code geht unter FreeProfan ned. Weisst Du warum?

XProfan X2
MfG
Gary12345

Gary12345

Meine erste Struktur und sie geht nicht:

 $H windows.ph
cls
declare Bereich#
struct _OSVERSIONINFO = dwOSVersionInfoSize&, dwMajorVersion&, dwMinorVersion&, dwBuildNumber&, dwPlatformId&, szCSDVersion$(128)
dim Bereich#,_OSVERSIONINFO
print ~GetVersionEx(Bereich#.szCSDVersion$)
WaitInput

bzw. sie liefert 0 zurück. Warum?

XProfan X2
MfG
Gary12345

Gary12345

Es geht einfacher, wenn es solch eine Funktion gäbe, mit der man die rückgabewerte auslesen könnte, denn wen man in CMD exe das eingibt: wmic os get servicepackmajorversion , hat man das ServicePack

d.h. ich suche eine Funktion, die den Rückgabewert eines CMD Kommandos auslesen kann.

MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Du musst das schon richtig anwenden !

 $H windows.ph
cls
declare Bereich#
struct OSVERSIONINFO = dwOSVersionInfoSize&, dwMajorVersion&, dwMinorVersion&, dwBuildNumber&, dwPlatformId&, szCSDVersion$(127)
dim Bereich#,OSVERSIONINFO
Bereich#.dwOSVersionInfoSize& = Sizeof(Bereich#)
~GetVersionEx(Bereich#)
Print Bereich#.szCSDVersion$
WaitInput

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 : [...]

RGH

So geht es:

 $H windows.ph
cls
declare Bereich#
struct _OSVERSIONINFO = dwOSVersionInfoSize&, dwMajorVersion&, dwMinorVersion&, dwBuildNumber&, dwPlatformId&, szCSDVersion$(127)
dim Bereich#,_OSVERSIONINFO
Bereich#.dwOSVersionInfoSize& = SizeOf(Bereich#)
~GetVersionEx(Bereich#)
print Bereich#.dwMajorVersion&
print Bereich#.dwMinorVersion&
print Bereich#.dwBuildNumber&
print Bereich#.dwPlatformID&
print Bereich#.szCSDVersion$
WaitInput

Du musst der API-Funktion natürlich die ganze Struktur übergeben und erst nach dem Aufruf die entsprechenden Rückgabewerte auslesen.
Und ganz wichtig: Der erste Wert muss mit der Größe der Struktur gefüllt sein, die sich ja mit SizeOf() in XProfan ganz bequem ermitteln lässt.

Gruß
Roland

Nachtrag: Ich habe wohl zu lange gebraucht ...

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Gary12345

Danke! Ich hab das jetzt viel besser verstanden! Vielen, vielen, vielen Dank. Stellt euch mal vor, vor ca. 2 Monaten habe ich davon 0 Ahnung gehabt und jetzt verstehe ich schon viel mehr!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Habs mal hier eingefügt. [...]