Sign in to follow this  
Followers 0
Woobs

System Information

6 posts in this topic

Hey all! Just got back from vacation and got my computer all assembled, so I sat down and decided to code! Played around with GUI's and the like and wanted to put it to practical use, so I made a program that I am dubbing "System Monitor". Bow down to the originality! :D It scans for hard drives, disc drives, removable drives and network drives and displays information about everything that it finds. It also displays total RAM, available RAM, how much RAM is being used, and all the processes running. And, last but not least, it displays your OS, computer name, user logged on, etc. Took me about 8 hours to get it all done. I would like it to display temperature and information about the CPU, but I didn't know how to do it. (Could you PM me some pointers?) I've noticed a problem with information about removable drives, it doesn't update if you remove it. I had a fix where I put an option on the Right Click context menu that refreshed in the information useing EnvUpdate(), but I forgot to put that version on the USB stick. :D But it works! You can get it here. I'm awaiting your comments.

Woobs out....

Share this post


Link to post
Share on other sites



#3 ·  Posted (edited)

fixed your code, on your for loops u were still doing fixed drives, not the drives u were supposed to be testing

; <AUT2EXE VERSION: 3.1.1.0>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Documents and Settings\Jesse Griffin\My Documents\Programs\System Monitor\Version 1\V1.0.au3>
; ----------------------------------------------------------------------------

;=======================================================================
;System Monitoring Utility
;By Jesse Griffin
;griffin.jesse@gmail.com
;Created on June 08,2006
;Monitors the conditions of drives and RAM
;=======================================================================

$g_szVersion = "System Monitor V 1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

;Variables
Dim $fixed
Dim $fixedtotalspace
Dim $fixedfreespace
Dim $fixedfiletype
Dim $disc
Dim $disctotalspace
Dim $discfreespace
Dim $discfiletype
Dim $removable
Dim $removabletotalspace
Dim $removablefreespace
Dim $removablefiletype
Dim $network
Dim $networktotalspace
Dim $networkfreespace
Dim $networkfiletype
Dim $mem = MemGetStats()
Dim $process
Dim $totalram = $mem[1] / 1024
Dim $availableram = $mem[2] / 1024
Dim $totalpagefile = $mem[3] / 1024
Dim $availablepagefile = $mem[4] / 1024
Dim $totalvirtual = $mem[5] / 1024
Dim $avaiablevirtual = $mem[6] / 1024
Dim $language
Dim $osversion
Dim $ostype


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------


; ------------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Language:       English
; Description:    Constants to be used in GUI applications.
;
; ------------------------------------------------------------------------------


; Events and messages
Global Const $GUI_EVENT_CLOSE           = -3
Global Const $GUI_EVENT_MINIMIZE        = -4
Global Const $GUI_EVENT_RESTORE         = -5
Global Const $GUI_EVENT_MAXIMIZE        = -6
Global Const $GUI_EVENT_PRIMARYDOWN     = -7
Global Const $GUI_EVENT_PRIMARYUP       = -8
Global Const $GUI_EVENT_SECONDARYDOWN   = -9
Global Const $GUI_EVENT_SECONDARYUP     = -10
Global Const $GUI_EVENT_MOUSEMOVE       = -11


; State
Global Const $GUI_AVISTOP       = 0
Global Const $GUI_AVISTART      = 1
Global Const $GUI_AVICLOSE      = 2

Global Const $GUI_CHECKED       = 1
Global Const $GUI_INDETERMINATE = 2
Global Const $GUI_UNCHECKED     = 4

Global Const $GUI_ACCEPTFILES   = 8

Global Const $GUI_SHOW          = 16
Global Const $GUI_HIDE          = 32
Global Const $GUI_ENABLE        = 64
Global Const $GUI_DISABLE       = 128

Global Const $GUI_FOCUS         = 256
Global Const $GUI_DEFBUTTON     = 512

Global Const $GUI_EXPAND        = 1024


; Font
Global Const $GUI_FONTITALIC    = 2
Global Const $GUI_FONTUNDER     = 4
Global Const $GUI_FONTSTRIKE    = 8


