Sign in to follow this  
Followers 0
Dhilip89

Simple System Scanner

6 posts in this topic

I wrote this script for some purposes.

I use this for check viruses from my friends pc.

#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]

Share this post


Link to post
Share on other sites



I wrote this script for some purposes.

I use this for check viruses from my friends pc.

#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.

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."

 

WindowsError.gif

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

Share this post


Link to post
Share on other sites

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.


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."

 

WindowsError.gif

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

Share this post


Link to post
Share on other sites

I wrote this script for some purposes.

I use this for check viruses from my friends pc.

#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 ?

Share this post


Link to post
Share on other sites

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. :nuke:

It's quite a script he managed to create, if you could make it better, do that.

Great script Dhilip! :P

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