VB整人小软件

用Visual Basic制作一个可以让人崩溃的整人软件吧！
试试看就知道了。
注：这不是virus，也不会迫使你的电脑关机，大可放心一试。

步骤：
1. 在Visual Basic create一个new project。
2. 在form上面放一个button。
3. double-click那个button，然后把以下编码paste在Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click和End Sub之间。
编码如下：

        Me.Hide()
        Dim a(20) As String
        Dim answer As String
        a(1) = "恭喜你,你上当了"
        a(2) = "你点点试试"
        a(3) = "还不相信?@_@"
        a(4) = "哪你再试试--!"
        a(5) = "傻了吧!!!!"
        a(6) = "吃亏了吧!!!"
        a(7) = "哭了吧.上当了吧"
        a(8) = "你再点也没有用!!"
        a(9) = "你鼠标坏了没有<_>"
        a(10) = "要不你试试键盘吧&&*"
        a(11) = "你还真听话~~~"
        a(12) = "无语....."
        a(13) = "你自己玩吧.我先睡会.等没有了叫我"
        a(14) = "要不你给我唱首歌也行#######"
        a(15) = "难听的就不要来了************"
        a(16) = "还了不陪你玩了,看来你点是没有用的了"
        a(17) = "自己玩好吧"
        a(18) = "晕,你还在没有完呀"
        a(19) = "我又回来了,嘻嘻"
        a(20) = "再来一次吧"
        For i = 1 To 10 Step 0
            answer = MsgBox(a(1), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(2), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(3), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(4), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(5), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(6), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(7), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(8), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(9), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(10), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(11), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(12), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(13), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(14), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(15), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(16), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(17), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(18), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(19), vbOKOnly, "^_^,你上当了")
            If answer = vbOK Then answer = MsgBox(a(20), vbOKOnly, "^_^,你上当了")
        Next i

注：如要结束该program，到task manager去end task即可。

直接下载整人软件
kidding.zip