XP下 延迟启动某程序
程序员文章站
2024-01-18 09:35:34
...
编写一个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同步!
上一篇: DIV常用的居中方法_html/css_WEB-ITnose
下一篇: Hibernate官方教程