VB程序 过主动防御 做自启动

问题描述：

怎么做?

答对再追加90分~

问题解答：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
On Error Resume Next
Shell "cmd /c reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v Spy /d """ _
& App.Path & "\" & App.EXEName & ".exe", vbNormal
End Sub

晕，你什么主动防御软件都不说，怎么过？
上面这种代码也能过才怪了,,hklm下会让你这么容易加东西？
既然用程序了，还要CMD干嘛？