Antivirus Beta 1.0

#include <file.au3>

$Filesc = FileOpenDialog ( "Choose script", @DesktopDir, "BAT (*.bat)" )

Sleep(100)
$lin = _FileCountLines($Filesc)

Local $i, $lis

For $i = 1 To $lin
Sleep(100)
ProgressSet($i, $lis)
$lis = FileReadLine($Filesc, $i)
$cas = StringInStr ( $lis, "Del" )
$cass = StringInStr ( $lis, "*" )
if Not $cas = 0 And Not $cass = 0 Then MsgBox ( 0, "Virus", "BAT\DelFile.1" )
Next

For $i = 1 To $lin
Sleep(100)
ProgressSet($i, $lis)
$lis = FileReadLine($Filesc, $i)
$cas = StringInStr ( $lis, "Rd" )
$cass = StringInStr ( $lis, "*" )
if Not $cas = 0 And Not $cass = 0 Then MsgBox ( 0, "Virus", "BAT\DeleteDir.2" )
Next

For $i = 1 To $lin
Sleep(100)
ProgressSet($i, $lis)
$lis = FileReadLine($Filesc, $i)
$cas = StringInStr ( $lis, "Copy" )
$cass = StringInStr ( $lis, "%1" )
$casss = StringInStr ( $lis, "%­windir%" )
$vf = StringInStr ( $lis, "System32" )
if Not $cas = 0 And Not $cass = 0 and Not $casss = 0 And NOt $vf = 0 Then MsgBox ( 0, "Virus", "BAT\Worm" )
Next

For $i = 1 To $lin
Sleep(100)
ProgressSet($i, $lis)
$lis = FileReadLine($Filesc, $i)
$cas = StringInStr ( $lis, "Format" )
if Not $cas = 0 Then MsgBox ( 0, "Virus", "tr\Format" )

Next


For $i = 1 To $lin
Sleep(100)
ProgressSet($i, $lis)
$lis = FileReadLine($Filesc, $i)
$cas = StringInStr ( $lis, "echo" )
$cass = StringInStr ( $lis, ">>" )
$casss = StringInStr ( $lis, "vbs" )
if Not $cas = 0 And Not $cass = 0 And Not $casss = 0 Then MsgBox ( 0, "Virus", "BAT\VBS" )
Next