; Resizing
Global Const $GUI_DOCKAUTO          = 0x0001
Global Const $GUI_DOCKLEFT          = 0x0002
Global Const $GUI_DOCKRIGHT         = 0x0004
Global Const $GUI_DOCKHCENTER       = 0x0008
Global Const $GUI_DOCKTOP           = 0x0020
Global Const $GUI_DOCKBOTTOM        = 0x0040
Global Const $GUI_DOCKVCENTER       = 0x0080
Global Const $GUI_DOCKWIDTH         = 0x0100
Global Const $GUI_DOCKHEIGHT        = 0x0200

Global Const $GUI_DOCKSIZE          = 0x0300    ; width+height
Global Const $GUI_DOCKMENUBAR       = 0x0220    ; top+height
Global Const $GUI_DOCKSTATEBAR      = 0x0240    ; bottom+height
Global Const $GUI_DOCKALL           = 0x0322    ; left+top+width+height

; Window Styles
Global Const $WS_TILED              = 0
Global Const $WS_OVERLAPPED         = 0
Global Const $WS_MAXIMIZEBOX        = 0x00010000
Global Const $WS_MINIMIZEBOX        = 0x00020000
Global Const $WS_TABSTOP            = 0x00010000
Global Const $WS_GROUP              = 0x00020000
Global Const $WS_SIZEBOX            = 0x00040000
Global Const $WS_THICKFRAME         = 0x00040000
Global Const $WS_SYSMENU            = 0x00080000
Global Const $WS_HSCROLL            = 0x00100000
Global Const $WS_VSCROLL            = 0x00200000
Global Const $WS_DLGFRAME           = 0x00400000
Global Const $WS_BORDER             = 0x00800000
Global Const $WS_CAPTION            = 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW   = 0x00CF0000
Global Const $WS_TILEDWINDOW        = 0x00CF0000
Global Const $WS_MAXIMIZE           = 0x01000000
Global Const $WS_CLIPCHILDREN       = 0x02000000
Global Const $WS_CLIPSIBLINGS       = 0x04000000
Global Const $WS_DISABLED           = 0x08000000
Global Const $WS_VISIBLE            = 0x10000000
Global Const $WS_MINIMIZE           = 0x20000000
Global Const $WS_CHILD              = 0x40000000
Global Const $WS_POPUP              = 0x80000000
Global Const $WS_POPUPWINDOW        = 0x80880000

Global Const $DS_MODALFRAME         = 0x80
Global Const $DS_SETFOREGROUND      = 0x00000200
Global Const $DS_CONTEXTHELP        = 0x00002000

; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES         = 0x00000010
Global Const $WS_EX_APPWINDOW           = 0x00040000
Global Const $WS_EX_CLIENTEDGE          = 0x00000200
Global Const $WS_EX_CONTEXTHELP         = 0x00000400
Global Const $WS_EX_DLGMODALFRAME       = 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR       = 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW    = 0x00000300
Global Const $WS_EX_RIGHT               = 0x00001000
Global Const $WS_EX_STATICEDGE          = 0x00020000
Global Const $WS_EX_TOOLWINDOW          = 0x00000080
Global Const $WS_EX_TOPMOST             = 0x00000008
Global Const $WS_EX_TRANSPARENT         = 0x00000020
Global Const $WS_EX_WINDOWEDGE          = 0x00000100
Global Const $WS_EX_LAYERED             = 0x00080000
Global Const $LVS_EX_FULLROWSELECT      = 0x00000020


; Label/Pic/Icon
Global Const $SS_CENTER         = 1
Global Const $SS_RIGHT          = 2
Global Const $SS_ICON           = 3
Global Const $SS_BLACKRECT      = 4
Global Const $SS_GRAYRECT       = 5
Global Const $SS_WHITERECT      = 6
Global Const $SS_BLACKFRAME     = 7
Global Const $SS_GRAYFRAME      = 8
Global Const $SS_WHITEFRAME     = 9
Global Const $SS_SIMPLE         = 11
Global Const $SS_LEFTNOWORDWRAP = 12
Global Const $SS_BITMAP         = 15
Global Const $SS_ETCHEDHORZ     = 16
Global Const $SS_ETCHEDVERT     = 17
Global Const $SS_ETCHEDFRAME    = 18
Global Const $SS_NOPREFIX       = 0x0080
Global Const $SS_NOTIFY         = 0x0100
Global Const $SS_CENTERIMAGE    = 0x0200
Global Const $SS_RIGHTJUST      = 0x0400
Global Const $SS_SUNKEN         = 0x1000


