[VBS] 使用vbs文件保证程序运行，并模拟键盘回车键
2010-04-21 11:12
381 查看
代码如下，注意修改红色部分
do
Dim Shell
Set Shell=WScript.CreateObject("WScript.Shell")
dim OK,oShell
OK=False
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='Portal.exe'")
For Each id In pipe
OK = True
Next
If not OK Then
Shell.Run "e:\Portal.exe"
WScript.Sleep 10000
Shell.SendKeys "{ENTER}"
end if
WScript.sleep 60000
loop
do
Dim Shell
Set Shell=WScript.CreateObject("WScript.Shell")
dim OK,oShell
OK=False
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='Portal.exe'")
For Each id In pipe
OK = True
Next
If not OK Then
Shell.Run "e:\Portal.exe"
WScript.Sleep 10000
Shell.SendKeys "{ENTER}"
end if
WScript.sleep 60000
loop
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 使用C#在程序运行时创建文件关联
- win7里边使用telnet命令为什么提示telnet不是内部或外部命令，也不是可运行的程序或批处理文件？
- 批处理运行遇到“另一个程序正在使用此文件,进程无法访问”
- 使用installanywhere打包java文件生成任何平台都可以运行的程序（如.exe）（关闭360！）
- VMware Workstation 无法连接到虚拟机。请确保您有权运行该程序、访问该程序使用的所有目录以及访问所有临时文件目录。 VMware Authorization Service 当前未运行
- 磁盘上的文件系统结构已损坏,不能使用。 请在卷 数据库 上运行 chkdsk 实用程序。
- VMware Workstation 无法连接到虚拟机。请确保您有权限运行该程序、访问改程序使用的所有目录以及访问所有临时文件目录。
- 记录程序运行的时间，使用<time.h>头文件
- ucGUI 使用VC模拟运行第一个程序
- 将EXE作为资源，然后在释放到磁盘上并运行该exe程序（使用了FindResource，LoadResource，然后用CFile写成一个文件）
- 使用程序自动调用ANSYS并运行命令流文件
- [bat] 使用bat文件保证指定程序运行
- 在运行程序时报错："如果在 Code First 模式下使用，则使用 T4 模板为 Database First 和 Model First 开发生成的代码可能无法 正常运行。若要继续使用 Database First 或 Model First，请确保在执行应用程序的 config 文件中指 定 Entity Framework 连接字符串。若要将这些从 Database First 或 Mod
- windows下，使用批处理文件运行python程序
- 【C语言】没事可以试试这个小程序，使用文件操作，模拟实现一个简单的文件拷贝工具！
- 使用笔记本分享热点点击命令出现，“netsh”不是内部或外部命令，也不是可运行的程序或批处理文件解决办法
- ucGUI 使用VC模拟运行第一个程序
- 使用C#在程序运行时创建文件关联
- 磁盘上的文件系统已损坏，不能使用，请在卷\Device\HarddiskVolume1上运行chkdsk实用程序
- 高性能服务器运行程序配置文件的使用