XP下延迟启动某程序

最新推荐文章于 2024-07-04 08:41:26 发布

原创最新推荐文章于 2024-07-04 08:41:26 发布 · 3k 阅读

CC 4.0 BY-SA版权

编写一个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 直接执行后面的脚本。自动延迟启动用这个。