关于vbs编写播放音乐的程序

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打开就可以执行．