Forum | | | | - Seite 1 - |
| Gary12345 |
cls
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 Textdatei$
Driveletter$ = GetEnv$("SYSTEMDRIVE")
set("decimals", 2)
Set("Errorlevel", -1)
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\FlashPlayer","CurrentVersion")
Opera$ = ReadINI$("HKEY_1","Software\Opera Software","Last Install Path") + "opera.exe"
OperaVersion$ = Resource.HoleResourceInfo(Opera$, "ProductVersion")
Chrome$ = ReadIni$("HKEY_1","SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome","InstallLocation") + "\Chrome.exe"
ChromeVersion$ = Resource.HoleResourceInfo(Chrome$, "ProductVersion")
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
cls
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, "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, "=======================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, ""
print #1, "===============UPDATECHECKER================="
print #1, ""
print #1, "InternetExplorer Version => " + IEVers$
print #1, "FireFox Version => " + FireFox$
print #1, "Opera Version => " + OperaVersion$
print #1, "Chrome Version => " + ChromeVersion$
print #1, "FlashPlayer Version => " + FlashPlayer$
print #1, "Skype Version => " + Skype$
close #1
ShellExec(Textdatei$,"open",1)
var ende% = 0
while ende% = 0
waitinput
EndWhile
Wenn ich ihn einfach so ausfürhe mit Xprofan gehts ohne Probleme, als exe Datei gibts aber Probleme. Wo liegt der Fehler? |
| | | | |
| | | | | - Seite 2 - |
| Gary12345 | Von wem sind all diese Codes? |
| | | | |
| | 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
|
| | | | |
| | Julian Schmidt | Die Einträge existieren bei mir alle bis auf ProxyEnable nicht.
Musst dir die Werte voranderes in der Registry zusammensuchen. |
| | | | |
| | 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:
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 |
| | | | |
| | 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.
|
| | | | |
| | | | - Seite 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&,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$ + " => 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 => " + 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, "=============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 ende% = 0
while ende% = 0
waitinput
EndWhile
Dispose Entry#
end
Dieser ganze Code geht unter FreeProfan ned. Weisst Du warum? |
| | | | |
| | Gary12345 | Meine erste Struktur und sie geht nicht:
bzw. sie liefert 0 zurück. Warum? |
| | | | |
| | Gary12345 | Es geht einfacher, wenn es solch eine Funktion gäbe, mit der man die rückgabewerte auslesen könnte, denn wen man in CMD exe das eingibt: wmic os get servicepackmajorversion , hat man das ServicePack
d.h. ich suche eine Funktion, die den Rückgabewert eines CMD Kommandos auslesen kann. |
| | | | |
| | Andreas Miethe
| Du musst das schon richtig anwenden !
|
| | | 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 : [...] | 13.06.2013 ▲ |
| |
| | RGH | So geht es:
Du musst der API-Funktion natürlich die ganze Struktur übergeben und erst nach dem Aufruf die entsprechenden Rückgabewerte auslesen. Und ganz wichtig: Der erste Wert muss mit der Größe der Struktur gefüllt sein, die sich ja mit SizeOf() in XProfan ganz bequem ermitteln lässt.
Gruß Roland
Nachtrag: Ich habe wohl zu lange gebraucht ... |
| | | XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 13.06.2013 ▲ |
| |
| | Gary12345 | Danke! Ich hab das jetzt viel besser verstanden! Vielen, vielen, vielen Dank. Stellt euch mal vor, vor ca. 2 Monaten habe ich davon 0 Ahnung gehabt und jetzt verstehe ich schon viel mehr! |
| | | | |
| | Julian Schmidt | Habs mal hier eingefügt. [...] |
| | | | |
|
AntwortenThemenoptionen | 28.955 Betrachtungen |
ThemeninformationenDieses Thema hat 4 Teilnehmer: |