; Button
Global Const $BS_BOTTOM         = 0x0800
Global Const $BS_CENTER         = 0x0300
Global Const $BS_DEFPUSHBUTTON  = 0x0001
Global Const $BS_LEFT           = 0x0100
Global Const $BS_MULTILINE      = 0x2000
Global Const $BS_PUSHBOX        = 0x000A
Global Const $BS_PUSHLIKE       = 0x1000
Global Const $BS_RIGHT          = 0x0200
Global Const $BS_RIGHTBUTTON    = 0x0020
Global Const $BS_TOP            = 0x0400
Global Const $BS_VCENTER        = 0x0C00
Global Const $BS_FLAT           = 0x8000
Global Const $BS_ICON           = 0x0040
Global Const $BS_BITMAP         = 0x0080

; Checkbox
Global Const $BS_3STATE         = 0x0005
Global Const $BS_AUTO3STATE     = 0x0006
Global Const $BS_AUTOCHECKBOX   = 0x0003
Global Const $BS_CHECKBOX       = 0x0002

; Combo
Global Const $CBS_SIMPLE            = 0x0001
Global Const $CBS_DROPDOWN          = 0x0002
Global Const $CBS_DROPDOWNLIST      = 0x0003
Global Const $CBS_AUTOHSCROLL       = 0x0040
Global Const $CBS_OEMCONVERT        = 0x0080
Global Const $CBS_SORT              = 0x0100
Global Const $CBS_NOINTEGRALHEIGHT  = 0x0400
Global Const $CBS_DISABLENOSCROLL   = 0x0800
Global Const $CBS_UPPERCASE         = 0x2000
Global Const $CBS_LOWERCASE         = 0x4000


; Listbox
Global Const $LBS_NOTIFY            = 0x0001
Global Const $LBS_SORT              = 0x0002
Global Const $LBS_USETABSTOPS       = 0x0080
Global Const $LBS_NOINTEGRALHEIGHT  = 0x0100
Global Const $LBS_DISABLENOSCROLL   = 0x1000
Global Const $LBS_NOSEL             = 0x4000
Global Const $LBS_STANDARD          = 0xA00003


; Edit/Input
Global Const $ES_LEFT               = 0
Global Const $ES_CENTER             = 1
Global Const $ES_RIGHT              = 2
Global Const $ES_MULTILINE          = 4
Global Const $ES_UPPERCASE          = 8
Global Const $ES_LOWERCASE          = 16
Global Const $ES_PASSWORD           = 32
Global Const $ES_AUTOVSCROLL        = 64
Global Const $ES_AUTOHSCROLL        = 128
Global Const $ES_NOHIDESEL          = 256
Global Const $ES_OEMCONVERT         = 1024
Global Const $ES_READONLY           = 2048
Global Const $ES_WANTRETURN         = 4096
Global Const $ES_NUMBER             = 8192
;Global Const $ES_DISABLENOSCROLL = 8192
;Global Const $ES_SUNKEN = 16384
;Global Const $ES_VERTICAL = 4194304
;Global Const $ES_SELECTIONBAR = 16777216


; Date
Global Const $DTS_SHORTDATEFORMAT   = 0
Global Const $DTS_UPDOWN            = 1
Global Const $DTS_SHOWNONE          = 2
Global Const $DTS_LONGDATEFORMAT    = 4
Global Const $DTS_TIMEFORMAT        = 9
Global Const $DTS_RIGHTALIGN        = 32

; Progress bar
Global Const $PBS_SMOOTH    = 1
Global Const $PBS_VERTICAL  = 4


