Dhilip89 Posted August 19, 2006 Share Posted August 19, 2006 I wrote this script for some purposes. I use this for check viruses from my friends pc. expandcollapse popup#include <GUIConstants.au3> #include <Date.au3> #NoTrayIcon $Form1 = GUICreate("Simple System Scanner v1.0", 330, 345, 336, 227) $Group1 = GUICtrlCreateGroup("Results:", 8, 4, 313, 245) $Edit1 = GUICtrlCreateEdit("", 16, 20, 297, 221) GUICtrlSetData(-1, "") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&About", 248, 284, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Scan Now", 248, 256, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Quit", 248, 312, 75, 25, 0) $Group2 = GUICtrlCreateGroup("Options:", 8, 252, 233, 85) $Checkbox1 = GUICtrlCreateCheckbox("Running Proccesses", 20, 272, 117, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox2 = GUICtrlCreateCheckbox("Available Startup Registry", 20, 292, 141, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox3 = GUICtrlCreateCheckbox("Save *.log file to C:\SysScanner\", 20, 312, 177, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 GUICtrlSetData($Edit1,'System Scanner started at: ' & _NowDate() & ', ' & _NowTime() & @CRLF & @CRLF ) $FileNm = 'C:\SysScanner\' & @YEAR & @MON & @MDAY & '-' & @HOUR & @MIN & @SEC & '.LOG' If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'System Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $list = ProcessList() for $i = 1 to $list[0][0] GUICtrlSetData($Edit1, $list[$i][0] & ' PID:' & $list[$i][1] & @CRLF,1) next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Proc = $i - 1 GUICtrlSetData($Edit1, $Cummulative_Proc & ' Running Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'Available Startup Registry' & @CRLF,1 ) GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $a= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $a) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $b= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $B) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $c= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $c) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next ;---------- GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $d= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $d) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $e= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $e) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $f= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $f) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Regs = $a + $b + $c + $d + $e + $f - 6 GUICtrlSetData($Edit1,$Cummulative_Regs & ' Startup Items Found' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then If Not FileExists('C:\SysScanner') Then DirCreate('C:\SysScanner') EndIf $Res = GUICtrlRead($Edit1) $Logs = FileOpen($FileNm, 1) FileWrite($Logs, $Res) FileClose($Logs) GUICtrlSetData($Edit1,' ' & @CRLF,1 ) GUICtrlSetData($Edit1,'Log File Saved To: "' & $FileNm & '"' & @CRLF,1 ) EndIf Case $Button1 MsgBox(64,'About', 'Simple System Scanner v1.0' & @CRLF & 'Written By: Dhilip89' & @CRLF & 'E-mail: dhilip89@hotmail.com') Case $Button3 Exit EndSwitch WEnd [u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠2[/quote] Link to comment Share on other sites More sharing options...
nitekram Posted August 19, 2006 Share Posted August 19, 2006 I wrote this script for some purposes. I use this for check viruses from my friends pc. expandcollapse popup#include <GUIConstants.au3> #include <Date.au3> #NoTrayIcon $Form1 = GUICreate("Simple System Scanner v1.0", 330, 345, 336, 227) $Group1 = GUICtrlCreateGroup("Results:", 8, 4, 313, 245) $Edit1 = GUICtrlCreateEdit("", 16, 20, 297, 221) GUICtrlSetData(-1, "") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&About", 248, 284, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Scan Now", 248, 256, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Quit", 248, 312, 75, 25, 0) $Group2 = GUICtrlCreateGroup("Options:", 8, 252, 233, 85) $Checkbox1 = GUICtrlCreateCheckbox("Running Proccesses", 20, 272, 117, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox2 = GUICtrlCreateCheckbox("Available Startup Registry", 20, 292, 141, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox3 = GUICtrlCreateCheckbox("Save *.log file to C:\SysScanner\", 20, 312, 177, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 GUICtrlSetData($Edit1,'System Scanner started at: ' & _NowDate() & ', ' & _NowTime() & @CRLF & @CRLF ) $FileNm = 'C:\SysScanner\' & @YEAR & @MON & @MDAY & '-' & @HOUR & @MIN & @SEC & '.LOG' If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'System Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $list = ProcessList() for $i = 1 to $list[0][0] GUICtrlSetData($Edit1, $list[$i][0] & ' PID:' & $list[$i][1] & @CRLF,1) next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Proc = $i - 1 GUICtrlSetData($Edit1, $Cummulative_Proc & ' Running Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'Available Startup Registry' & @CRLF,1 ) GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $a= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $a) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $b= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $B) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $c= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $c) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next ;---------- GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $d= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $d) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $e= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $e) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $f= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $f) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Regs = $a + $b + $c + $d + $e + $f - 6 GUICtrlSetData($Edit1,$Cummulative_Regs & ' Startup Items Found' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then If Not FileExists('C:\SysScanner') Then DirCreate('C:\SysScanner') EndIf $Res = GUICtrlRead($Edit1) $Logs = FileOpen($FileNm, 1) FileWrite($Logs, $Res) FileClose($Logs) GUICtrlSetData($Edit1,' ' & @CRLF,1 ) GUICtrlSetData($Edit1,'Log File Saved To: "' & $FileNm & '"' & @CRLF,1 ) EndIf Case $Button1 MsgBox(64,'About', 'Simple System Scanner v1.0' & @CRLF & 'Written By: Dhilip89' & @CRLF & 'E-mail: dhilip89@hotmail.com') Case $Button3 Exit EndSwitch WEnd I think you should make the window bigger or allow it to be maximized. 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...
nitekram Posted August 19, 2006 Share Posted August 19, 2006 I think you should make the window bigger or allow it to be maximized.Another good idea would be to be able to remove the run items - click the one that you want to remove and have a remove button that says that the registry will not be backed up.Also there are other places that the virus or malware could be running from - you may want to include them as well. 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...
Bounda Posted August 19, 2006 Share Posted August 19, 2006 also, itd help if you could remove the problems =P CS:S Aimbot - List From INI Funcs Link to comment Share on other sites More sharing options...
autosc Posted August 21, 2006 Share Posted August 21, 2006 I wrote this script for some purposes. I use this for check viruses from my friends pc. expandcollapse popup#include <GUIConstants.au3> #include <Date.au3> #NoTrayIcon $Form1 = GUICreate("Simple System Scanner v1.0", 330, 345, 336, 227) $Group1 = GUICtrlCreateGroup("Results:", 8, 4, 313, 245) $Edit1 = GUICtrlCreateEdit("", 16, 20, 297, 221) GUICtrlSetData(-1, "") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&About", 248, 284, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Scan Now", 248, 256, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Quit", 248, 312, 75, 25, 0) $Group2 = GUICtrlCreateGroup("Options:", 8, 252, 233, 85) $Checkbox1 = GUICtrlCreateCheckbox("Running Proccesses", 20, 272, 117, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox2 = GUICtrlCreateCheckbox("Available Startup Registry", 20, 292, 141, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox3 = GUICtrlCreateCheckbox("Save *.log file to C:\SysScanner\", 20, 312, 177, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 GUICtrlSetData($Edit1,'System Scanner started at: ' & _NowDate() & ', ' & _NowTime() & @CRLF & @CRLF ) $FileNm = 'C:\SysScanner\' & @YEAR & @MON & @MDAY & '-' & @HOUR & @MIN & @SEC & '.LOG' If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'System Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $list = ProcessList() for $i = 1 to $list[0][0] GUICtrlSetData($Edit1, $list[$i][0] & ' PID:' & $list[$i][1] & @CRLF,1) next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Proc = $i - 1 GUICtrlSetData($Edit1, $Cummulative_Proc & ' Running Processes' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'Available Startup Registry' & @CRLF,1 ) GUICtrlSetData($Edit1,'==========================' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $a= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $a) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $b= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $B) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $c= 1 to 100 $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $c) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next ;---------- GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]' & @CRLF,1 ) For $d= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $d) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]' & @CRLF,1 ) For $e= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", $e) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1, '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx]' & @CRLF,1 ) For $f= 1 to 100 $var = RegEnumVal("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx", $f) If @error <> 0 then ExitLoop GUICtrlSetData($Edit1, $var & @CRLF,1 ) Next GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) $Cummulative_Regs = $a + $b + $c + $d + $e + $f - 6 GUICtrlSetData($Edit1,$Cummulative_Regs & ' Startup Items Found' & @CRLF,1 ) GUICtrlSetData($Edit1,'=============================================' & @CRLF,1 ) EndIf If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then If Not FileExists('C:\SysScanner') Then DirCreate('C:\SysScanner') EndIf $Res = GUICtrlRead($Edit1) $Logs = FileOpen($FileNm, 1) FileWrite($Logs, $Res) FileClose($Logs) GUICtrlSetData($Edit1,' ' & @CRLF,1 ) GUICtrlSetData($Edit1,'Log File Saved To: "' & $FileNm & '"' & @CRLF,1 ) EndIf Case $Button1 MsgBox(64,'About', 'Simple System Scanner v1.0' & @CRLF & 'Written By: Dhilip89' & @CRLF & 'E-mail: dhilip89@hotmail.com') Case $Button3 Exit EndSwitch WEnd Ok ! excellent script ! it scans .... and lists ..... you must identify the bad files and kill them .....' Have you made a progress on that ? or modified by others before i waste my time ? Link to comment Share on other sites More sharing options...
raedts Posted September 5, 2006 Share Posted September 5, 2006 Ok ! excellent script ! it scans .... and lists ..... you must identify the bad files and kill them .....'Have you made a progress on that ? or modified by others before i waste my time ? Hey!, give this man a break. It's quite a script he managed to create, if you could make it better, do that.Great script Dhilip! 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