XProfan

- Page 2 -

Gary12345

the means, that it on 64bit systems with max. 4GB runs or only on 32bit systems? be the english with my 15 not übermächtig, bwohl I komischerweise a english Training have xD

Win XP 32bit with 2GB Ram goes neither.

MfG
Gary12345

Julian
Schmidt

hmmm...are here still a couple in of my Alterklasse on the way. be 16. :O :O
Should sowohl on 64bit-Systemen with less or. same 4 GB RAM or 32bit-Systemen funzen, as long as The fountain is correct ^^

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

Gary12345

32bit working not. 64bit have I none Testpc there,there my PC More as 4GB Ram has

. the Comic is Yes, I of/ one the few be, the itself only for Malware interested and there too a Training power.(and too only against Malware Tools write wants - 0 interest for Games - ok sometimes zocke I time FIfa, but not often) If you Problems have, kannste you always report

. now but back to that serious the thing, wat goes there schief?

MfG
Gary12345

Julian
Schmidt

Habs time quick in Ner VM probiert. WinXP x86 with 3300MB Ram.

On my computer with Win8 x64 with 16GB Ram come too only 0MB.

screen.jpg	36 kB

Hochgeladen:	02/18/13

Downloadcounter:
		Download

Gary12345

unsure API. gives it there a secure Solution?

couple hints of known get:
64 bit = GlobalMemoryStatusEx
32bit = ?

MfG
Gary12345

Julian
Schmidt

standing into supra geposteten Link in PseudoCode

if comp64 then begin
GlobalMemoryStatusex
....
end
else begin
Global memory status
....
end;

Gary12345

everything plenty To tricky. will be it time pass so leave.

XProfan X2
MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

If I time barge must.

The Error appeal of Global memory status or GlobalMemoryStatusEx lying in the Strukturgrösse. here go partly 64bit-Integer expects. The Strukturgrösse is correct means not überberein. here time one altes Bespiel, the shows as correctly. goes, alike how much main memory installs is, 32-bit or 64-bit Betriebssystem.
Compile Mark Separation

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 Thanks!

XProfan X2
MfG
Gary12345

Gary12345

Compile Mark Separation

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='./../../Function-References/XProfan/endif/'>EndIf

EndWhile

so - comes with you too Error Message if your button1& You can want? if so, Why? I mean my Hirn operates to this Time nit longer so as ought to

MfG
Gary12345

E.T.

...if so, Why?...

... well because You it so program have

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

Error already long ago found. be now plenty moreover. now comes the schwierigste Part.

XProfan X2
MfG
Gary12345

02/19/13 ▲