3个回答
展开全部
MyLoop '启动循环体
function MyLoop()'循环体
RunAndClose "notepad.exe" '你要运行的程序
MyLoop '调用循环体
end function
function RunAndClose(yourApp) '打开关闭程序方法
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.run yourApp' '运行你的程序
WScript.Sleep 1000 '休息一秒
objShell.run "cmd.exe /C taskkill /f /im " &yourApp '关闭你的程序
end function
function MyLoop()'循环体
RunAndClose "notepad.exe" '你要运行的程序
MyLoop '调用循环体
end function
function RunAndClose(yourApp) '打开关闭程序方法
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.run yourApp' '运行你的程序
WScript.Sleep 1000 '休息一秒
objShell.run "cmd.exe /C taskkill /f /im " &yourApp '关闭你的程序
end function
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
set ws=createobject("wscript.shell")
Do while 1
'将"G:aa\a.exe"成你的程序路径
'run 参数1,参数2,参数3
'参数1是路径,参数2是窗口运行方式0---代表后台运行;1代表正常运行;6代表最小化运行;
'参数3默认不写为false,写上ture时将等待调用程序退出后再继续向后执行
ws.run "G\aa\a.exe",0,false
wscript.Sleep 2000
ws.run "taskkill /f /im a.exe",0,true
wscript.Sleep 2000
Loop
Do while 1
'将"G:aa\a.exe"成你的程序路径
'run 参数1,参数2,参数3
'参数1是路径,参数2是窗口运行方式0---代表后台运行;1代表正常运行;6代表最小化运行;
'参数3默认不写为false,写上ture时将等待调用程序退出后再继续向后执行
ws.run "G\aa\a.exe",0,false
wscript.Sleep 2000
ws.run "taskkill /f /im a.exe",0,true
wscript.Sleep 2000
Loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
保存为BAT文件,放进启动文件夹,请复制:C:\Program Files\Internet Explorer\iexplore.exe" 启动网页地址
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询