set hook=createobject("wmplayerocx")
hookurl="http://blogapatcomcn/shengrikuailewma" '改成你要播放文件的地址,本地电脑和网络的都行
hookControlsplay
do until hookplayState=3
wscriptsleep 1000
loop
wscriptsleep hookcurrentMediaduration 1000
wscriptsleep 1000
估计要等30s,在网上下载了后才放的
例如: dim ws set ws=createobject("wscriptshell") h=int(hour(now)) wsrun "aexe",0 这个aexe 是有参数的 完成参数如下 -a -x -b "d:\bcfg" 批处理运行格式如下 aexe -a -x -b "d:\bcfg" 请问如何把这个参数加到 VSB里面 问题补充:dim ws set ws=createobject("wscriptshell") wsrun "C:\Program Files\VMware\VMware Workstation\vmwareexe" -x -B -t & chr(34) & "D:\WP-001\Windows XP Professionalvmx" & Chr(34),0 这个程序是启动VM虚拟机的,但是还是运行不了!!!! 提示如下 行: 4 字符: 1 错误: 类型不匹配: `[string: "C:\Program Files\VMw"]` 代码: 800A000D 源: Microsoft VBScritp 运行错误 经过实际测试 这样可以运行 dim ws set ws=createobject("wscriptshell") h=int(hour(now)) command="""C:\Program Files\VMware\VMware Workstation\vmwareexe"" -x -B -t " & chr(34) & "D:\WP-001\Windows XP Professionalvmx" & Chr(34) wsrun command
经测试可用,不懂的hi我
Dim name,sex,birth
name=InputBox("请输入姓名")
sex=InputBox("请输入姓别")
birth=InputBox("请输入出生日期")
Set fso=CreateObject("scriptingfilesystemobject")
Set file=fsocreatetextfile("" & name & "txt",True)
fileClose
MsgBox name
set fi=fsoopentextfile("" & name & "txt",2)
s="姓名:"&name&vbCrLf&"姓别:"&sex&vbCrLf&"出生日期:"&birth
fiwrite s
ficlose
代码:
wscriptsleep(5601000)
'睡眠多少毫秒
wscriptcreateobject("wscriptshell")run "notepadexe"
'请修改notepadexe为你要运行的程序的路径和程序名
要是回答的内容有问题,或认为不妥,请发送百度消息给我,消息内容加上本页网址哦。。
·
如果是纯脚本文件,要运行它,可以在"开始_运行" cmd 进入命令行
用:
wscript 脚本文件
可以运行,详情参考:wscript /
如果是HTML中嵌入的VBS及脚本,用IE打开就可以执行.
欢迎分享,转载请注明来源:浪漫分享网
评论列表(0条)