XProfan

- Seite 2 -

Gary12345

Habe nun eine Lösung gefunden! Werde jetzt nach Dateilisting umschauen!

XProfan X2
MfG
Gary12345

Gary12345

Wie könnte man Dateien listen? Gäbe es da eine plausible Lösung?

XProfan X2
MfG
Gary12345

Gary12345

Das alte bekannte Problem: Mit XPROFAN kann ich das Programm starten ,jedoch Fehler beim exe erstellen:

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 => " + 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, "=======================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 ende% = 0

while ende% = 0

    waitinput

EndWhile

Es wäre passabel , wenn XPROFAN sagen würde, wo der Fehler liegt, das tut es aber nicht :/

XProfan X2
MfG
Gary12345

Julian
Schmidt

Läuft bei mir 1A.

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

Gary12345

Nun gehts auch - habe am Code nix geändert. Iwas läuft da schief mit X2 oO

XProfan X2
MfG
Gary12345

Julian
Schmidt

Solltest dich mal ein wenig an sauberen Code halten.

Ganz wichtig:
Bereichsvariablen wieder freigeben!

Julian
Schmidt

Zum Thema Systeminformationen kannst du dir auch das anschauen. Nicht von mir.

 $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 Hersteller: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardManufacturer")
Print "Baseboard Produkt: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardProduct")
Print "Baseboard Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardVersion")
Print ""
Print "Bios Hersteller: " + 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-Familie: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemFamily")
Print "System Hersteller: " + 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 Produkt-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
Print "Windows-Key: " + Windowskey()
Print "Windows Sprache: " + WindowsSprache()
print ""
Print "Installierte Drucker: "
Print ""
EnumPrinterss()
Print ""
Print "Standard-Drucker: " + GetStandardPrinter()
Print
Print "Gefundene Laufwerke: "
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&,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$ + " => 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 Laufwerk$
declare LWTyp&
declare Laufwerk#
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 Laufwerk#,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%,Ende%

Proc  Laufwerkskennung

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

    while i%<>LWInstall&

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

    Endwhile

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

endproc

Proc LaufwerksType

    Set("decimals",0)
    String Laufwerk#,0=Laufwerk$
    Let LWTyp&=GetDriveType(Laufwerk#)
    Print "LaufwerksType : ";LWTYp&
    Print "---------------------------------------------"
    case LWTyp&=0 :Print "Laufwerk : ";Laufwerk$;" Ist nicht ermittelbar."
    case LWTyp&=1 :Print "Laufwerk : ";Laufwerk$;" ist im System nicht vorhanden."
    Case LWTyp&=2 :Print "Laufwerk : ";Laufwerk$;" ist Laufwerk mit wechselbaren Datenträger."
    case LWTyp&=3 :Print "Laufwerk : ";Laufwerk$;" ist ein Festplattenlaufwerk."
    case LWTyp&=4 :Print "Laufwerk : ";Laufwerk$;" ist ein Netzwerklaufwerk."
    case LWTyp&=5 :Print "Laufwerk : ";Laufwerk$;" ist ein CD-ROM Laufwerk."
    case LWTyp&=6 :Print "Laufwerk : ";Laufwerk$;" ist eine RAM-Disk."
    Print "============================================="
    HoleLaufwerkskapazitaet(Laufwerk#,SectperCluster#,BytesperSector#,Freeclusters#,Clusters#)
    Print "Speicherinformationen von Laufwerk : ";Laufwerk$
    Print "---------------------------------------------"
    print "Cluster                :";long(Clusters#,0)
    print "Sektoren pro Cluster   :";long(SectperCluster#,0)
    print "Bytes pro Sektor       :";long(BytesperSector#,0)
    Print "Bytes Pro Cluster      :";long(SectperCluster#,0)*long(BytesperSector#,0)
    print "Freie Cluster          :";long(Freeclusters#,0)
    Print "---------------------------------------------"
    Print "Bytes Gesamt           :";long(Clusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Print "Bytes Frei             :";long(FreeClusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Print "============================================="
    let LWNamelänge&=16
    Let DatsystemNamLänge&=255
    Let test&=GetvolumeInfo(Laufwerk#,LWName#,LWNameLänge&,\
    LWSerNr#,MaxDatNamLänge#,DateiSystemFlag#,\
    DateiSystemName#,DatSystemNamLänge&)

    If test&

        Print "Datenträger-Informationen"
        Print "---------------------------------------------"
        Print "Laufwerk               :";String$(Laufwerk#,0)
        Print "Laufwerksname          :";String$(LWName#,0)
        Print "LW-Serien Nummer DEZ   :";long(LWSernr#,0)
        Print "LW-Serien Nummer 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 "Fehler beim Lesen. Die angezeigten Werte stimmen nicht."

    endif

Endproc

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

whilenot Ende%

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

Endwhile

Dispose Laufwerk#
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

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.

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

13.06.2013 ▲

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

13.06.2013 ▲