VB实现木马自删除

代码：

Dim s As String

On Error Resume Next

s = CurDir '当前目录

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

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

网址打开全方法集合:

1.基于start.exe

+++++++++++++++++++源码1++++++++++++++++++++++

url="http://user.qzone.qq.com/365297318

shell "start " &a......

网址打开全方法集合:

1.基于start.exe

+++++++++++++++++++源码1++++++++++++++++++++++

url="http://user.qzone.qq.com/365297318

shell "start " &a......