Skrip Posted June 27, 2006 Share Posted June 27, 2006 (edited) Simple program for reading computer information. Needs beta VERSION 1.0 -Detects Computer Name. -Detects IP Address. -Able to run a .exe though it. (Not Finished) -Detects Operating System. -Detects drives. -Detects cd-rom drives. -Detects removeable drives. -Detects Total space on any drive. -Detects FREE space on any drive. -Detects Monitor pixels. -Detects Montior refresh rate. -Detects where you place the program on your drive. -Detects Processes. VERSION 1.1 -Adds Process system. -Adds Title system. VERSION 1.2 -Fixed an error. -Detects if you're connected to the internet. VERSION 1.4 (LATEST) -Adds Winshow. -Adds WinHide. -Fixes WinKill. -Adds Retest internet connection button. -Adds Credits, -Fixes Winlist -Fixes Process list expandcollapse popup;VERSION 1.4 #region Vars $Cname = @ComputerName $Width = @DesktopWidth $Height = @DesktopHeight $Refresh = @DesktopRefresh $Ip = @IPAddress1 $OS = @OSVersion $HomeD = @HomeDrive $scriptdir = @ScriptFullPath #endregion Vars #include <GuiConstants.au3> #include <Process.au3> #region Main Script GuiCreate("Computer Information", 374, 345,(@DesktopWidth-364)/2, (@DesktopHeight-225)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Label_1 = GuiCtrlCreateLabel("Computer Name:", 10, 10, 100, 20) $Label_2 = GuiCtrlCreateLabel($Cname, 100, 10, 90, 20) $Label_3 = GuiCtrlCreateLabel("Monitor:", 10, 40, 50, 20) $Label_4 = GuiCtrlCreateLabel("Width:" & $Width & " Pixels", 60, 40, 90, 20) $Label_5 = GuiCtrlCreateLabel("Height:" & $Height & " Pixels", 60, 60, 90, 20) $Label_6 = GuiCtrlCreateLabel("Refresh Rate:" & $Refresh, 60, 80, 110, 20) $Label_7 = GuiCtrlCreateLabel("IP Address:" & $Ip, 10, 110, 160, 20) $Group_8 = GuiCtrlCreateGroup("Operating System", 180, 10, 140, 45) $Credits = GUICtrlCreateButton("Credits", 320, 15, 50, 45) $Label_9 = GuiCtrlCreateLabel($OS, 190, 30, 120, 20) $Label_10 = GuiCtrlCreateLabel("Home Drive: " & $HomeD, 180, 70, 150, 20) $Button_11 = GuiCtrlCreateButton("Find All Drives", 180, 90, 120, 20) $Button_12 = GuiCtrlCreateButton("Find CD-Drives", 180, 110, 120, 20) $Button_13 = GuiCtrlCreateButton("Find Removable Drives", 180, 130, 120, 20) $Label_14 = GuiCtrlCreateLabel("The Full Path for this Program is: " & $scriptdir, 10, 180, 350, 20) $Button_15 = GuiCtrlCreateButton("Get size of drive:", 170, 150, 140, 20) $winClose_R = GUICtrlCreateRadio("WinClose", 117, 240, 80, 17) $winKill_R = GUICtrlCreateRadio("WinKill", 117, 220, 80, 17) $winshow_R = GUICtrlCreateRadio("Win Show", 117, 200, 80, 17) $winhide_R = GUICtrlCreateRadio("Win Hide", 197, 200, 80, 17) $processCombo_C = GUICtrlCreateCombo("", 10, 290, 201, 21) $processClose_R = GUICtrlCreateRadio("ProcessClose", 197, 220, 80, 17) $pid_R = GUICtrlCreateRadio("ProcessID", 197, 240, 80, 17) $Go_B = GUICtrlCreateButton("GO", 10, 223, 89, 30) $status_L = GUICtrlCreateLabel("Ready...", 10, 270, 180, 17, $SS_SUNKEN) $input_exe = GUICtrlCreateInput("Type what program to run", 10, 130, 150, 20) $button_run = GUICtrlCreateButton("Run", 10, 150, 150, 20) $Internet = GUICtrlCreateLabel("Testing Internet Connection...", 10, 315, 325, 20, $SS_SUNKEN) $cd_o = GUICtrlCreateButton("Open Drive", 300, 90, 70, 20) $retest_c = GUICtrlCreateButton("Retest Internet Connection.", 220, 290, 140, 20) GuiSetState() _INITIATE() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_11 $pass = 1 $dr_all = DriveGetDrive("all") If @error Then Msgbox(0, "ERROR", "No Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_all[0] & " drives") For $i = 1 to $dr_all[0] MsgBox(4096,"Drive " & $i, $dr_all[$i]) Next EndIf EndIf Case $msg = $Button_12 $pass = 1 $dr_cd = DriveGetDrive("CDROM") If @error Then Msgbox(0, "ERROR", "No CDROM Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_cd[0] & " drives") For $i = 1 to $dr_cd[0] MsgBox(4096,"Drive " & $i, $dr_cd[$i]) Next EndIf EndIf Case $msg = $Button_13 $pass = 1 $dr_removable = DriveGetDrive("REMOVABLE") If @error Then Msgbox(0, "ERROR", "No Removable Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_removable[0] & " drives") For $i = 1 to $dr_removable[0] MsgBox(4096,"Drive " & $i, $dr_removable[$i]) Next EndIf EndIf Case $msg = $Button_15 $SD = InputBox("Selection", "Please Enter the drive path that you want the size of.", "C:\") $SDI = DriveSpaceTotal($SD) $SDI2 = DriveSpaceFree($SD) If Not @error Then MsgBox(0, "Drive Space for Drive: " & $SD, "Drive total space: " & $SDI & " MegaBytes") MsgBox(0, "Drive Free Space for Drive: " & $SD, "Drive free space: " & $SDI2 & " MegaBytes") EndIf If @error Then MsgBox(0, "ERROR: DRIVE NOT FOUND!!!", "---That is an invalid drive path, please enter correct path!!!---") EndIf Case $msg = $Go_B If GUICtrlRead($winClose_R) = $GUI_CHECKED Then _winClose() If GUICtrlRead($winKill_R) = $GUI_CHECKED Then _winKill() If GUICtrlRead($winshow_R) = $GUI_CHECKED Then _winshow() If GUICtrlRead($winhide_R) = $GUI_CHECKED Then _winhide() Case $msg = $processClose_R _processCombo() Case $msg = $winKill_R Or $msg = $winClose_R _winListCombo() Case $msg = $button_run $read = GUICtrlRead($input_exe) MsgBox(0, "Sorry", "i'll fix this in a later version.") MsgBox(0, "Sorry", "I'll add a path input box soon don't worry!") Case $msg = $cd_o $o = InputBox("Open", "Please enter the Drive you want to open. If it is a CD drive the disk will eject", "C:\") CDTray($o, "OPEN") If @error = 0 Then Run('Explorer.exe "' & $o & '"', @WorkingDir, @SW_SHOW) EndIf Case $msg = $retest_c GuiCtrlSetData($Internet, GetToggle3r(GuiCtrlRead($Internet))) _Internet() Case $msg = $Credits MsgBox(0, "Credits", "This program was made by Firestorm.") MsgBox(0, "Q/C", "Questions? Comments? Errors? E-mail me at firestorm037@hotmail.com!") EndSelect WEnd Exit #endregion Main Script #region Functions Func _INITIATE() _processCombo() _winListCombo() _Internet() EndFunc Func _winClose() If WinExists(GUICtrlRead($processCombo_C)) Then WinClose(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winClose Func _winKill() If WinExists(GUICtrlRead($processCombo_C)) Then WinKill(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winKill Func _processClose() If ProcessExists(GUICtrlRead($processCombo_C)) Then ProcessClose(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Process doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_processClose Func _killByPID() If _ProcessGetName(GUICtrlRead($processCombo_C)) <> '' Then $rc = _RunDOS("start taskkill /PID " & GUICtrlRead($processCombo_C) & " /T") GUICtrlSetData($status_L, "ProcessID " & GUICtrlRead($processCombo_C) & " - (" & _ProcessGetName(GUICtrlRead($processCombo_C)) & ")" & " killed") Sleep(2500) GUICtrlSetData($status_L, "Ready...") Else GUICtrlSetData($status_L, "ProcessID doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_killByPID Func _processCombo() Dim $processArray = ProcessList() For $i = 1 To $processArray[0][0] GUICtrlSetData($processCombo_C, $processArray[$i][0]) Next EndFunc ;==>_processCombo Func _winListCombo() Dim $windowArray = WinList() For $i = 1 To $windowArray[0][0] ; Only display visble windows that have a title If $windowArray[$i][0] <> "" Then;AND IsVisible($var[$i][1]) Then GUICtrlSetData($processCombo_C, $windowArray[$i][0]) EndIf Next EndFunc ;==>_winListCombo Func _winshow() If WinExists(GUICtrlRead($processCombo_C)) Then WinSetState(GUICtrlRead($processCombo_C),"", @SW_SHOW) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winshow Func _winhide() If WinExists(GUICtrlRead($processCombo_C)) Then WinSetState(GUICtrlRead($processCombo_C),"", @SW_HIDE) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winhide Func _Internet() Sleep(500) $var = Ping("www.hiddensoft.com") If $var Then ; also possible: If @error = 0 Then ... GuiCtrlSetData($Internet, GetToggle1(GuiCtrlRead($Internet))) Else GuiCtrlSetData($Internet, GetToggle2(GuiCtrlRead($Internet))) EndIf EndFunc Func GetToggle1($stext) if $stext = "Testing Internet Connection..." then GUICtrlSetColor($Internet, "0x0000ff") return "You are connected to the internet!" else return " " endif EndFunc Func GetToggle2($stext) if $stext = "Testing Internet Connection..." then GUICtrlSetColor($Internet, "0xff0000") return "WARNING! You are NOT connected to the internet!" else return " " endif EndFunc Func GetToggle3r($stext) if $stext = "WARNING! You are NOT connected to the internet!" OR "You are connected to the internet!" then GUICtrlSetColor($Internet, "0x000000") return "Testing Internet Connection..." else return " " endif EndFunc #endregion Functions Ideas? Want something added? Errors? Edited June 28, 2006 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
nitekram Posted June 27, 2006 Share Posted June 27, 2006 got an error E:\Utilities\new computer info.au3(15,79) : ERROR: $WS_CLIPSIBLINGS previously declared as a 'Const' If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ E:\Utilities\new computer info.au3 - 1 error(s), 0 warning(s) 2¢ All by me:"Sometimes you have to go back to where you started, to get to where you want to go." "Everybody catches up with everyone, eventually" "As you teach others, you are really teaching yourself." From my dad "Do not worry about yesterday, as the only thing that you can control is tomorrow." WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2 AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming Tips Excel Changes ControlHover.UDF GDI_Plus Draw_On_Screen GDI Basics GDI_More_Basics GDI Rotate GDI Graph GDI CheckExistingItems GDI Trajectory Replace $ghGDIPDll with $__g_hGDIPDll DLL 101? Array via Object GDI Swimlane GDI Plus French 101 Site GDI Examples UEZ GDI Basic Clock GDI Detection Ternary operator Link to comment Share on other sites More sharing options...
Skrip Posted June 27, 2006 Author Share Posted June 27, 2006 (edited) Hmm, I don't get that error on the normal or beta. But try removing line 14. And make sure you are using the newest beta. Edited June 27, 2006 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
nitekram Posted June 27, 2006 Share Posted June 27, 2006 Hmm, I don't get that error on the normal or beta. But try removing line 14.And make sure you are using the newest beta.works fine - line 15 only because I copied the top blank line 2¢ All by me:"Sometimes you have to go back to where you started, to get to where you want to go." "Everybody catches up with everyone, eventually" "As you teach others, you are really teaching yourself." From my dad "Do not worry about yesterday, as the only thing that you can control is tomorrow." WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2 AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming Tips Excel Changes ControlHover.UDF GDI_Plus Draw_On_Screen GDI Basics GDI_More_Basics GDI Rotate GDI Graph GDI CheckExistingItems GDI Trajectory Replace $ghGDIPDll with $__g_hGDIPDll DLL 101? Array via Object GDI Swimlane GDI Plus French 101 Site GDI Examples UEZ GDI Basic Clock GDI Detection Ternary operator Link to comment Share on other sites More sharing options...
Skrip Posted June 27, 2006 Author Share Posted June 27, 2006 Ah, glad it works! [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
nitekram Posted June 27, 2006 Share Posted June 27, 2006 Ah, glad it works!using beta 3.1.1.111 2¢ All by me:"Sometimes you have to go back to where you started, to get to where you want to go." "Everybody catches up with everyone, eventually" "As you teach others, you are really teaching yourself." From my dad "Do not worry about yesterday, as the only thing that you can control is tomorrow." WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2 AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming Tips Excel Changes ControlHover.UDF GDI_Plus Draw_On_Screen GDI Basics GDI_More_Basics GDI Rotate GDI Graph GDI CheckExistingItems GDI Trajectory Replace $ghGDIPDll with $__g_hGDIPDll DLL 101? Array via Object GDI Swimlane GDI Plus French 101 Site GDI Examples UEZ GDI Basic Clock GDI Detection Ternary operator Link to comment Share on other sites More sharing options...
Skrip Posted June 27, 2006 Author Share Posted June 27, 2006 Is that bad? [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
nitekram Posted June 27, 2006 Share Posted June 27, 2006 Is that bad?no that is the version that I am running that caused the error 2¢ All by me:"Sometimes you have to go back to where you started, to get to where you want to go." "Everybody catches up with everyone, eventually" "As you teach others, you are really teaching yourself." From my dad "Do not worry about yesterday, as the only thing that you can control is tomorrow." WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2 AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming Tips Excel Changes ControlHover.UDF GDI_Plus Draw_On_Screen GDI Basics GDI_More_Basics GDI Rotate GDI Graph GDI CheckExistingItems GDI Trajectory Replace $ghGDIPDll with $__g_hGDIPDll DLL 101? Array via Object GDI Swimlane GDI Plus French 101 Site GDI Examples UEZ GDI Basic Clock GDI Detection Ternary operator Link to comment Share on other sites More sharing options...
Skrip Posted June 27, 2006 Author Share Posted June 27, 2006 (edited) Please re-read first post, provides more information!Update 1.2-A few error's fixed-Now detect's internet connection.;VERSION 1.2 #region Vars $Cname = @ComputerName $Width = @DesktopWidth $Height = @DesktopHeight $Refresh = @DesktopRefresh $Ip = @IPAddress1 $OS = @OSVersion $HomeD = @HomeDrive $scriptdir = @ScriptFullPath #endregion Vars #include <GuiConstants.au3> #include <Process.au3> #region Main Script GuiCreate("Computer Information", 344, 345,(@DesktopWidth-364)/2, (@DesktopHeight-225)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Label_1 = GuiCtrlCreateLabel("Computer Name:", 10, 10, 100, 20) $Label_2 = GuiCtrlCreateLabel($Cname, 100, 10, 90, 20) $Label_3 = GuiCtrlCreateLabel("Monitor:", 10, 40, 50, 20) $Label_4 = GuiCtrlCreateLabel("Width:" & $Width & " Pixels", 60, 40, 90, 20) $Label_5 = GuiCtrlCreateLabel("Height:" & $Height & " Pixels", 60, 60, 90, 20) $Label_6 = GuiCtrlCreateLabel("Refresh Rate:" & $Refresh, 60, 80, 110, 20) $Label_7 = GuiCtrlCreateLabel("IP Address:" & $Ip, 10, 110, 160, 20) $Group_8 = GuiCtrlCreateGroup("Operating System", 180, 10, 140, 45) $Label_9 = GuiCtrlCreateLabel($OS, 190, 30, 120, 20) $Label_10 = GuiCtrlCreateLabel("Home Drive: " & $HomeD, 180, 70, 150, 20) $Button_11 = GuiCtrlCreateButton("Find All Drives", 180, 90, 120, 20) $Button_12 = GuiCtrlCreateButton("Find CD-Drives", 180, 110, 120, 20) $Button_13 = GuiCtrlCreateButton("Find Removable Drives", 180, 130, 120, 20) $Label_14 = GuiCtrlCreateLabel("The Full Path for this Program is: " & $scriptdir, 10, 180, 350, 30) $Button_15 = GuiCtrlCreateButton("Get size of drive:", 170, 150, 140, 20) $taskkill_R = GUICtrlCreateRadio("Taskkill", 117, 220, 80, 17) $winClose_R = GUICtrlCreateRadio("WinClose", 117, 240, 80, 17) $winKill_R = GUICtrlCreateRadio("WinKill", 197, 260, 80, 17) $processCombo_C = GUICtrlCreateCombo("", 10, 290, 201, 21) $processClose_R = GUICtrlCreateRadio("ProcessClose", 197, 220, 80, 17) $pid_R = GUICtrlCreateRadio("ProcessID", 197, 240, 80, 17) $Go_B = GUICtrlCreateButton("GO", 10, 223, 89, 30) $status_L = GUICtrlCreateLabel("Ready...", 10, 270, 180, 17, $SS_SUNKEN) $input_exe = GUICtrlCreateInput("Type what program to run", 10, 130, 150, 20) $button_run = GUICtrlCreateButton("Run", 10, 150, 150, 20) $Internet = GUICtrlCreateLabel("Testing Internet Connection...", 10, 315, 325, 20, $SS_SUNKEN) GuiSetState() _processCombo() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_11 $pass = 1 $dr_all = DriveGetDrive("all") If @error Then Msgbox(0, "ERROR", "No Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_all[0] & " drives") For $i = 1 to $dr_all[0] MsgBox(4096,"Drive " & $i, $dr_all[$i]) Next EndIf EndIf Case $msg = $Button_12 $pass = 1 $dr_cd = DriveGetDrive("CDROM") If @error Then Msgbox(0, "ERROR", "No CDROM Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_cd[0] & " drives") For $i = 1 to $dr_cd[0] MsgBox(4096,"Drive " & $i, $dr_cd[$i]) Next EndIf EndIf Case $msg = $Button_13 $pass = 1 $dr_removable = DriveGetDrive("REMOVABLE") If @error Then Msgbox(0, "ERROR", "No Removable Drives found.") $pass = 0 EndIf If $pass = 1 Then If NOT @error Then MsgBox(4096,"", "Found " & $dr_removable[0] & " drives") For $i = 1 to $dr_removable[0] MsgBox(4096,"Drive " & $i, $dr_removable[$i]) Next EndIf EndIf Case $msg = $Button_15 $SD = InputBox("Selection", "Please Enter the drive path that you want the size of.", "C:\") $SDI = DriveSpaceTotal($SD) $SDI2 = DriveSpaceFree($SD) If Not @error Then MsgBox(0, "Drive Space for Drive: " & $SD, "Drive total space: " & $SDI & " MegaBytes") MsgBox(0, "Drive Free Space for Drive: " & $SD, "Drive free space: " & $SDI2 & " MegaBytes") EndIf If @error Then MsgBox(0, "ERROR: DRIVE NOT FOUND!!!", "---That is an invalid drive path, please enter correct path!!!---") EndIf Case $msg = $Go_B If GUICtrlRead($taskkill_R) = $GUI_CHECKED Then _taskkill() If GUICtrlRead($winClose_R) = $GUI_CHECKED Then _winClose() If GUICtrlRead($winKill_R) = $GUI_CHECKED Then _winKill() Case $msg = $taskkill_R Or $msg = $processClose_R _processCombo() Case $msg = $winKill_R Or $msg = $winClose_R _winListCombo() Case $msg = $button_run $read = GUICtrlRead($input_exe) Run($read & ".exe") If @error = 1 Then MsgBox(0, "ERROR!", "That is an invalid .exe, if it is not, this will be fixed in a later version.") EndIf EndSelect WEnd Exit #endregion Main Script #region Functions Func _taskkill() $rc = _RunDOS("start taskkill /F /IM " & GUICtrlRead($processCombo_C) & " /T") GUICtrlSetData($status_L, "Process " & GUICtrlRead($processCombo_C) & " killed") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndFunc ;==>_taskkill Func _winClose() If WinExists(GUICtrlRead($processCombo_C)) Then WinClose(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winClose Func _winKill() If WinExists(GUICtrlRead($processCombo_C)) Then WinKill(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Window doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_winKill Func _processClose() If ProcessExists(GUICtrlRead($processCombo_C)) Then ProcessClose(GUICtrlRead($processCombo_C)) Else GUICtrlSetData($status_L, "Process doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_processClose Func _killByPID() If _ProcessGetName(GUICtrlRead($processCombo_C)) <> '' Then $rc = _RunDOS("start taskkill /PID " & GUICtrlRead($processCombo_C) & " /T") GUICtrlSetData($status_L, "ProcessID " & GUICtrlRead($processCombo_C) & " - (" & _ProcessGetName(GUICtrlRead($processCombo_C)) & ")" & " killed") Sleep(2500) GUICtrlSetData($status_L, "Ready...") Else GUICtrlSetData($status_L, "ProcessID doesn't exist") Sleep(2500) GUICtrlSetData($status_L, "Ready...") EndIf EndFunc ;==>_killByPID Func _processCombo() Dim $processArray = ProcessList() For $i = 1 To $processArray[0][0] GUICtrlSetData($processCombo_C, $processArray[$i][0]) Next _Internet() EndFunc ;==>_processCombo Func _winListCombo() Dim $windowArray = WinList() For $i = 1 To $windowArray[0][0] ; Only display visble windows that have a title If $windowArray[$i][0] <> "" Then;AND IsVisible($var[$i][1]) Then GUICtrlSetData($processCombo_C, $windowArray[$i][0]) EndIf Next EndFunc ;==>_winListCombo Func _Internet() $var = Ping("www.hiddensoft.com",2500) If $var Then ; also possible: If @error = 0 Then ... GuiCtrlSetData($Internet, GetToggle1(GuiCtrlRead($Internet))) Else GuiCtrlSetData($Internet, GetToggle2(GuiCtrlRead($Internet))) EndIf EndFunc Func GetToggle1($stext) if $stext = "Testing Internet Connection..." then GUICtrlSetColor($Internet, "0x0000ff") return "You are connected to the internet!" else return " " endif EndFunc Func GetToggle2($stext) if $stext = "Testing Internet Connection..." then GUICtrlSetColor($Internet, "0xff0000") return "WARNING! You are NOT connected to the internet!" else return " " endif EndFunc #endregion FunctionsPlease re-read first post, provides more information! Edited June 28, 2006 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
ptrex Posted June 28, 2006 Share Posted June 28, 2006 (edited) @Firestorm Looks good, but it would be nice to be able to run it for remote PC's as well. I must admid I never hear of TASKKILL before. Good Job !! Edited June 28, 2006 by ptrex Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New Link to comment Share on other sites More sharing options...
Skrip Posted June 28, 2006 Author Share Posted June 28, 2006 (edited) Ya, Thank you. Nor have I about the taskkill, I got that command for sombody else, obviously didn't work, i'll fix in next build.UPDATE --> VERSION 1.4 <-- SEE FIRST POST Edited June 28, 2006 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] 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