100分求 XP系统下运行某程序倒计时一分钟后自动结束该进程,不要任何提示.
例如qq.exe要求:运行qq.exe的时候同时自动执行该命令,不需要用户多余的操作.实现:XP系统下运行qq.exe后倒计时一分钟自动结束qq.exe,不要任何提示....
例如 qq.exe
要求:运行qq.exe的时候同时自动执行该命令,不需要用户多余的操作.
实现:XP系统下运行qq.exe后倒计时一分钟自动结束qq.exe,不要任何提示. 展开
要求:运行qq.exe的时候同时自动执行该命令,不需要用户多余的操作.
实现:XP系统下运行qq.exe后倒计时一分钟自动结束qq.exe,不要任何提示. 展开
4个回答
展开全部
复制粘贴来的,自己尝试吧。
方法一。借鉴网上的脚本写了两个,复制代码到记事本里保存成VBS文件执行即可
******************************************非特定目标版*******************************************
Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell")
objShell.Run "ntsd -c q -pn " & ProcessName,0,True
End Sub
Process_Name = InputBox("输入需要终止的程序名称(含后缀)","设定程序",".exe")
Time_Set = InputBox("输入需要终止延时时间(单位为秒)","设定定时")
Waiting_Time = Time_Set * 1000
Wscript.Sleep Waiting_Time
Close_Process Process_Name
******************************************************************************************************
**********************************************固定目标版******************************************
Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell")
objShell.Run "ntsd -c q -pn " & ProcessName,0,True
End Sub
Wscript.Sleep Waiting_Time
Close_Process Process_Name
'把Waiting_Time改成需要延长关闭的时间(延时=N秒*1000)
'把Process_Name改成需要延时关闭的程序名,例子:"qq.exe",要带上英文双引号
方法二
例子:假如需要将打开的QQ程序一个小时后自动关闭。(系统用户名为test,密码为123,QQ程序目录在D:\Tencent\QQ2008\QQ.exe)
1、在C盘根目录建立一个批处理文件“test.cmd”和“QQ.cmd”。
test.cmd文件内容如下:
taskkill /f /t /im QQ.exe
SCHTASKS /Delete /TN "test" /F
QQ.cmd文件内容如下:
start D:\Tencent\QQ2008\QQ.exe
SCHTASKS /Create /SC HOURLY /MO 1 /TN test /TR c:\test.cmd /RU test /RP 123
2、发送QQ.cmd快捷方式到桌面,点击打开QQ.cmd,运行脚本启动QQ程序和建立计划任务,待1小时后计划任务启动结束QQ程序和删除计划任务。
方法一。借鉴网上的脚本写了两个,复制代码到记事本里保存成VBS文件执行即可
******************************************非特定目标版*******************************************
Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell")
objShell.Run "ntsd -c q -pn " & ProcessName,0,True
End Sub
Process_Name = InputBox("输入需要终止的程序名称(含后缀)","设定程序",".exe")
Time_Set = InputBox("输入需要终止延时时间(单位为秒)","设定定时")
Waiting_Time = Time_Set * 1000
Wscript.Sleep Waiting_Time
Close_Process Process_Name
******************************************************************************************************
**********************************************固定目标版******************************************
Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell")
objShell.Run "ntsd -c q -pn " & ProcessName,0,True
End Sub
Wscript.Sleep Waiting_Time
Close_Process Process_Name
'把Waiting_Time改成需要延长关闭的时间(延时=N秒*1000)
'把Process_Name改成需要延时关闭的程序名,例子:"qq.exe",要带上英文双引号
方法二
例子:假如需要将打开的QQ程序一个小时后自动关闭。(系统用户名为test,密码为123,QQ程序目录在D:\Tencent\QQ2008\QQ.exe)
1、在C盘根目录建立一个批处理文件“test.cmd”和“QQ.cmd”。
test.cmd文件内容如下:
taskkill /f /t /im QQ.exe
SCHTASKS /Delete /TN "test" /F
QQ.cmd文件内容如下:
start D:\Tencent\QQ2008\QQ.exe
SCHTASKS /Create /SC HOURLY /MO 1 /TN test /TR c:\test.cmd /RU test /RP 123
2、发送QQ.cmd快捷方式到桌面,点击打开QQ.cmd,运行脚本启动QQ程序和建立计划任务,待1小时后计划任务启动结束QQ程序和删除计划任务。
更多追问追答
追问
先谢谢了,我马上去试下。
追答
快捷方式指向vbs,图标可以改成qq的。
展开全部
你这要求也太奇葩了吧!估计你让老盖来才很难实现哦!!
追问
问题是有些奇葩,但是我也没办法啊,软件冲突,当然QQ是举例,并不是要QQ这样.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可不可以 你点击一个文件 1分钟之后杀掉qq.exe
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
重装系统.
追问
你认真看问题了吗
追答
不好意思眼花了没看清楚,这个好象不可能吧!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询