; AVI clip
Global Const $ACS_CENTER            = 1
Global Const $ACS_TRANSPARENT       = 2
Global Const $ACS_AUTOPLAY          = 4
Global Const $ACS_TIMER             = 8
Global Const $ACS_NONTRANSPARENT    = 16


; Tab
Global Const $TCS_SCROLLOPPOSITE    = 0x0001
Global Const $TCS_BOTTOM            = 0x0002
Global Const $TCS_RIGHT             = 0x0002
Global Const $TCS_MULTISELECT       = 0x0004
Global Const $TCS_FLATBUTTONS       = 0x0008
Global Const $TCS_FORCEICONLEFT     = 0x0010
Global Const $TCS_FORCELABELLEFT    = 0x0020
Global Const $TCS_HOTTRACK          = 0x0040
Global Const $TCS_VERTICAL          = 0x0080
Global Const $TCS_TABS              = 0x0000
Global Const $TCS_BUTTONS           = 0x0100
Global Const $TCS_SINGLELINE        = 0x0000
Global Const $TCS_MULTILINE         = 0x0200
Global Const $TCS_RIGHTJUSTIFY      = 0x0000
Global Const $TCS_FIXEDWIDTH        = 0x0400
Global Const $TCS_RAGGEDRIGHT       = 0x0800
Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000
Global Const $TCS_OWNERDRAWFIXED    = 0x2000
Global Const $TCS_TOOLTIPS          = 0x4000
Global Const $TCS_FOCUSNEVER        = 0x8000


; TreeView
Global Const $TVS_HASBUTTONS        = 0x0001
Global Const $TVS_HASLINES          = 0x0002
Global Const $TVS_LINESATROOT       = 0x0004
;Global Const $TVS_EDITLABELS      = 0x0008
Global Const $TVS_DISABLEDRAGDROP   = 0x0010
Global Const $TVS_SHOWSELALWAYS     = 0x0020
;Global Const $TVS_RTLREADING     = 0x0040
Global Const $TVS_NOTOOLTIPS        = 0x0080
Global Const $TVS_CHECKBOXES        = 0x0100
Global Const $TVS_TRACKSELECT       = 0x0200
Global Const $TVS_SINGLEEXPAND      = 0x0400
;Global Const $TVS_INFOTIP        = 0x0800
Global Const $TVS_FULLROWSELECT     = 0x1000
Global Const $TVS_NOSCROLL          = 0x2000
Global Const $TVS_NONEVENHEIGHT     = 0x4000

; Slider
Global Const $TBS_AUTOTICKS = 0x0001
Global Const $TBS_VERT      = 0x0002
Global Const $TBS_HORZ      = 0x0000
Global Const $TBS_TOP       = 0x0004
Global Const $TBS_BOTTOM    = 0x0000
Global Const $TBS_LEFT      = 0x0004
Global Const $TBS_RIGHT     = 0x0000
Global Const $TBS_BOTH      = 0x0008
Global Const $TBS_NOTICKS   = 0x0010
Global Const $TBS_NOTHUMB   = 0x0080

; ListView
Global Const $LVS_REPORT            = 0x0001
Global Const $LVS_EDITLABELS        = 0x0200
Global Const $LVS_NOCOLUMNHEADER    = 0x4000
Global Const $LVS_NOSORTHEADER      = 0x8000
Global Const $LVS_SINGLESEL         = 0x0004
Global Const $LVS_SHOWSELALWAYS     = 0x0008

;Updown
Global Const $UDS_WRAP              = 0x0001
Global Const $UDS_ALIGNRIGHT        = 0x0004
Global Const $UDS_ALIGNLEFT         = 0x0008
Global Const $UDS_ARROWKEYS         = 0x0020
Global Const $UDS_HORZ              = 0x0040
Global Const $UDS_NOTHOUSANDS       = 0x0080

