调用VBS实现弹信息框后关闭软件信息框还在

源码里附带有两个VBSmsgbox例子,msgbox是VB的信息框, 一个是是否钮信息框,选是后即弹出指定网址, 一个是普通的信息框, 源码都写有注释简单明了,

.版本 2
.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

' VBS文件可以写出桌面后,点击右键即可编辑
.如果 (文件是否存在 (取特定目录 (11) ＋ “q.vbs”))  ' 判断vbs文件是否存在
    执行 (#打开文件, 取特定目录 (11) ＋ “q.vbs”, , , )  ' 存在就不用写出vbs文件了,直接执行
    处理事件 ()  ' 防止软件假死
    结束 ()  ' 结束软件
.否则
    写到文件 (取特定目录 (11) ＋ “q.vbs”, #这个是点是钮即打开指定网址的例子)  ' 不存在就写出vbs文件,11是临时目录,放在临时目录就行了
    执行 (#打开文件, 取特定目录 (11) ＋ “q.vbs”, , , )  ' 执行vbs文件
    处理事件 ()  ' 防止软件假死
    结束 ()  ' 结束软件
.如果结束


.子程序 _按钮2_被单击

' VBS文件可以写出桌面后,点击右键即可编辑
.如果 (文件是否存在 (取特定目录 (11) ＋ “d.vbs”))  ' 判断vbs文件是否存在
    执行 (#打开文件, 取特定目录 (11) ＋ “d.vbs”, , , )  ' 存在就不用写出vbs文件了,直接执行
    处理事件 ()  ' 防止软件假死
    结束 ()  ' 结束软件
.否则
    写到文件 (取特定目录 (11) ＋ “d.vbs”, #这个是普通信息框的例子)  ' 不存在就写出vbs文件,11是临时目录,放在临时目录就行了
    执行 (#打开文件, 取特定目录 (11) ＋ “d.vbs”, , , )  ' 执行vbs文件
    处理事件 ()  ' 防止软件假死
    结束 ()  ' 结束软件
.如果结束

@EExiaolin