XProfan

- Página 2 -

Gary12345

Von wem son all esta Codes?

XProfan X2
MfG
Gary12345

11.06.2013 ▲

Gary12345

Un Cuestión:

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

¿Por qué liest lo esta Werte no de?

[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

El Einträge existieren en me todos salvo ProxyEnable no.

Musst dir el Werte voranderes en el Registry zusammensuchen.

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

11.06.2013 ▲

Gary12345

Das hacer:

-Regsitry Expediente exportieren

1. Öffne Notepad
2. Kopiere folgenden Texto en Notepad:

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

3. Klicke en speichern bajo - speichere lo bajo Julian.bat y öffne lo
4. Am Desktop erscheint una look.txt - Por favor, kopiere el Inhalt el Expediente en el hilo

Weiteres Problema:

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

Yo versuche con diesem Code el ServicePack auslesen. Der Valor exitiert auch (Datentyp REG_SZ). ¿Por qué puede Xprofan no auslesen?

Beweis:

-Regsitry Expediente exportieren

1. Öffne Notepad
2. Kopiere folgenden Texto en Notepad:

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

3. Klicke en speichern bajo - speichere lo bajo Julian.bat y öffne lo
4. Am Desktop erscheint una look.txt - Por favor, kopiere el Inhalt el Expediente en el hilo

XProfan X2
MfG
Gary12345

Julian
Schmidt

Hab dir veces mi Registry-Exports por PM geschickt.

Den Eintrag "SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion" bekomm Puedo usar el normalen XProfan auch no ausgelesen.
Mit FreeProfan64 klappt lo allerdings.

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

- Página 3 -

Gary12345

cls
 $H windows.ph
window 0,0-100,150
windowtitle "LISTER BY GARY12345"
windowstyle 32
imprimir "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"
declarar anzlw%
declarar lwa$[26,26]
Declarar Entry#,err&,handle&,cpid&,texto$,texto2$
Struct PROCESSENTRY32=dwSize&,cntUsage&,th32ProcessID&,th32DefaultHeapID&,th32ModuleID&,Threads&,th32ParentProcessID&,pcPriClassBase&,dwFlags&,szExeFile$(260)
Dim Entry#,PROCESSENTRY32
Entry#.dwSize& = SizeOf(Entry#)
declarar IEStartPage$, IESecurityRiskPage$, IEExtensionsOffPage$, IELocalPage$, IEStartPage2$
declarar IESearchPage$, IEDefault_Secondary_Page_URL$, IEProxyEnable$, IEProxyOverride$
declarar IEProxyServer$, IEAutoConfigURL$, Driveletter$, IEVers$, Skype$, FireFox$, FlashPlayer$, Opera$, OperaVersion$, Chrome$, ChromeVersion$
declarar Java$, Java2$, FlashPlayer2$, IEPlugins$, DHCP$, NameServer$, Domain$, UserStylesheet$, MyStyleSheet$, SecurityProviders$
declarar Textdatei$, LocalSecurityA$, LocalSecurityA2$, Windows$, FlashPlayer3$, FlashPlayer4$

Proc WindowsSprache

    Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
    Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
    Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
    Declarar LangID&, UserlangID&,dll&,Lang#
    dll& = Usedll("kernel32.dll")
    Dim lang#,50
    LangID& = GetSystemDefaultLangID(0)
    VerLanguageName(langID&,lang#,40)
    Volver cadena$(lang#,0)
    Disponer lang#
    freedll dll&

ENDPROC

Proc EnumPrinterss

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

    Mientras que X& < dwReturned&*20

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

        If Attribs& & $4

            Printername$ = Printername$ + " => Standardprinter"

        endif

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

    EndWhile

    Disponer PrinterValues#

ENDPROC

proc DZLWcount

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

    mientras que 1

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

    endwhile

    disponer a#

ENDPROC

Proc FillProcessList

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

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            texto$=Str$(Entry#.th32ProcessID&)
            texto2$=Entry#.szExeFile$
            Imprimir #1, "PID: " + texto$ + "| Processname: " + texto2$

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    texto$=Str$(Entry#.th32ProcessID&)
                    texto2$=Entry#.szExeFile$
                    Imprimir #1, "PID:" + texto$ + "| Processname: " + texto2$
                    Sleep 100

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

ENDPROC

Driveletter$ = GetEnv$("SYSTEMDRIVE")
set("decimals", 2)
Conjunto("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")
Conjunto("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#)
Externo("Kernel32.dll","GlobalMemoryStatusEx",Memory#)
Var TotalMem! = 0
Var AvailMem! = 0
Var PagefileMem! = 0
Var APagefileMem! = 0
Totalmem! = Memory#.ullTotalPhysLow&
caso Memory#.ullTotalPhysLow& < 0: TotalMem! =  Memory#.ullTotalPhysLow& + (2^32)
TotalMem! = (Memory#.ullTotalPhysHi& * (2^32)) + TotalMem!
Availmem! = Memory#.ullAvailPhysLow&
caso Memory#.ullAvailPhysLow& < 0: AvailMem! =  Memory#.ullAvailPhysLow& + (2^32)
AvailMem! = (Memory#.ullAvailPhysHi& * (2^32)) + AvailMem!
PagefileMem! = Memory#.ullTotalPageFileLow&
caso Memory#.ullTotalPageFileLow& < 0: PageFileMem! =  Memory#.ullTotalPageFileLow& + (2^32)
PageFileMem! = (Memory#.ullTotalPageFileHi& * (2^32)) + PageFileMem!
APagefileMem! = Memory#.ullAvailPageFileLow&
caso Memory#.ullAvailPageFileLow& < 0: APageFileMem! =  Memory#.ullAvailPageFileLow& + (2^32)
APageFileMem! = (Memory#.ullAvailPageFileHi& * (2^32)) + APageFileMem!
Asignar #1,Textdatei$
Rewrite #1
imprimir #1, "Lister Versión 0.0.43 | created by GARY12345 | " + Date$(0) + " " + @dt("getTime", 2)
imprimir #1, "ProgramFiles: " + GetEnv$("PROGRAMFILES") + "| Windows: " + GetEnv$("WINDIR") + "| Userprofile: " + GetEnv$("USERPROFILE") + "| Driveletter: " + GetEnv$("HOMEDRIVE")
imprimir #1, ""
imprimir #1, "DiskSize => " + str$(Round(DiskSize(Driveletter$)/1024/1024/1024, 2)) + "GB"
Imprimir #1, Formato$("#####.00 MB TotalMemory",(TotalMem!) / 1024^2)
Imprimir #1, Formato$("#####.00 MB currently available memory",(AvailMem!) / 1024^2)
Imprimir #1, Formato$("#####.00 MB used memory",(TotalMem!-AvailMem!) / 1024^2)
Imprimir #1, Formato$("#####.00 MB Pagefile total",PageFileMem! / 1024^2)
Imprimir #1, Formato$("#####.00 MB Pagefile free",APageFileMem! / 1024^2)
Imprimir #1, Formato$("#####.00 MB Pagefile used",(PageFileMem!-APageFileMem!) / 1024^2)
Imprimir #1, Formato$("##### % used memory",(Memory#.dwMemoryLoad&))
imprimir #1, ""
imprimir #1, "=============SYSTEMINFO==============="
imprimir #1, ""
Imprimir #1, "Processor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\CentralProcessor\\0","ProcessorNameString")
Imprimir #1, ""
Imprimir #1, "BaseBoard producer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BaseBoardManufacturer")
Imprimir #1, "BaseBoard Product: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BaseBoardProduct")
Imprimir #1, "BaseBoard Versión: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BaseBoardVersion")
Imprimir #1, ""
Imprimir #1, "Bios Vendor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BIOSVendor")
Imprimir #1, "Bios release date: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BIOSReleaseDate")
Imprimir #1, "Bios Versión: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","BIOSVersion")
Imprimir #1, ""
Imprimir #1, "System-Family: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","SystemFamily")
Imprimir #1, "System Manufacturer: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","SystemManufacturer")
Imprimir #1, "System productname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","SystemProductName")
Imprimir #1, "System SKU: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\Sistema\\Bios","SystemSKU")
Imprimir #1, "System Versión: " + $WinVer
Imprimir #1, ""
Imprimir #1, "Windows Versión: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
Imprimir #1, "ServicePack: " + Readini$("HKEY_2","SYSTEM\CurrentControlSet\Control\Windows","CSDVersion") + ReadIni$("HKEY_2", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Imprimir #1, "Windows Product-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
Imprimir #1, "Windows Language: " + WindowsSprache()
imprimir #1, ""
Imprimir #1, "Installed printers: "
Imprimir #1, ""
EnumPrinterss()
Imprimir #1, ""
Imprimir #1, "Standard-printer: " + GetStandardPrinter()
Imprimir #1, ""
Imprimir #1, "DRIVES: "
var show%=0
dzlwcount

whilenot show%=anzlw%

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

endwhile

imprimir #1, ""
imprimir #1, "=======================PROCESSES========================="
imprimir #1, ""
FillProcessList
imprimir #1, ""
imprimir #1, "=======================IE SETTINGS======================="
imprimir #1, ""
imprimir #1, "IE - [HKCU\Software\Microsoft\Internet Explorer\Main, StartPage] = "+ IEStartPage$
imprimir #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyEnable] = " + IEProxyEnable$
imprimir #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyOverride] = " + IEProxyOverride$
imprimir #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, ProxyServer] = " + IEProxyServer$
imprimir #1, "IE - [HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings, AutoConfigURL] = " + IEAutoConfigURL$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Security Risk Page] = " + IESecurityRiskPage$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Extensions Off Page] = " + IEExtensionsOffPage$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Local Page] = " + IELocalPage$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Start Page] = " + IEStartPage2$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Search Page] = " + IESearchPage$
imprimir #1, "IE - [HKLM\Software\Microsoft\Internet Explorer\Main, Default_Secondary_Page_URL] = " + IEDefault_Secondary_Page_URL$
imprimir #1, "IE Plugins - [HKLM\software\microsoft\internet explorer\plugins\Extension, Location] = " + IEPlugins$
imprimir #1, ""
imprimir #1, "===============Transmission Control Protocol================="
imprimir #1, ""
imprimir #1, "DHCP - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parámetros, DhcpNameServer] = " + DHCP$
imprimir #1, "NameServer - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parámetros, NameServer] = " + NameServer$
imprimir #1, "Domain - [HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parámetros, Domain] = " + Domain$
imprimir #1, ""
imprimir #1, "=================User Style Sheet============"
imprimir #1, ""
imprimir #1, "UserStyleSheet - [HKCU\Software\Microsoft\Internet Explorer\Styles, User Stylesheet] = " + UserStylesheet$
imprimir #1, "MyStyleSheet - [HKCU\Software\Microsoft\Internet Explorer\Styles, Use My Stylesheet] = " + MyStyleSheet$
imprimir #1, ""
imprimir #1, "===============Security Providers============"
imprimir #1, ""
imprimir #1, "SP - [HKLM\SYSTEM\CurrentControlSet\Control\SecurityProviders, SecurityProviders] = " + SecurityProviders$
imprimir #1, ""
imprimir #1, "===============Local Security Authority=============="
imprimir #1, ""
imprimir #1, "LSA - [HKLM\system\currentcontrolset\control\lsa, Authentication Packages] = " + LocalSecurityA$
imprimir #1, "LSA - [HKLM\system\currentcontrolset\control\lsa, Notification Packages] = " + LocalSecurityA2$
imprimir #1, ""
imprimir #1, "===============SubSystems Windows value============="
imprimir #1, ""
imprimir #1, "SWV - [HKLM\\SYSTEM\CurrentControlSet\Control\Session Manager\SubSystems, Windows] = " + Windows$
imprimir #1, ""
imprimir #1, "===============UPDATECHECKER================="
imprimir #1, ""
imprimir #1, "InternetExplorer Versión => " + IEVers$
imprimir #1, "FireFox Versión => " + FireFox$
imprimir #1, "FlashPlayer Versión => " + FlashPlayer$ + " | " + FlashPlayer2$ + " | " + Flashplayer3$ + " | " + FlashPlayer4$
imprimir #1, "Skype Versión => " + Skype$
imprimir #1, "Java Versión => " + Java$ + " | FAMILYVERSION | => " + Java2$
close #1
ShellExec(Textdatei$,"open",1)
var ende% = 0

mientras que ende% = 0

    waitinput

EndWhile

Disponer Entry#
end

Dieser todo Code va bajo FreeProfan ned. Weisst Usted por qué?

XProfan X2
MfG
Gary12345

Gary12345

Mi erste Struktur y ellos va no:

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

o. ellos liefert 0 zurück. ¿Por qué?

XProfan X2
MfG
Gary12345

Gary12345

Lo va einfacher, si solch una Función gäbe, con el uno el rückgabewerte auslesen podría, porque wen uno en CMD exe el eingibt: wmic os get servicepackmajorversion , ha al ServicePack

d.h. Yo búsqueda una Función, el el Rückgabewert uno CMD Kommandos auslesen kann.

MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Usted musst el ya correcto anwenden !

 $H windows.ph
cls
declarar Zona#
struct OSVERSIONINFO = dwOSVersionInfoSize&, dwMajorVersion&, dwMinorVersion&, dwBuildNumber&, dwPlatformId&, szCSDVersion$(127)
dim Zona#,OSVERSIONINFO
Bereich#.dwOSVersionInfoSize& = Sizeof(Zona#)
~GetVersionEx(Zona#)
Imprimir Zona#.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 es:

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

Usted musst el API-Función natürlich el todo Struktur transferencia y sólo después de el Aufruf el entsprechenden Rückgabewerte auslesen.
Und bastante wichtig: Der erste Valor muss con el Größe el Struktur gefüllt ser, que sí con SizeOf() en XProfan bastante bequem ermitteln lässt.

Saludo
Roland

Apéndice: Yo habe wohl demasiado tiempo 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

Gracias! Yo el ahora viel mejor verstanden! Vielen, vielen, vielen Dank. Stellt euch veces antes de, antes ca. 2 Monaten Yo su 0 Idea gehabt y ahora verstehe Yo ya viel mehr!

XProfan X2
MfG
Gary12345

Julian
Schmidt

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