XProfan

- Page 2 -

Gary12345

have now a Solution found! will be now to Dateilisting umschauen!

XProfan X2
MfG
Gary12345

Gary12345

How could one Files lists? Gäbe it there a plausible Solution?

XProfan X2
MfG
Gary12345

Gary12345

the old known trouble: with XPROFAN can I the program started ,however Error exe create:

cls
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"
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$

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$ + "| Prozessname: " + Text2$

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    Text$=Str $(Entry#.th32ProcessID&)
                    Text2$=Entry#.szExeFile$
                    Print #1, "PID:" + Text$ + "| Prozessname: " + 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","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","Version")
FlashPlayer2$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayerPlugin","Version")
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 - Lister Version 0.0.43 | " + 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, "=======================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, "AP - [HKLM\system\currentcontrolset\control\lsa, Authentication Packages] = " + LocalSecurityA$
print #1, "NP - [HKLM\system\currentcontrolset\control\lsa, Notification Packages] = " + LocalSecurityA2$
print #1, ""
print #1, "===============SubSystems windows value============="
print #1, ""
print #1, "WI - [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$
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

it would passabel , if XPROFAN say would, where the Error lying, the but it does not :/

XProfan X2
MfG
Gary12345

Julian
Schmidt

Runs by me 1A.

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

Gary12345

now GEHTS too - have on the code nothing changed. Iwas runs there schief with X2 oO

XProfan X2
MfG
Gary12345

Julian
Schmidt

If you time a little bit on tidy code hold.

integrally important:
Memory-Variables unlock!

Julian
Schmidt

to that Topic Systeminformationen can you you too the look at. not of me.

 $H windows.ph
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]
Set("ErrorLevel", 0)
cls
showmax %hwnd
Windowtitle "Systeminformationen"
Print "Prozessor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\CentralProcessor\\0","ProcessorNameString")
Print ""
Print "Baseboard manufacturers: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BaseBoardManufacturer")
Print "Baseboard product: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BaseBoardProduct")
Print "Baseboard Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BaseBoardVersion")
Print ""
Print "Bios manufacturers: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BIOSVendor")
Print "Bios Erscheinungsdatum: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BIOSReleaseDate")
Print "Bios Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","BIOSVersion")
Print ""
Print "System-family: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemFamily")
Print "System manufacturers: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemManufacturer")
Print "System Produktname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemProductName")
Print "System Produktname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemProductName")
Print "System SKU: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemSKU")
Print "System Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\system\\Bios","SystemVersion")
Print ""
Print "Windows Version: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\windows NT\CurrentVersion","ProductName")
Print "ServicePack: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\windows NT\CurrentVersion","CSDVersion")
Print "Windows product-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\windows NT\CurrentVersion","ProductId")
Print "Windows-Key: " + Windowskey()
Print "Windows Language: " + WindowsSprache()
print ""
Print "Installierte printer: "
Print ""
EnumPrinterss()
Print ""
Print "Standard-printer: " + GetStandardPrinter()
Print
Print "Gefundene drives: "
var show%=0
dzlwcount

whilenot show%=anzlw%

    print " - " + lwa$[show%]
    inc show%

endwhile

while 1

    waitinput

Endwhile