; Control default styles
Global Const $GUI_SS_DEFAULT_AVI        = $ACS_TRANSPARENT
Global Const $GUI_SS_DEFAULT_BUTTON     = 0
Global Const $GUI_SS_DEFAULT_CHECKBOX   = 0
Global Const $GUI_SS_DEFAULT_COMBO      = $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL
Global Const $GUI_SS_DEFAULT_DATE       = $DTS_LONGDATEFORMAT
Global Const $GUI_SS_DEFAULT_EDIT       = $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_GROUP      = 0
Global Const $GUI_SS_DEFAULT_ICON       = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_INPUT      = $ES_LEFT + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_LABEL      = 0
Global Const $GUI_SS_DEFAULT_LIST       = $LBS_SORT + $WS_BORDER + $WS_VSCROLL + $LBS_NOTIFY
Global Const $GUI_SS_DEFAULT_LISTVIEW   = $LVS_SHOWSELALWAYS + $LVS_SINGLESEL
Global Const $GUI_SS_DEFAULT_PIC        = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_PROGRESS   = 0
Global Const $GUI_SS_DEFAULT_RADIO      = 0
Global Const $GUI_SS_DEFAULT_SLIDER     = $TBS_AUTOTICKS
Global Const $GUI_SS_DEFAULT_TAB        = 0
Global Const $GUI_SS_DEFAULT_TREEVIEW   = $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_DISABLEDRAGDROP + $TVS_SHOWSELALWAYS
Global Const $GUI_SS_DEFAULT_UPDOWN     = $UDS_ALIGNRIGHT
Global Const $GUI_SS_DEFAULT_GUI        = $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------

GUISetFont(9, 400)


$Form1 = GUICreate("System Monitor", 631, 459, 185, 112)

$Tab1 = GUICtrlCreateTab(0, 0, 625, 457)
$TabSheet1 = GUICtrlCreateTabItem("Drives")
GUICtrlSetState(-1, $GUI_SHOW)

