XProfan

Kompilieren Marque Séparation

- page 2 -

Gary12345

Window %MaxX*0.1,%Maxy*0.1-%MaxX*0.3,%MaxX*0.3
WindowTitle "Updatechecker"
WindowStyle 31
declare Ende&,Diskgröße&,Memstat#

Proc DiskGroeße

    Parameters Laufwerkbuchstabe$'String
    set("decimals",2)
    Diskgröße&=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024)

    If Diskgröße&=0

        MESSAGEBOX("Laufwerk nicht vorhanden oder nicht lesbar!","Error X0001",0)'Error X0001= Laufwerk nicht vorhanden oder nicht lesbar!

    Else

        Return ROUND(Diskgröße&,3)

    EndIf

EndProc

Proc ShowMemoryStatus

    Def GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
    Def Mbyte(1) Round(1/$0100000,0)
    Dim MemStat#,32
    Long MemStat#,0=32
    GlobalMemoryStatus(MemStat#)
    Print Str$(Long(MemStat#,4))+"% Speicherauslastung"
    Print MByte(Long(MemStat#,8))+"MB gesamter physik. Speicher"
    Print MByte(Long(MemStat#,12))+"MB physik. Speicher frei"
    Print MByte(Long(MemStat#,16))+"MB max. Größe der Swapdatei"
    Print MByte(Long(MemStat#,20 ))+"MB max. in Swapdatei belegbar"
    Print MByte(Long(MemStat#,24))+"MB max. virtueller Speicher für Prozess"
    Print MByte(Long(MemStat#,28))+"MB max. virtueller Speicher für Prozess aktuell verfügbar"
    Dispose MemStat#

EndProc

'#################################
'APPENDMENU
PopUp "&Programm"
AppendMenu 101, "Updatestatus ermitteln"
AppendMenu 102, "Festplattenstatus ermitteln"
AppendMenu 103, "AutoStartLister"
AppendMenu 104, "Aktuelle Updates"
PopUp "&Sonstiges"
SubPopUp "Sonstiges"
AppendMenu 105, "Über den Autor"
AppendMenu 106, "Über das Programm"
AppendMenu 107, "Spende"
EndSub
AppendMenu 108, "Beenden"
'################################
print DiskGroeße("C:\\")
ShowMemoryStatus

Whilenot Ende&=1

/../function-references/XProfan/endwhile/'>Endwhile

allez cela chez quelqu'un? chez mir liefert es überall 0MB aus?

XProfan X2
MfG
Gary12345

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

chez mir venez ca raus:

20130218-1839-47781.png	5 kB

Hochgeladen:	18.02.2013

Downloadcounter:
		Download

Gary12345

mais cet 0MB sommes doch pas normal? ou bien ist là quoi faux?

XProfan X2
MfG
Gary12345

Julian
Schmidt

Scheint irgendwie avec x64 et x86 zusammenzuhängen.
Schaut la fois [...]

. aussi qui Kommentare lesen.

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

Gary12345

cela bedeutet, dass es sur 64bit Systeme avec max. 4GB fonctionne ou bien seulement sur 32bit systeme? suis dem Englischen avec meinen 15 pas übermächtig, bwohl je komischerweise une englische Ausbildung habe xD

Win XP 32bit avec 2GB Ram allez aussi pas.

MfG
Gary12345

Julian
Schmidt

hmmm...sommes ici doch encore un paire dans meiner Alterklasse unterwegs. suis 16. :O :O
Müsste sowohl sur 64Bit-Systemen avec moins bzw. juste 4 GB RAM ou bien 32Bit-Systemen funzen, solange qui source stimmt ^ ^

Gary12345

32bit funzt pas. 64bit habe je keinen Testpc là,là mon PC plus que 4GB Ram hat

. cela Komische ist oui, dass je einer qui wenigen suis, qui sich seulement pour Malware intéressé et là aussi une Ausbildung pouvoir.(et aussi seulement vers Malware Tools écrivons veux - 0 intérêt pour Jeux - ok sometimes zocke je la fois FIfa, mais pas souvent) si Du Probleme la hâte, kannste toi toujours annoncer

. eh bien mais zurück zum Ernst qui l'affaire, wat allez là de travers?

MfG
Gary12345

Julian
Schmidt

Tricolore la fois vite dans ner VM probiert. WinXP x86 avec 3300MB Ram.

sur meinen calculateur avec Win8 x64 avec 16GB Ram venons aussi seulement 0MB.

screen.jpg	36 kB

Hochgeladen:	18.02.2013

Downloadcounter:
		Download

Gary12345

Unsichere API. Gibt es là une sichere Solution?

paire Tips de Bekannten bekommen:
64 bit = GlobalMemoryStatusEx
32bit = ?

MfG
Gary12345

Julian
Schmidt

Steht dans den dessus geposteten Link dans PseudoCode

si comp64 then begin
GlobalMemoryStatusex
....
end
d'autre begin
GlobalMemoryStatus
....
end;

Gary12345

Alles viel trop compliqué. Werde es la fois passer so belassen.

XProfan X2
MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

si je mich la fois einmischen darf.

qui faute beim Aufruf de GlobalMemoryStatus ou bien GlobalMemoryStatusEx liegt dans qui Strukturgrösse. ici volonté partiellement 64Bit-Integer erwartet. qui Strukturgrösse stimmt alors pas überberein. ici la fois un altes Bespiel, cela zeigt comme richtig allez, égal combien Arbeitsspeicher installiert ist, 32-Bit ou bien 64-Bit Betriebssystem.
Kompilieren Marque Séparation

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!
Print Format$("#####.00 MB total zur Verfügung stehender Arbeitsspeicher",(TotalMem!) / 1024^2)
Print Format$("#####.00 MB momentan zur Verfügung stehender Arbeitsspeicher",(AvailMem!) / 1024^2)
Print Format$("#####.00 MB benutzter Arbeitsspeicher",(TotalMem!-AvailMem!) / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei total",PageFileMem! / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei frei",APageFileMem! / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei benutzt",(PageFileMem!-APageFileMem!) / 1024^2)
Print Format$("##### % benutzter Speicher",(Memory#.dwMemoryLoad&))
Waitinput
end

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 : [...]