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

关于vbs编写播放音乐的程序,第1张

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

欢迎分享,转载请注明来源:浪漫分享网

原文地址: https://hunlipic.com/langman/3654843.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-08-17
下一篇 2023-08-17

发表评论

登录后才能评论

评论列表(0条)

保存