Woobs Posted June 10, 2006 Share Posted June 10, 2006 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! 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. But it works! You can get it here. I'm awaiting your comments.Woobs out.... Link to comment Share on other sites More sharing options...
argumentum Posted June 10, 2006 Share Posted June 10, 2006 where is the code ? just the an EXE ? ...hmmm...., not cool Follow the link to my code contribution ( and other things too ). FAQ - Please Read Before Posting. Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted June 10, 2006 Share Posted June 10, 2006 (edited) fixed your code, on your for loops u were still doing fixed drives, not the drives u were supposed to be testing expandcollapse popup; <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 June 10, 2006 by thatsgreat2345 Link to comment Share on other sites More sharing options...
Woobs Posted June 10, 2006 Author Share Posted June 10, 2006 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! 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. 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 coolSorry, 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 testingReally? 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. Link to comment Share on other sites More sharing options...
sensalim Posted May 18, 2008 Share Posted May 18, 2008 Can you display CPU temperature yet ? I'd like that. Link to comment Share on other sites More sharing options...
ludocus Posted May 18, 2008 Share Posted May 18, 2008 The site gives erro: 404: File Not Found Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now