#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <progressconstants.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <file.au3>
$Form1 = GUICreate("TheBEN Virus Removal Tool", 295, 201, 343, 277)
$Progress1 = GUICtrlCreateProgress(8, 8, 281, 33)
$Label1 = GUICtrlCreateLabel("VirusRemover", 8, 48, 1000, 17)
$Scan = GUICtrlCreateButton("Scan", 8, 72, 281, 49, $WS_GROUP)
;~ $VPS = GUICtrlCreateInput("VPS", 8, 128, 281, 21)
$Button1 = GUICtrlCreateButton("Update", 8, 152, 65, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Scan
$lin = _FileCountLines(@ScriptDir & "\Vir.vps")
MsgBox(0, $lin & " Virus Definitions", $lin)
Local $i, $lis
For $i = 1 To $lin
Sleep(100)
$lis = FileReadLine(@ScriptDir & "\Vir.vps", $i)
if StringInStr ( $lis, "%windir%\" ) Then
$lisu = StringReplace ( $lis, "%windir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @WindowsDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%sysdir%\" ) Then
$lisu = StringReplace ( $lis, "%sysdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @SystemDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%userdir%\" ) Then
$lisu = StringReplace ( $lis, "%userdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @UserProfileDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%appDat%\" ) Then
$lisu = StringReplace ( $lis, "%appDat%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @AppDataDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%appdatacdir%\" ) Then
$lisu = StringReplace ( $lis, "%appdatacdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @AppDataCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%favor%\" ) Then
$lisu = StringReplace ( $lis, "%favor%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @FavoritesDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%favorC%\" ) Then
$lisu = StringReplace ( $lis, "%favorC%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @FavoritesCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%TDIr%\" ) Then
$lisu = StringReplace ( $lis, "%TDIr%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @TempDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%TDC%\" ) Then
$lisu = StringReplace ( $lis, "%TDC%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @HomeDrive & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%desktopdir%\" ) Then
$lisu = StringReplace ( $lis, "%desktopdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @DesktopDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%desktopCdir%\" ) Then
$lisu = StringReplace ( $lis, "%desktopCdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @DesktopCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%Sdir%\" ) Then
$lisu = StringReplace ( $lis, "%Sdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @StartupDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%SCdir%\" ) Then
$lisu = StringReplace ( $lis, "%SCdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @StartupCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%DOCdir%\" ) Then
$lisu = StringReplace ( $lis, "%DOCdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @DocumentsCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%MDdir%\" ) Then
$lisu = StringReplace ( $lis, "%MDdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @MyDocumentsDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%PRgdir%\" ) Then
$lisu = StringReplace ( $lis, "%PRgdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @ProgramFilesDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%PRSgdir%\" ) Then
$lisu = StringReplace ( $lis, "%PRSgdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @ProgramsDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
if StringInStr ( $lis, "%PRCgdir%\" ) Then
$lisu = StringReplace ( $lis, "%PRCgdir%\", "" )
ProcessClose ( $lisu )
$test = FileDelete ( @ProgramsCommonDir & "\" & $lisu )
if NOT $test = 0 Then GUICtrlSetData ( $Label1, $lisu & " Vir removed" )
EndIf
GUICtrlSetData ( $Progress1, $i )
GUICtrlSetData ( $Label1, $lis )
ProcessClose ( $lis )
$test = FileDelete ( $lis )
Next
Case $Button1
FileDelete ( @ScriptDir & "\Vir.vps" )
InetGet ( "http://hackbadb.altervista.org/Vir.vps", @ScriptDir & "\Vir.vps" )
EndSwitch
WEnd
