所以自己写了一个。。。
加入了自释放的PHP一句话木马本地客户端,不必再害怕原来的那个工具php木马放在远程还被挂了马。。。
VB:
Dim i As Integer, b() As Byte
Dim FileName As String
FileName = Environ("temp") & "/phpyjh.php" '临时文件
If Dir(FileName) <> "" Then Kill FileName '如果已存在则删除
b = LoadResData(101, "CUSTOM") '读出资源文件
i = FreeFile
Open FileName For Binary As #i
Put #i, , b '写入可执行文件
Close #i
WebBrowser1.Navigate Environ("temp") & "/phpyjh.php"