Guten Tag/Abend.
Ich habe etwas versucht, also mein Freund hat gesagt, ich soll versuchen ihm das Script zu machen, ich weiß nicht ob er es selber Programmiert hat, aber ich weiß auch nicht weiter
Deshalb frag ich mal hier
Hier der Code:
Spoiler anzeigen
$MD5 = FileRead(@Scriptdir & "\V.txt")
$FileCount = 0
$var = DriveGetDrive("all")
if $MD5 <> "" Then
For $i = 1 to $var[0]
If DriveStatus($var[$i]) <> "NOTREADY" Then ScanFolder($var[$i])
Next
MsgBox(0,"Done","Folder Scan Complete. Scanned " & $FileCount & " Files")
EndIf
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*")
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFindNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
ScanFolder($FullFilePath)
Else
if FileGetSize($FullFilePath) < 3000000 Then
ToolTip($FullFilePath,200,300,"Scanning...",2)
if md51($FullFilePath) = $MD5 then
if md51($FullFilePath) <> "0" Then
LogFile($FullFilePath)
FileSetAttrib($FullFilePath,"-rsh")
FileDelete($FullFilePath)
EndIf
EndIf
EndIf
EndIf
WEnd
FileClose($Search)
EndFunc
Func LogFile($FileName)
FileWriteLine(@ScriptDir & "\Virus Deleted.txt",$FileName)
$FileCount += 1
ToolTip($FileName,0,0)
EndFunc
Func MD51($N)
Dim $MD5Plugin
Dim $FileMD5
$MD5Plugin = PluginOpen(@ScriptDir & "\MD5Hash.dll") ;Load the MD5 Hash.dll Plugin
$FileMD5 = MD5Hash($N,1,True)
Return $FileMD5
EndFunc
Er sagte:
ZitatEs wird nur die erste Zeile von der Datei: v.txt ausgelesen, ich weiß aber leider nicht, wie ich das mache, dass alles ausgelesen wird.
Kann mir da jemand helfen?
P.S:
Ich sollte fragen, da er sich nicht im Forum anmelden kann......irgendwie geht das nicht.
Lg TheBeatMaker111
Edit Oscar: Spoiler eingefügt. Bitte bei längeren Quelltexten den Spoiler benutzen.