Question

求用vb或vbs定时打开指定文件，并10秒后关闭指定文件的文件。

例：每12小时自动打开d:\1.html , 打开后过10秒，自动关闭d:\1.html ,过12小时再次循环

Answer 1

可以用个timer控件，每秒检测一下，当时间等于某个时间时打开或者关闭文件

追问

请给我个完整代码好吗，谢谢

Answer 2

'vbs的,试试
dim a
Set a = WScript.CreateObject("WScript.shell")
if Time = "00:00:00" Or Time = "12:00:00" then
a.run "指定的文件"
Sleep 10000
a.run "taskkill /im 指定的文件名 /f",0,true
End If

追问

不好意思问一下

if Time = "00:00:00" Or Time = "12:00:00" then

是0点和12点吗？

我是要12个小时打开一下，不是整点0个12哦

追答

dim a
Set a = WScript.CreateObject("WScript.shell")
do
wscript.Sleep 3000
a.run "指定的文件"
wscript.Sleep 10000
a.run "taskkill /im 指定的文件名 /f",0,true
loop

追问

这个代码能够运行了，但是每10秒就打开一个程序，越开越多，关也关不掉，也不会自动关

追答

呵呵,3000是为了测试用的时间,要12小时的话就改成1000*60*60*12
再给你一句结束脚本进程的代码
dim a
Set a = WScript.CreateObject("WScript.shell")
a.run "taskkill /im wscript.exe /f",0,true
另存vbs文件运行就可以了

Answer 3

Set She = CreateObject("Wscript.Shell")
Do
She.Run "D:\1.HTML"
Wscript.Sleep 1000*10
She.Run "cmd.exe /c taskkill /f /im 1.html"
Wscript.Sleep 1000*60*60*12
Loop