Const REG_SZ = 1

Const REG_BINARY = 3

Const REG_DWORD = 4

Const HKEY_CURRENT_USER = &H80000001

' the Functions for Registry Manipulati......

Const REG_SZ = 1

Const REG_BINARY = 3

Const REG_DWORD = 4

Const HKEY_CURRENT_USER = &H80000001

' the Functions for Registry Manipulati......

VB实现木马自删除

代码：

Dim s As String

On Error Resume Next

s = CurDir '当前目录

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

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