$Group1 = GUICtrlCreateGroup("Fixed", 24, 32, 241, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$fixedlistview = GUICtrlCreateListView("Drive|Total Space(MB)|Free Space(MB)|File Type", 31, 85, 225, 133)
$fixed = DriveGetDrive("fixed")
If Not @error Then
    GUICtrlCreateLabel($fixed[0] & " fixed drive(s)", 31, 50)
    For $i = 1 To $fixed[0]
        $fixedtotalspace = DriveSpaceTotal($fixed[$i])
        $fixedfreespace = DriveSpaceFree($fixed[$i])
        $fixedfiletype = DriveGetFileSystem($fixed[$i])
        GUICtrlCreateListViewItem($fixed[$i] & "|" & $fixedtotalspace & "|" & $fixedfreespace & "|" & $fixedfiletype, $fixedlistview)

    Next

EndIf

$Group2 = GUICtrlCreateGroup("CD/DVD ", 360, 32, 241, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$disclistview = GUICtrlCreateListView("Drive|Total Space (MB)|Free Space (MB)|File Type", 367, 85, 225, 133)
$disc = DriveGetDrive("cdrom")
If Not @error Then
    GUICtrlCreateLabel($disc[0] & " disc drive(s)", 367, 50)
    For $i = 1 To $disc[0]
        $disctotalspace = DriveSpaceTotal($disc[$i])
        $discfreespace = DriveSpaceFree($disc[$i])
        $discfiletype = DriveGetFileSystem($disc[$i])
        GUICtrlCreateListViewItem($disc[$i] & "|" & $disctotalspace & "|" & $discfreespace & "|" & $discfiletype, $disclistview)

    Next

EndIf
$Group3 = GUICtrlCreateGroup("Removable", 24, 248, 241, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$removablelistview = GUICtrlCreateListView("Drive|Total Space(MB)|Free Space(MB)|File Type", 31, 301, 225, 133)
$removable = DriveGetDrive("removable")
If Not @error Then
    GUICtrlCreateLabel($removable[0] & " removable drive(s)", 31, 266)
    For $i = 1 To $removable[0]
        $removabletotalspace = DriveSpaceTotal($removable[$i])
        $removablefreespace = DriveSpaceFree($removable[$i])
        $removablefiletype = DriveGetFileSystem($removable[$i])
        GUICtrlCreateListViewItem($removable[$i] & "|" & $removabletotalspace & "|" & $removablefreespace & "|" & $removablefiletype, $removablelistview)

    Next

EndIf

$Group4 = GUICtrlCreateGroup("Network", 360, 248, 241, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$networklistview = GUICtrlCreateListView("Drive|Total Space(MB)|Free Space(MB)|File Type", 367, 301, 225, 133)
$network = DriveGetDrive("network")
If Not @error Then
    GUICtrlCreateLabel($network[0] & " network drive(s)", 367, 301)
    For $i = 1 To $network[0]
        $networktotalspace = DriveSpaceTotal($network[$i])
        $networkfreespace = DriveSpaceFree($network[$i])
        $networkfiletype = DriveGetFileSystem($network[$i])
        GUICtrlCreateListViewItem($network[$i] & "|" & $networktotalspace & "|" & $networkfreespace & "|" & $networkfiletype, $networklistview)

    Next

EndIf


$TabSheet2 = GUICtrlCreateTabItem("RAM and Processes")

$Group5 = GUICtrlCreateGroup("Memory Load (Percentage)", 16, 40, 297, 169)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel($mem[0] & "%", 110, 84, 120, 100)
GUICtrlSetFont(-1, 40)

$Group6 = GUICtrlCreateGroup("RAM and Pagefile Information", 360, 40, 233, 169)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Total Physical RAM: " & Round($totalram, 2), 368, 63)
GUICtrlCreateLabel("Available Physical RAM: " & Round($availableram, 2), 368, 86)
GUICtrlCreateLabel("Total Pagefile: " & Round($totalpagefile, 2), 368, 109)
GUICtrlCreateLabel("Avaiable Pagefile: " & Round($availablepagefile, 2), 368, 132)
GUICtrlCreateLabel("Total Virtual RAM: " & Round($totalvirtual, 2), 368, 155)
GUICtrlCreateLabel("Avaiable Virtual RAM: " & Round($avaiablevirtual, 2), 368, 178)


$Group7 = GUICtrlCreateGroup("Processes Running", 16, 232, 585, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$processlistview = GUICtrlCreateListView("Process Name|Process ID", 24, 255, 569, 150)
$process = ProcessList()
For $i = 1 To $process[0][0]
    GUICtrlCreateListViewItem($process[$i][0] & "|" & $process[$i][1], $processlistview)
Next




$TabSheet3 = GUICtrlCreateTabItem("System Information")

$Group8 = GUICtrlCreateGroup("Desktop Information", 16, 48, 249, 145)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Desktop Width: " & @DesktopWidth, 24, 71)
GUICtrlCreateLabel("Desktop Heigth: " & @DesktopHeight, 24, 94)
GUICtrlCreateLabel("Desktop Depth (Bits per Pixel): " & @DesktopDepth, 24, 117)
GUICtrlCreateLabel("Desktop Refresh Rate: " & @DesktopRefresh, 24, 140)


$Group9 = GUICtrlCreateGroup("Operating System Information", 328, 48, 249, 145)
GUICtrlCreateGroup("", -99, -99, 1, 1)


Select
    Case StringInStr("0413,0813", @OSLang)
        $language = "Dutch"

    Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809,2c09,3009,3409", @OSLang)
        $language = "English"

    Case StringInStr("040c,080c,0c0c,100c,140c,180c", @OSLang)
        $language = "French"

    Case StringInStr("0407,0807,0c07,1007,1407", @OSLang)
        $language = "German"

    Case StringInStr("0410,0810", @OSLang)
        $language = "Italian"

    Case StringInStr("0414,0814", @OSLang)
        $language = "Norwegian"

    Case StringInStr("0415", @OSLang)
        $language = "Polish"

    Case StringInStr("0416,0816", @OSLang)
        $language = "Portugese"

    Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a,2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", @OSLang)
        $language = "Spanish"

    Case StringInStr("041d,081d", @OSLang)
        $language = "Swedish"

    Case Else
        $language = "Other"

EndSelect

GUICtrlCreateLabel("OS Language: " & $language, 336, 71)

Select
    Case StringInStr("WIN32_NT", @OSTYPE)
        $ostype = "NT/2000/XP/2003"
    Case Else
        $ostype = "95/95/ME"
EndSelect
GUICtrlCreateLabel("OS Type: " & $ostype, 336, 94)

Select
    Case StringInStr("WIN_2003", @OSVersion)
        $osversion = "Windows 2003"
    Case StringInStr("WIN_XP", @OSVersion)
        $osversion = "Windows XP"
    Case StringInStr("WIN_2000", @OSVersion)
        $osversion = "Windows 2000"
    Case StringInStr("WIN_NT4", @OSVersion)
        $osversion = "Windows NT 4"
    Case StringInStr("WIN_ME", @OSVersion)
        $osversion = "Windows ME"
    Case StringInStr("WIN_98", @OSVersion)
        $osversion = "Windows 98"
    Case Else
        $osversion = "WIndows 95"
EndSelect
GUICtrlCreateLabel("OS Version: " & $osversion, 336, 117)
GUICtrlCreateLabel("OS Service Pack: " & @OSServicePack, 336, 140)





$Group10 = GUICtrlCreateGroup("Computer Information", 16, 232, 249, 145)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Computer Name: " & @ComputerName, 24, 255)
GUICtrlCreateLabel("Current Logged On User: " & @UserName, 24, 278)

$Group11 = GUICtrlCreateGroup("IP Address", 328, 232, 249, 145)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("IP Address #1: " & @IPAddress1, 351, 255)
GUICtrlCreateLabel("IP Address #2: " & @IPAddress2, 351, 278)
GUICtrlCreateLabel("IP Address #3: " & @IPAddress3, 351, 301)
GUICtrlCreateLabel("IP Address #4: " & @IPAddress4, 351, 324)


GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

$trackmenu = GUICtrlCreateContextMenu()
$aboutitem = GUICtrlCreateMenuitem("About", $trackmenu)
; next one creates a menu separator (line)
GUICtrlCreateMenuitem("", $trackmenu)
$exititem = GUICtrlCreateMenuitem("Exit", $trackmenu)

GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $exititem Or $msg = -3 Or $msg = -1 Then ExitLoop
    If $msg = $aboutitem Then MsgBox(0, "About", "Made by Jesse Griffin. Contact me at griffin.jesse@gmail.com")
    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

GUIDelete()





; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Jesse Griffin\My Documents\Programs\System Monitor\Version 1\V1.0.au3>
; ----------------------------------------------------------------------------
Edited by thatsgreat2345

Share this post


Link to post
Share on other sites

Hey all! Just got back from vacation and got my computer all assembled, so I sat down and decided to code! Played around with GUI's and the like and wanted to put it to practical use, so I made a program that I am dubbing "System Monitor". Bow down to the originality! :D It scans for hard drives, disc drives, removable drives and network drives and displays information about everything that it finds. It also displays total RAM, available RAM, how much RAM is being used, and all the processes running. And, last but not least, it displays your OS, computer name, user logged on, etc. Took me about 8 hours to get it all done. I would like it to display temperature and information about the CPU, but I didn't know how to do it. (Could you PM me some pointers?) I've noticed a problem with information about removable drives, it doesn't update if you remove it. I had a fix where I put an option on the Right Click context menu that refreshed in the information useing EnvUpdate(), but I forgot to put that version on the USB stick. :D But it works! You can get it here. I'm awaiting your comments.

Woobs out....

where is the code ?

just the an EXE ?

...hmmm...., not cool

Sorry, where are my manners? If it's any consolation, it's decompilable. As is all me .exe's. I'll add the source when I get back to my computer.

fixed your code, on your for loops u were still doing fixed drives, not the drives u were supposed to be testing

Really? I thought I had changed that. I used Copy/Paste to make life easier, but I guess it didn't work... Thanks for fixing that.

Share this post


Link to post
Share on other sites

Can you display CPU temperature yet :)? I'd like that.

Share this post


Link to post
Share on other sites

The site gives erro:

404: File Not Found

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0