XProfan

- page 2 -

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 ^ ^

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

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

- page 3 -

Gary12345

Vielen Dank!

XProfan X2
MfG
Gary12345

Kompilieren Marque Séparation

Gary12345

Window %MaxX*0.1,%Maxy*0.1-%MaxX*0.3,%MaxX*0.3
WindowTitle "Updatechecker"
WindowStyle 31
declare Ende&,Diskgröße&,Memstat#,IEVers$,Skype$,FireFox$,FlashPlayer$, Opera$,OperaVersion$,Chrome$,ChromeVersion$,datei1$

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 MemoryStatus

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

EndProc

'###################################################
'Updatestatus ermitteln
Set("Errorlevel", -1)
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)
datei1$=$TempDir + "Updatestatus.txt"
'#################################
'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"
'################################
'################################
'Erstellung des Fensters
CLS rgb(150,250,350)
var button1&=CREATE("Button",%HWND,"Updatestatus ermitteln",110,10,190,50):CREATE("Tooltip",%HWND,button1&,"Ermittelt den zurzeitigen Updatestatus")
var button2&=CREATE("Button",%HWND,"Festplattenstatus ermitteln",110,80,190,50):CREATE("Tooltip",%HWND,button2&,"Ermittelt den aktuellen Festplatten- und Arbeitsspeicherstatus")
var button3&=CREATE("Button",%HWND,"AutoStartLister",110,150,190,50):CREATE("Tooltip",%HWND,button3&,"Listet alle vorhandenen Autostarts auf")
var button4&=CREATE("Button",%HWND,"Aktuelle Updates",110,220,190,50):CREATE("Tooltip",%HWND,button4&,"Zeigt Dir die aktuellen Updates")
var button5&=CREATE("Button",%HWND,"Schließen",110,290,190,50):CREATE("Tooltip",%HWND,button5&,"Beendet das Programm")
Memorystatus

Whilenot Ende&=1

    WaitInput

    If clicked(button1&)

        If FileExists(datei1$)

            Assign #1, datei1$
            Rewrite #1
            Print #1, "Test"
            Close #1
            ShellExec(datei1$,"open",1)

        Else

            print %Error
            MESSAGEBOX("Datei nicht vorhanden oder beschädigt!","Error X0002",0)
            Ende&=1

        EndIf

    EndIf

    If clicked(button5&) OR MenuItem(108)

        MESSAGEBOX("Das Programm wird jetzt beendet","INFO",0)
        Ende&=1

    f='./../../funktionsreferenzen/XProfan/endif/'>EndIf

Endwhile

So - venez chez euch aussi Fehlermeldung si son button1& Vous pouvez voulez? si oui, pourquoi? je glaub mon Hirn arbeitet trop cette Zeit nit plus so comme sollte

MfG
Gary12345

E.T.

...si oui, pourquoi?...

... na weil du es so programmiert la hâte

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Gary12345

faute déjà jadis trouvé. suis maintenant viel plus. maintenant venez qui schwierigste Part.

XProfan X2
MfG
Gary12345

19.02.2013 ▲