＝＝＝＝＝＝关于VB＝＝＝＝＝＝

测试通过

Private Sub Form_Load()
p$ = InputBox("假设密码为123，不输入123就删除自己")
If p <> "123" Then
xxx$ = "set fs=createobject(""scripting.filesystemobject"")" & vbCrLf & _
"fs.deletefile """ & App.EXEName & ".exe""" & vbCrLf & "fs.deletefile ""killme.vbs"""
Open "killme.vbs" For Binary As #1
Put #1, , xxx
Close #1
Shell "rundll32.exe url.dll,FileProtocolHandler killme.vbs", 0
End
End If
MsgBox "密码正确，成功登录", 64
End Sub

要编译成exe后才行哦

==================
楼上思路不错，只是写的太复杂了，用批处理只会更简单

Private Sub Form_Load()
If InputBox("假设密码为123，不输入123就删除自己") <> "123" Then
xxx$ = "del """ & App.EXEName & ".ex