XProfan

- page 2 -

Gary12345

de qui sommes espace cet Codes?

XProfan X2
MfG
Gary12345

11.06.2013 ▲

Gary12345

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

pourquoi liest es cet Werte pas 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

qui Einträge existieren chez mir alle jusqu'à sur ProxyEnable pas.

Musst dir qui Werte voranderes dans qui Registry zusammensuchen.

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

11.06.2013 ▲

Gary12345

cela faire:

-Regsitry Dossier exportieren

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

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

3. Klicke sur Sauver sous - speichere es sous Julian.bat et ouvre es
4. Am Desktop erscheint une look.txt - s'il te plaît kopiere den le contenu qui Dossier dans den Fil

Weiteres Problem:

Imprimer #1, "ServicePack: " + Readini$("HKEY_2","SYSTEM\CurrentControlSet\Contrôle\Windows","CSDVersion") + ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")

je versuche avec diesem Code cela ServicePack auslesen. qui Wert exitiert aussi (Datentyp REG_SZ). pourquoi peux cela Xprofan pas auslesen?

Beweis:

-Regsitry Dossier exportieren

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

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

3. Klicke sur Sauver sous - speichere es sous Julian.bat et ouvre es
4. Am Desktop erscheint une look.txt - s'il te plaît kopiere den le contenu qui Dossier dans den Fil

XProfan X2
MfG
Gary12345

Julian
Schmidt

Hab dir la fois mon Registry-Exports per PM envoyé.

Den Eintrag "SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion" bekomm je avec den normalen XProfan aussi pas ausgelesen.
avec FreeProfan64 klappt es allerdings.

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

- page 3 -

Gary12345

cls
 $H windows.ph
window 0,0-100,150
windowtitle "LISTER BY GARY12345"
style de fenêtre 32
imprimer "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]
Déclarer Entry#,err&,handle&,cpid&,text$,text2$
Struct PROCESSENTRY32=dwSize&,cntUsage&,th32ProcessID&,th32DefaultHeapID&,th32ModuleID&,Threads&,th32ParentProcessID&,pcPriClassBase&,dwFlags&,szExeFile$(260)
Faible 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"
    Déclarer LangID&, UserlangID&,dll&,long#
    dll& = Usedll("kernel32.dll")
    Faible long#,50
    LangID& = GetSystemDefaultLangID(0)
    VerLanguageName(langID&,long#,40)
    Retour string$(long#,0)
    Dispose long#
    freedll dll&

ENDPROC

Proc EnumPrinterss

    Déclarer Printername&,Portname&,PrinterName$,PortName$,Attribs&,PrinterValues#
    Déclarer X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Faible PrinterValues#,dwNeeded&
    Claire PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    Tandis que X& < dwReturned&*20

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

        Si Attribs& & $4

            Printername$ = Printername$ + " => Standardprinter"

        endif

        Imprimer #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#)

    tandis que 1

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

    endwhile

    dispose a#

endproc

Proc FillProcessList

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

    Si handle&

        err& = Process32First(handle&, Entry#)

        Si err&

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

            Repeat

                err& = Process32Next(handle&, Entry#)

                Si err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    Imprimer #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\Contrôle\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\Contrôle\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#)
Externe("Kernel32.dll","GlobalMemoryStatusEx",Memory#)
Var TotalMem! = 0
Var AvailMem! = 0
Var PagefileMem! = 0
Var APagefileMem! = 0
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, "Lister Version 0.0.43 | created by GARY12345 | " + Date$(0) + " " + @dt("getTime", 2)
imprimer #1, "ProgramFiles: " + GetEnv$("PROGRAMFILES") + "| Windows: " + GetEnv$("WINDIR") + "| Userprofile: " + GetEnv$("USERPROFILE") + "| Driveletter: " + GetEnv$("HOMEDRIVE")
imprimer #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, "=============SYSTEMINFO==============="
imprimer #1, »
Imprimer #1, "Processor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0","ProcessorNameString")
Imprimer #1, »
Imprimer #1, "BaseBoard producer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardManufacturer")
Imprimer #1, "BaseBoard Product: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardProduct")
Imprimer #1, "BaseBoard Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardVersion")
Imprimer #1, »
Imprimer #1, "Bios Vendor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVendor")
Imprimer #1, "Bios release date: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSReleaseDate")
Imprimer #1, "Bios Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVersion")
Imprimer #1, »
Imprimer #1, "System-Family: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemFamily")
Imprimer #1, "System Manufacturer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemManufacturer")
Imprimer #1, "System productname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemProductName")
Imprimer #1, "System SKU: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemSKU")
Imprimer #1, "System Version: " + $WinVer
Imprimer #1, »
Imprimer #1, "Windows Version: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
Imprimer #1, "ServicePack: " + Readini$("HKEY_2","SYSTEM\CurrentControlSet\Contrôle\Windows","CSDVersion") + ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Imprimer #1, "Windows Product-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
Imprimer #1, "Windows Language: " + WindowsSprache()
imprimer #1, »
Imprimer #1, "Installed printers: "
Imprimer #1, »
EnumPrinterss()
Imprimer #1, »
Imprimer #1, "Standard-printer: " + GetStandardPrinter()
Imprimer #1, »
Imprimer #1, "DRIVES: "
var show%=0
dzlwcount

whilenot show%=anzlw%

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

endwhile

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

tandis que ende% = 0

    waitinput

Endwhile

Dispose Entry#
end

cette ganze Code allez sous FreeProfan ned. Weisst Du pourquoi?

XProfan X2
MfG
Gary12345

Gary12345

mon erste Struktur et vous allez pas:

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

bzw. vous liefert 0 zurück. pourquoi?

XProfan X2
MfG
Gary12345

Gary12345

und dir einfacher, si es solch une Funktion gäbe, avec qui on qui rückgabewerte auslesen pourrait, car wen on dans CMD exe cela eingibt: wmic os get servicepackmajorversion , hat on cela ServicePack

d.h. je cherche une Funktion, qui den Rückgabewert eines CMD Kommandos auslesen peux.

MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Du musst cela déjà 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#)
Imprimer 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 ca va:

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

Du musst qui API-Funktion naturellement qui ganze Struktur transfert et seulement pour dem Aufruf qui entsprechenden Rückgabewerte auslesen.
et entier important: qui erste Wert muss avec qui Taille qui Struktur pleine son, qui sich oui avec SizeOf() dans XProfan entier bequem ermitteln peut.

Salut
Roland

Nachtrag: j'ai wohl trop longtemps 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

merci! nie gemacht maintenant viel besser verstanden! Vielen, vielen, vielen Dank. Stellt euch la fois avant, avant ca. 2 Monaten habe je en 0 Ahnung gehabt et maintenant verstehe je déjà viel plus!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Tricolore la fois ici eingefügt. [...]