欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

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同步!