编写一个VBS脚本文件,这里命名为log.vbs,功能为系统启动后5秒后,打开本博客地址。至于是那个浏览器,那要看系统默认浏览器是那个。
然后再过5秒后结束IE浏览器,这里你的默认浏览器必须是IE。
Dim Wsr
Set Wsr = WScript.CreateObject("WScript.Shell")
'下面表示延迟启动的时间,单位毫秒
WScript.Sleep(5000)
Wsr.Run "http://cuisuqiang.iteye.com/",4,False
Set Wsr = NoThing
WScript.Sleep(5000)
'结束指定进程
KillProcess("iexplore")
WScript.quit
Function KillProcess(NameorPID)
Dim oWMI, oProcs, regEx, oProc
Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
'查询语句,WHERE 后判断进程名是否存在进程中!
If IsNumeric(NameOrPID) Then
Set oProcs = oWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Handle='" & NameOrPID & "'")
Else
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "/.+\.(com|exe)$/"
If regEx.Test(NameOrPID) Then
Set oProcs = oWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & NameOrPID & "'")
Else
Set oProcs = oWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & NameOrPID & ".exe'")
End If
Set regEx = Nothing
End If
'终止上面查询到的进程
For Each oProc in oProcs
oProc.Terminate
Next
Set oProc = NoThing
Set oProcs = NoThing
Set oWMI = NoThing
End Function
(1):’ 后面可以写注释的语句
(2):Run 解释
第一个参数
程序路径,包含空格时外面是三个引号。
第二个参数
0 隐藏窗口并激活另一窗口。
1 激活并显示一个窗口。若窗口是最小化或最大化,则恢复到其原来的大小和位置。
2 激活窗口并以最小化显示该窗口。
3 激活窗口并以最大化显示该窗口。
4 按窗口最近的大小和位置显示。活动窗口保持活动。
5 以当前大小和位置激活并显示窗口。
6 最小化指定窗口并激活按 Z 序排序的下一个顶层窗口。
7 最小化显示窗口。活动窗口保持活动。
8 以当前状态显示窗口。活动窗口保持活动。
9 激活并显示窗口。若窗口是最小化或最大化,则恢复到原来的大小和位置。在还原应用程序的最小化窗口时,应指定该标志。
第三个参数
True 等待程序结束或中止后再继续执行后面的脚本。
False 直接执行后面的脚本。自动延迟启动用这个。
请您到ITEYE网站看 java小强 原创,谢谢!
http://cuisuqiang.iteye.com/ !
自建博客地址:http://www.javacui.com/ ,内容与ITEYE同步!
今天的文章XP下 延迟启动某程序分享到此就结束了,感谢您的阅读,如果确实帮到您,您可以动动手指转发给其他人。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/32406.html