XProfan

- page 2 -

Gary12345

Habe eh bien une Solution trouvé! Werde maintenant pour Dateilisting umschauen!

XProfan X2
MfG
Gary12345

Gary12345

comment pourrait on Fichiers listen? Gäbe es là une plausible Solution?

XProfan X2
MfG
Gary12345

Gary12345

cela vieille bekannte Problem: avec XPROFAN peux je cela Programme starten ,cependant faute 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"
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$

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

            Repeat

                err& = Process32Next(handle&, Entry#)

                Si err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    Imprimer #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\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 - Lister Version 0.0.43 | " + 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, "=======================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, "AP - [HKLM\system\currentcontrolset\control\lsa, Authentication Packages] = " + LocalSecurityA$
imprimer #1, "NP - [HKLM\system\currentcontrolset\control\lsa, Notification Packages] = " + LocalSecurityA2$
imprimer #1, »
imprimer #1, "===============SubSystems Windows value============="
imprimer #1, »
imprimer #1, "WI - [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$
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

Es wäre passable , si XPROFAN dire serait, wohin qui faute liegt, cela tut es mais pas :/

XProfan X2
MfG
Gary12345

Julian
Schmidt

Läuft chez mir 1A.

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

Gary12345

eh bien gehts aussi - habe am Code nix geändert. Iwas fonctionne là de travers avec X2 oO

XProfan X2
MfG
Gary12345

Julian
Schmidt

Solltest toi la fois un peu à sauberen Code tenir.

entier important:
Bereichsvariablen wieder freigeben!

Julian
Schmidt

Zum Thema Systeminformationen peux du dir aussi cela anschauen. pas de 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"
Imprimer "Prozessor: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0","ProcessorNameString")
Imprimer »
Imprimer "Baseboard Hersteller: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardManufacturer")
Imprimer "Baseboard Produkt: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardProduct")
Imprimer "Baseboard Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BaseBoardVersion")
Imprimer »
Imprimer "Bios Hersteller: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVendor")
Imprimer "Bios Erscheinungsdatum: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSReleaseDate")
Imprimer "Bios Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","BIOSVersion")
Imprimer »
Imprimer "System-la famille: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemFamily")
Imprimer "System Hersteller: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemManufacturer")
Imprimer "System Produktname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemProductName")
Imprimer "System Produktname: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemProductName")
Imprimer "System SKU: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemSKU")
Imprimer "System Version: " + Readini$("HKEY_2","HARDWARE\\DESCRIPTION\\System\\Bios","SystemVersion")
Imprimer »
Imprimer "Windows Version: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
Imprimer "ServicePack: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion")
Imprimer "Windows Produkt-ID: " + @Readini$("HKEY_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
Imprimer "Windows-Key: " + Windowskey()
Imprimer "Windows Discours: " + WindowsSprache()
imprimer »
Imprimer "Installierte Drucker: "
Imprimer »
EnumPrinterss()
Imprimer »
Imprimer "Standard-Drucker: " + GetStandardPrinter()
Imprimer
Imprimer "Gefundene Laufwerke: "
var show%=0
dzlwcount

whilenot show%=anzlw%

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

endwhile

tandis que 1

    waitinput

Endwhile

Proc Windowskey

    Déclarer mem#, memnew#, digits#, x&, pkey$
    Faible mem#, 280
    Faible memnew#, 280
    Faible digits#,100
    Claire mem#
    Claire 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&))

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

        endif

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

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&
Déclarer i%
declare Laufwerk$
declare LWTyp&
declare Laufwerk#
declare SectperCluster#
declare BytesperSector#
declare Freeclusters#
declare Clusters#
declare LWName#
declare LWNameLänge#
Déclarer LWSerNr#
declare MaxDatNamlänge#
declare DateiSystemFlag#
declare DateiSystemName#
declare DatSystemNamLänge#
declare test&
declare LWNamelänge&,DatsystemNamLänge&
Laisser MaxZeichen%=104'26*4
Faible LWkennung#,MaxZeichen%
Faible Laufwerk#,4
Faible SectperCluster#,1
Faible BytesperSector#,1
Faible Freeclusters#,1
Faible 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

    Laisser LWInstall&=HoleLWKennung(MaxZeichen%,LWKennung#)
    imprimer
    Imprimer "Installierte Laufwerke   :";LWInstall&/4
    imprimer "================================================"
    Laisser I%=0

    tandis que i%<>LWInstall&

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

    Endwhile

    Imprimer "---------------------------------------------"

endproc

Proc LaufwerksType

    Set("decimals",0)
    String Laufwerk#,0=Laufwerk$
    Laisser LWTyp&=GetDriveType(Laufwerk#)
    Imprimer "LaufwerksType : ";LWTYp&
    Imprimer "---------------------------------------------"
    cas LWTyp&=0 :Imprimer "Laufwerk : ";Laufwerk$;" Ist pas ermittelbar."
    cas LWTyp&=1 :Imprimer "Laufwerk : ";Laufwerk$;" ist im System pas vorhanden."
    Cas LWTyp&=2 :Imprimer "Laufwerk : ";Laufwerk$;" ist Laufwerk avec wechselbaren Datenträger."
    cas LWTyp&=3 :Imprimer "Laufwerk : ";Laufwerk$;" est un Festplattenlaufwerk."
    cas LWTyp&=4 :Imprimer "Laufwerk : ";Laufwerk$;" est un Netzwerklaufwerk."
    cas LWTyp&=5 :Imprimer "Laufwerk : ";Laufwerk$;" est un CD-ROM Laufwerk."
    cas LWTyp&=6 :Imprimer "Laufwerk : ";Laufwerk$;" ist une RAM-Disk."
    Imprimer "============================================="
    HoleLaufwerkskapazitaet(Laufwerk#,SectperCluster#,BytesperSector#,Freeclusters#,Clusters#)
    Imprimer "Speicherinformationen de Laufwerk : ";Laufwerk$
    Imprimer "---------------------------------------------"
    imprimer "Cluster                :";long(Clusters#,0)
    imprimer "Sektoren pro Cluster   :";long(SectperCluster#,0)
    imprimer "Bytes pro Sektor       :";long(BytesperSector#,0)
    Imprimer "Bytes Pro Cluster      :";long(SectperCluster#,0)*long(BytesperSector#,0)
    imprimer "Freie Cluster          :";long(Freeclusters#,0)
    Imprimer "---------------------------------------------"
    Imprimer "Bytes Gesamt           :";long(Clusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Imprimer "Bytes libre             :";long(FreeClusters#,0)*long(SectperCluster#,0)*long(BytesperSector#,0)
    Imprimer "============================================="
    let LWNamelänge&=16
    Laisser DatsystemNamLänge&=255
    Laisser test&=GetvolumeInfo(Laufwerk#,LWName#,LWNameLänge&,\
    LWSerNr#,MaxDatNamLänge#,DateiSystemFlag#,\
    DateiSystemName#,DatSystemNamLänge&)

    Si test&

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

    d'autre

        imprimer "Fehler beim Lesen. qui angezeigten Werte stimmen pas."

    endif

ENDPROC

Fenêtre 0,0-600,400
Windowtitle "Laufwerks Informationen abfragen."
Laisser LWAuswahl%=Créer("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

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.

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

13.06.2013 ▲

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

13.06.2013 ▲