Help me with some functions?

[jdisme]

Hey guys, I'm making my first GUI and it is mostly a trial-and-error process. Anyways, I want to make a program that can be used to find all of the things about your computer. RAM, Videocard, ect... So far i have the biggest, ugliest, GUI you can imagine. But visuals come later. I was just wondering where the best place for me to find the functions for what I want to do.

My code so far:

#include <GUIConstants.au3>

Global $GUIWidth
Global $GUIHeight

$GUIWidth = 500
$GUIHeight = 500
$mem = MemGetStats()

$MYGUI = GUICreate ("System Specs", $GUIWidth, $GUIHeight)
GUISetState()

$Findrambtn = GUICtrlCreateButton ( "Calculate Ram", 25, 25 , 100 , 50)

Do
    
    $msg = GUIGetMsg()
    
    Select 
    Case $msg = $Findrambtn
        MsgBox(0, "Total physical RAM (KB):", $mem[1])
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

As you can see, all it can do so far is calculate your ram. So how about it? Any functions for other things?

[monoceres]

Edit: Nevermind misread your post

Edited May 12, 2008 by monoceres

[jdisme]

Adding a calculate CPU speed function. But remember, I'm new to autoit so I have another question, I know that CPU speed can be found at HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHZ but how would i show the results of that?

[monoceres]

I made two examples for you, the first one is simple and reads the first cores value, the second reads all the cores and saves them in an array

; Known Single core
$mhz = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
MsgBox(0, "", $mhz & " MHz")

; Unknown number of cores
Dim $array[1], $string
$i = 1
While 1
    $key = RegEnumKey("HKML\HARDWARE\DESCRIPTION\System\CentralProcessor\", $i)
    If @error Then ExitLoop
    $array[0] += 1
    ReDim $array[UBound($array) + 1]
    $array[UBound($array) - 1] = RegRead("HKML\HARDWARE\DESCRIPTION\System\CentralProcessor\" & $key, "~MHz")
    $i += 1
WEnd
For $j = 1 To UBound($array) - 1
    $string &= "Core " & $j - 1 & ": " & $array[$j] & " Mhz" & @CRLF
Next
MsgBox(0, $array[0] & " cores found", $string)

Edited May 12, 2008 by monoceres

[someone]

You should check out Computer Info UDF's by JSThePatriot. Good stuff