想编一个VBS程序打开视频文件求大神给详细代码

以下两段代码根据需求任选一段，复制到记事本中，按脚本说明进行修改，然后另存为xxxvbs

保存好的脚本双击即可运行

(A)用指定播放器打开

Dim wsh

Set wsh = CreateObject("WScriptShell")

player = "D:\Program Files\Potplayer\PotPlayerMiniexe"   '改为你电脑上播放器程序的地址

video = "D:\abcmp4"      '改为要打开的视频文件的地址

path = player & " " & video

wshExec path

(B)用视频文件关联的播放器打开

Dim wsh

Set wsh = CreateObject("WScriptShell")

path = "D:\abcmp4"      '改为要打开的视频文件的地址

wshRun path

思路是这样（但代码我不写了，手机很不方便，而且字数也不够的）：首先代码中添加本vbs开机自运行（修改注册表），然后用data函数判断是否指定日期，如果不是则wscriptquit，如果是则再用time函数加do循环判断是否到了指定时间，如果不是则继续循环知道为是，如果是则执行相关命令即可。

dim a,ctr,suc,wsh

ctr=0

suc=0

const pass="123"

do while ctr<3

a=inputbox("密码")

if a=pass then

suc=1

msgbox("成功")

exit do

else

ctr=ctr+1

msgbox("错误")

end if

loop

if suc=0 then

Set Wsh = WScriptCreateObject("WScriptShell")

WshRun "D:/testEXE", 0, TRUE

end if

把run哪里的路径填写你自己想要运行的程序路径

看看 >

VBS无能够自由编辑各个按钮（控件）的图形化界面，即便是楼主给的这段代码也是间接使用了系统的关机窗口界面而已，你也看到了关机界面上有的那些东西在VBS代码中全部没有体现，自然也就无从改动

想实现真正的自由化图形界面请出门左转寻找VB

1、首先在电脑鼠标右键 新建一个文本文档。

2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

4、改vbs后缀会d出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

6、只要双击这个vbs，桌面就会d出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

以上就是关于想编一个VBS程序打开视频文件求大神给详细代码全部的内容，包括:想编一个VBS程序打开视频文件求大神给详细代码、怎样编写VBS程序，在指定的日期、时间内，运行符合的相应程序怎样修改，谢谢、帮我写一个vbs程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！