MeHeight， screendc， 0， 0， HCC0020 ReleaseDC screenhwnd， screendc End Sub form2代码Private Sub Form_DblClickMsgBox quotsb上当了吧，按‘确定’退出quot， ， quot玩笑quotEnd End Sub 这个比较整人的，VB程序。
on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot说我是帅哥，不说我是帅哥就半分钟关你机，不信，试试？ quotquot quot。