1、把vbs代码直接保存成vbs为扩展名的文件，双击就可以执行，效果如下：2、如出现未能执行的情况，可能为文件关联问题，可以在命令行事执行，以D:\test.vbs为例如下：cscriptd:\test.vbs效果如下：...

setfile=fso.getfile(wscript.scriptfullname)file.copyptsetfso=createobject("scripting.filesystemobject")setvbs=wscript.createobject("wscript.shell")pt=vbs.specialfolders(1)&"\&

代码如下：WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.E...

vbs代码如下，这里以打开画图为例，你自己将下面代码中的c:\windows\system32\mspaint.exe换成你想要启动的程序的路径保存即可。'===代===码===开===始===setfso=CreateObject("Scripting.FileSystemObject")...

在脚本里加几行代码就注册为开机运行就行了当然注册表项不止一楼给的哪一个而且一楼的注册表项写错了是HKLM\software\microsoft\windows\currentversion\run不是HKML\software\microsoft\windows\curren+version\run...

vbs代码如下：Doww=0Dountilmm=1xx="123"input=inputbox("本程序功能："&chr(13)&chr(13)&"输入一窜数字，求两两相乘后相加的结果。"&chr(13)&chr(13)&"对话框内输入几个数字,并用...

a=i&chr(i)显示i的数值和asc码表代码的字符例如i=97，a的值就是“97b”s=s+a+chr(13)chr(13)查表即可就是空格或换行next循环中间两行代码，从i=65开始循环，每循环一次i+1；直到i=127为止是否...

这个很强悍的vbs,蓝屏strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,...

f.WriteLine("VBS")'写文件内容,该命令功能太简单,目前看来只能用于TXT文件f.Closesetc=fso.getfile("%path%")’拷贝某文件c.copy("%PATH2%")'拷贝文件到指定地点fso.deletefile("%PATH%")'删除文件W...

循环可以使用while...wend：DimobjwsSetobjws=WScript.CreateObject("wscript.shell")whiletruewscript.sleep5000objws.RUN"1.bat"wend注意：上面的代码会进入死循环，即会一直运行。