当前位置:首页 > 开发 > 操作系统 > 正文

XP下 延迟启动某程序

发表于: 2014-01-06   作者:cuisuqiang   来源:转载   浏览次数:
摘要: 编写一个VBS脚本文件,这里命名为log.vbs,功能为系统启动后5秒后,打开本博客地址。至于是那个浏览器,那要看系统默认浏览器是那个。 然后再过5秒后结束IE浏览器,这里你的默认浏览器必须是IE。   Dim Wsr Set Wsr = WScript.CreateObject("WScript.Shell") '下面表示延迟启动的时间,单位毫秒 WSc

编写一个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下 延迟启动某程序

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
Windows 7下使用XP Mode运行XP程序 越来越多的人放弃了XP投入Windows7的怀抱,毕竟XP已经是10多年前
如何在.NET程序中启动xp的视觉效果 Xp推出后,大家都被它的漂亮界面所折服,其实在我们的程序中也可
快乐虾 http://blog.csdn.net/lights_joy/ lights@hb165.com 本文适用于 Xp sp3 vs2008 欢迎转载,
快乐虾 http://blog.csdn.net/lights_joy/ lights@hb165.com 本文适用于 Xp sp3 vs2008 欢迎转载,
快乐虾 http://blog.csdn.net/lights_joy/ lights@hb165.com 本文适用于 <span style="font-size
快乐虾 http://blog.csdn.net/lights_joy/ lights@hb165.com 本文适用于 <span style="font-size
最近优酷客户端总是自行运行启动,禁都禁不掉(MD,优酷的产品、开发太脑残。。。) 360等工具又只
在xp环境安装snmp的nms端来监控debian6,参阅了这篇文章感谢作者 原文地址:http://blog.csdn.net/y
sc delete mysql5.1.1 删除服务 mysql5.1.1 查看被占用端口对应的PID,输入命令:netstat -aon|find
最近看到一篇 《Windows编程革命简史》,想到以前刚开始用VS2012的时候,编译的程序在其他人那无法运
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号