XProfan

- Page 2 -

Gary12345

From whom are all these Codes?

XProfan X2
MfG
Gary12345

06/11/13 ▲

Gary12345

an question:

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

Why reads it these values not from?

[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/mix multipart/x-mix-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

06/11/13 ▲

Julian
Schmidt

The Entries existieren by me any except for ProxyEnable not.

must you The values voranderes in the Registry zusammensuchen.

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

06/11/13 ▲

Gary12345

the make:

-Regsitry File export

1. Öffne Notepad
2. copy subesquent Text in Notepad:

regedit /e %USERPROFILE%\Desktop\look.txt "HKEY_CURRENT_USER\software\Microsoft\windows\CurrentVersion\internet Settings"

3. click on Save under - save it under Julian.bat and open it
4. on the Desktop appear a look.txt - Please copy whom Content the File in The Thread

further trouble:

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

I try of these code the ServicePack read. The worth exitiert too (Datentyp REG_SZ). Why can the XProfan not read?

proof:

-Regsitry File export

1. Öffne Notepad
2. copy subesquent Text in Notepad:

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

3. click on Save under - save it under Julian.bat and open it
4. on the Desktop appear a look.txt - Please copy whom Content the File in The Thread

XProfan X2
MfG
Gary12345

Julian
Schmidt

Have you time my Registry-Exports by PM skillful.

whom entry "SOFTWARE\Microsoft\windows NT\CurrentVersion\CSDVersion" bekomm I with the normalen XProfan neither read.
with FreeProfan64 works it though.

Print 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"
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&,long#
    dll& = Usedll("kernel32.dll")
    Dim long#,50
    LangID& = GetSystemDefaultLangID(0)
    VerLanguageName(langID&,long#,40)
    Return string $(long#,0)
    Dispose long#
    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 => " + st$(Round(DiskSize(Driveletter$)/1024/1024/1024, 2)) + "GB"
Print #1, stature$("#####.00 MB TotalMemory",(TotalMem!) / 1024^2)
Print #1, stature$("#####.00 MB currently available memory",(AvailMem!) / 1024^2)
Print #1, stature$("#####.00 MB used memory",(TotalMem!-AvailMem!) / 1024^2)
Print #1, stature$("#####.00 MB Pagefile total",PageFileMem! / 1024^2)
Print #1, stature$("#####.00 MB Pagefile free",APageFileMem! / 1024^2)
Print #1, stature$("#####.00 MB Pagefile used",(PageFileMem!-APageFileMem!) / 1024^2)
Print #1, stature$("##### % 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 end% = 0

while end% = 0

    waitinput

EndWhile

Dispose Entry#
end

this whole code goes under FreeProfan ned. know You Why?

XProfan X2
MfG
Gary12345

Gary12345

my first structure and is not:

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

or. tappt im dunkeln supply 0 back. Why?

XProfan X2
MfG
Gary12345

Gary12345

It's all right plainer, if it such a function were, with the one The rückgabewerte read could, because whom one in CMD exe the types: wmic os get servicepackmajorversion , has to the ServicePack

d.h. I Search a function, The whom Return Value one CMD commands read can.

MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

You must the already correctly. utilize !

 $H windows.ph
cls
declare area#
struct OSVERSIONINFO = dwOSVersionInfoSize&, dwMajorVersion&, dwMinorVersion&, dwBuildNumber&, dwPlatformId&, szCSDVersion$(127)
dim area#,OSVERSIONINFO
Bereich#.dwOSVersionInfoSize& = Sizeof(Area #)
~GetVersionEx(Area #)
Print area#.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 goes it:

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

You must the API-function naturally The whole structure transfer and first to the appeal The suitable Rückgabewerte read.
and integrally important: The first worth must with the Size the structure filled his, which Yes with SizeOf() in XProfan integrally easily detect can.

Greeting
Roland

Nachtrag: I have well too long used ...

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

thanks! I Have the now much better understood! Vielen, many, many Thanks. position you time to, to ca. 2 Monaten have I like this 0 Idea had and now understand I already plenty More!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Habs time here eingefügt. [...]