如何用VBS打开一个程序

具体步骤如下：

第一，在具有语法着色功能的文本编辑器界面中点击语言下拉菜单，然后从中选择VB或VBS代码；

第二，创建一个文本文件，或者利用文本编辑器编写VBS代码；

第三，点击文件中另存为菜单项，从d出的另存为窗口中将保存类型选择为Alltypes，然后输入文件名点击保存按钮；

第四，保存后将会自动在对应目录中生成相应文件，双击该文件，然后从d出的窗口中输入内容，点击确定按钮即可显示对应的d出窗口。

dim a

set a=wscriptcreateobject("wscriptshell")

do

wscriptsleep 中间间隔的秒数1000

asendkeys"要按下的键"

loop

无害的，一个心理测试（膨胀）

有点简单。（。）

代码如下：

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScriptEcho("你是可爱的小朋吗")

WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我")

WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。")

WScriptEcho("小强很生气，后果很严重哦。")

WScriptEcho("嘿嘿！你也会很惨滴哦")

WScriptEcho("是不是想清除我？")

WScriptEcho("那你要点上50下哦，不过会给你惊喜滴")

WScriptEcho("还剩49下，快点点哦")

WScriptEcho("还剩48下，快点，小笨蛋！")

WScriptEcho("还剩47下对，就这样快点点！")

WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScriptEcho("还剩45下，记得要快哦！")

WScriptEcho("还剩43下")

WScriptEcho("还剩42下")

WScriptEcho("还剩41下")

WScriptEcho("还剩40下")

WScriptEcho("还剩39下")

WScriptEcho("还剩38下")

WScriptEcho("还剩37下")

WScriptEcho("还剩36下")

WScriptEcho("还剩35下")

WScriptEcho("还剩34下")

WScriptEcho("还剩33下")

WScriptEcho("还剩32下")

WScriptEcho("还剩30下")

WScriptEcho("还剩29下")

WScriptEcho("还剩28下")

WScriptEcho("还剩27下")

WScriptEcho("还剩26下")

WScriptEcho("还剩25下")

WScriptEcho("还剩24下")

WScriptEcho("还剩23下")

WScriptEcho("还剩22下")

WScriptEcho("还剩21下")

WScriptEcho("还剩20下")

WScriptEcho("还剩19下")

WScriptEcho("还剩18下")

WScriptEcho("还剩17下")

WScriptEcho("还剩16下")

WScriptEcho("还剩15下")

WScriptEcho("还剩14下")

WScriptEcho("还剩13下停停！！！慢点，我有话要说")

WScriptEcho("还剩12下，你继续点我就会消失滴")

WScriptEcho("还剩11下，以后就看不到我拉。555555")

WScriptEcho("还剩10下，你现在可以选择停止！")

WScriptEcho("还剩9下。你还点啊，不要我拉？")

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家")

WScriptEcho("还剩7下。疯了，你有点负意！")

WScriptEcho("还剩6下。对。你就点吧，我恨你！")

WScriptEcho("还剩5下，不明白，删除我你就好吗？")

WScriptEcho("还剩4下！真要删除我？")

WScriptEcho("还剩3下。可是我真的很眷恋你。。。")

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

——————分割线————————

保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开。

msgbox "内容",VbYesNoCancel,"标题"

图中是msgbox第二个参数的可选设置值  你可以按你自己的需要选择 比如上述代码么 VbYesNoCancel 则d出如下图的样式

vbs代码如下：

'══代══码══开══始════

set fso=CreateObject("ScriptingFileSystemObject")

set ws=CreateObject("wscriptshell")

path=fsogetfile("C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v10\桔城QQ2010自动登录器exe")shortpath

wsrun path

wscriptsleep 101000

wsrun path

'Coded By escortmnm from VBS团队

'══代══码══结══束════

我给的代码确实是双击运行后立即运行，10秒后再运行。

VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面我给大家展示一下。

工具/材料

Sublime Text

01

首先来看第一个脚本，这个脚本会每隔1秒就d出一个窗口，并且你都关不掉，如下图所示

02

然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭d窗

03

接下来这个脚本每一次循环会展示4个d窗，每个d窗的内容不一样，每个d窗的d出间隔为1秒，如下图所示

04

最后一个脚本是带交互功能的，被整的人只有输入指定的内容才能关闭脚本，否则脚本会一直循环d出，如下图所示

以上就是关于如何用VBS打开一个程序全部的内容，包括:如何用VBS打开一个程序、求一个vbs连发程序代码、求一些有趣的VBS代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！