Proc Windowskey

    Declare mem#, memnew#, digits#, x&, pkey$
    Dim mem#, 280
    Dim memnew#, 280
    Dim digits#,100
    Clear mem#
    Clear memnew#
    String digits#, 0 = "BCDFGHJKMPQRTVWXY2346789"
    Var path$ = "Software\\Microsoft\\windows NT\\CurrentVersion"
    Var item$ = "DigitalProductID"
    Var key& = 0
    Var size& = 280
    ~RegOpenKeyEx($80000002, Addr(path$), 0, $20119, Addr(key&))
    ~RegQueryValueEx(key&, Addr(item$), 0, 0, mem#, Addr(size&))

    If size&<>280

        ~RegCloseKey(key&)

        WhileLoop 24, 0, -1

            x& = 0

            WhileLoop 66, 52, -1

                x& = (x& << 8) + byte(mem#, &loop)
                byte mem#, &loop = x& / 24
                x& = x& mod 24

            EndWhile

            byte memnew#, &loop = byte(digits#, x&)

        EndWhile

        pkey$=Char$(memnew#, 0, 5) + "-" + Char$(memnew#, 5, 5) + "-" + Char$(memnew#, 10, 5) + "-" + Char$(memnew#, 15, 5) + "-" + Char$(memnew#, 20, 5)
        return pkey$

    EndIf

ENDPROC

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$ + " => Standarddrucker"

        endif

        Print " - " + 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

Def HoleLWKennung(2) ! "KERNEL32.DLL","GetLogicalDriveStringsA"
Def GetDriveType(1) ! "KERNEL32.DLL","GetDriveTypeA"
Def HoleLaufwerkskapazitaet(5) ! "KERNEL32.DLL","GetDiskFreeSpaceA"
Def GetVolumeInfo(8) ! "Kernel32.dll","GetVolumeInformationA"
declare MaxZeichen%
declare LWKennung#
declare LWInstall&
Declare i%
declare drive$
declare LWTyp&
declare drive#
declare SectperCluster#
declare BytesperSector#
declare Freeclusters#
declare Clusters#
declare LWName#
declare LWNameLänge#
Declare LWSerNr#
declare MaxDatNamlänge#
declare DateiSystemFlag#
declare DateiSystemName#
declare DatSystemNamLänge#
declare test&
declare LWNamelänge&,DatsystemNamLänge&
Let MaxZeichen%=104'26*4
Dim LWkennung#,MaxZeichen%
Dim drive#,4
Dim SectperCluster#,1
Dim BytesperSector#,1
Dim Freeclusters#,1
Dim Clusters#,1
dim LWName#,16
dim LwNameLänge#,4
dim LWSerNr#,16
dim DateisystemName#,255
dim DatsystemNamLänge#,1
dim MaxDatNamLänge#,1
dim Dateisystemflag#,1
declare LwAuswahl%,end%

Proc  Laufwerkskennung

    Let LWInstall&=HoleLWKennung(MaxZeichen%,LWKennung#)
    print
    Print "Installierte drives   :";LWInstall&/4
    print "================================================"
    Let I%=0

    while i%<>LWInstall&

        Print "Installiertes drive   :";string $(LWKennung#,I%)
        addstring(LWAuswahl%,String $(Lwkennung#,i%))
        let I%=i%+4

    Endwhile

    Print "---------------------------------------------"

endproc

Proc LaufwerksType

    Set("decimals",0)
    String drive#,0=drive$
    Let LWTyp&=GetDriveType(drive#)
    Print "LaufwerksType : ";LWTYp&
    Print "---------------------------------------------"
    case LWTyp&=0 :Print "Laufwerk : ";Laufwerk$;" isn't ermittelbar."
    case LWTyp&=1 :Print "Laufwerk : ";Laufwerk$;" is in the system No."
    Case LWTyp&=2 :Print "Laufwerk : ";Laufwerk$;" is drive with wechselbaren volume."
    case LWTyp&=3 :Print "Laufwerk : ";Laufwerk$;" is a Festplattenlaufwerk."
    case LWTyp&=4 :Print "Laufwerk : ";Laufwerk$;" is a Netzwerklaufwerk."
    case LWTyp&=5 :Print "Laufwerk : ";Laufwerk$;" is a CD-ROM drive."
    case LWTyp&=6 :Print "Laufwerk : ";Laufwerk$;" is a RAM-Disk."
    Print "============================================="
    HoleLaufwerkskapazitaet(drive#,SectperCluster#,BytesperSector#,Freeclusters#,Clusters#)
    Print "Speicherinformationen of drive : ";Laufwerk$
    Print "---------------------------------------------"
    print "Cluster                :";long(Clusters#,0)
    print "Sektoren per cluster   :";long(SectperCluster#,0)
    print "Bytes per sector       :";long(BytesperSector#,0)
    Print "Bytes per cluster      :";long(SectperCluster#,0)*long(BytesperSector#,0)
    print "Freie cluster          :";long(Freeclusters#,0)
    Print "---------------------------------------------"
    Print "Bytes total           :";long(Clusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Print "Bytes spare             :";long(FreeClusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Print "============================================="
    let LWNamelänge&=16
    Let DatsystemNamLänge&=255
    Let test&=GetvolumeInfo(drive#,LWName#,LWNameLänge&,\
    LWSerNr#,MaxDatNamLänge#,DateiSystemFlag#,\
    DateiSystemName#,DatSystemNamLänge&)

    If test&

        Print "Datenträger-Informationen"
        Print "---------------------------------------------"
        Print "Laufwerk               :";String $(drive#,0)
        Print "Laufwerksname          :";String $(LWName#,0)
        Print "LW-series number DEZ   :";long(LWSernr#,0)
        Print "LW-series number HEX   :";left$(Hex$(long(LWSernr#,0)),4)+"-"+right$(Hex$(long(LWSernr#,0)),4)
        Print "Max. Dateinamenlänge   :";Long(MaxDatNamLänge#,0)
        Print "DateisystemName        :";String $(DateiSystemName#,0)
        Print "DateisystemFlag   DEZ  :";byte(DateiSystemflag#,0)
        Print "Dateisystemflag   BIN  :";BIN$(Long(Dateisystemflag#,0))

    else

        print "Error at reading. The indicated values voices not."

    endif

Endproc

Window 0,0-600,400
Windowtitle "Laufwerks Information inquire."
Let LWAuswahl%=Create("listbox",%Hwnd,"",500,20,80,100)
Laufwerkskennung

whilenot end%

    waitinput
    cls
    let drive$=Trim $(Getstring$(LWauswahl%,Getcursel(LWauswahl%)))
    LaufwerksType
    String drive#,0=""

Endwhile

Dispose drive#
Dispose LWKennung#
Dispose SectperCluster#
Dispose BytesperSector#
Dispose Freeclusters#
Dispose Clusters#
Dispose LWName#
Dispose LWNameLänge#
Dispose LWSerNr#
Dispose MaxDatNamlänge#
Dispose DateiSystemFlag#
Dispose DateiSystemName#
Dispose DatSystemNamLänge#
end

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.

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

06/13/13 ▲

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

06/13/13 ▲