1首先在电脑鼠标右键 新建一个文本文档2然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存3保存好之后，对这个；5在对话框中输入程序名demo将类型保存为all，选择要保存的路径，然后单击save6在命令提示符下面输入wscript d\demovbs，打开VBS脚本程序7WSCRIPT是Windows脚本主机，专门用于调试WSH脚本VBSjs和WSH文件格式；do if msgboxquot你爱我吗？quot，4132，quotquot=vbyes then exit do msgbox quot再想想quot，4096，quotquotloop；代码如下#39警告#39慎用，点击否，出现删除的情况，后果自负#39请先备份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否现在安装quot，vbyesno，quot温馨提；dim num，var，fso，wsh，pathname #39定义变量 num = quotA，B，C，D，E，F，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，F1，F2，F3，F4，F5，F6，quot+_quotF7，F8，F9，F10；请看代码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安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可；Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代；wssendkeysquot%F4quot#39每次循环等待时间3000=3秒，以毫秒为单位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右击编辑输入 taskkill f im wscriptexe pause 保存 当需要停止vbs时执行一下m；VBS控制电脑发出声音的两种方法#39需要PCI声卡的支持#39SAPI The Microsoft Speech APICreateObject quotSAPISpVoicequotSpeak quotSir， are you a fan of VBS？quot strSoundFile = quotC\Windows\Media\notifywavquotSet obj；你就是想要的就是这样一个vbs文件1写注册表，开启系统管理员2输入用户名密码，然后加上第二行至第九行生成bat，bat里面包含reg信息 3将那个批处理改属性，加入删除自己代码等，然后运行批处理生成reg文件导入。

WScriptEchoquot想结素我么？那你就再多点一次quotWScriptEchoquot想结素我么？那你就再多点一次quot分割线保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开；vbs代码如下，这里以打开画图为例，你自己将下面代码中的c\windows\system32\mspaintexe换成你想要启动的程序的路径保存即可#39===代===码===开===始=== set fso=CreateObjectquotScriptingFileSystemObjectquot；这个很强悍的vbs，蓝屏 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。

哈哈都报错了，quot下标越界quot 你没有加参数就运行，而你又在脚本里引用参数0当然报错了解决办法1，加参数运行 2，在最开头加上一句 on error resume next；new SqlConnection conOpenstring sqlstr = quotsql语句quotSqlDataAdapter da = new SqlDataAdaptersqlstr， conDataSet ds= new DataSetdaFilldsdataGridView1DataSource = dsTables0conClose。