
if "%1" == "h" (cls & goto st)
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&神山exit
:st
set 渗薯"program=1.exe"
:jc
title 文件处于关闭状态,侦测文件中...
:loop
tasklist|find /i "%program%"
if "%errorlevel%"=="0" cls & goto jishi
cls & goto loop
:jishi
title 以检测到丛瞎者文件正在打开,正在计时中...
ping 127.0.0.1 -n 9000 >nul
taskkill /f /t /im "%program%"
cls & goto jc
以上代码就是,望采纳!!!!!!
建议不要这么用 很耗费CPU和资源或者把时间延长vbs不是vb 是电脑中判上自带的脚扰型本wscript.exe
用批处理会更好 因为vbs也是调用了cmd的还不如批处理bat
反而浪费资源
建议用第卖李改二个命令
对于死循环程序,只能强制退出。
1、控制台程序中的死循环程序,一般按CTRL+C直接中断程序即可。比如下面的死循环控制台程返余竖序。
int main()
{
while (1)
return 0
}
按CTRL+C即可中断程序。在控制台下会显示为^C。
2、图形界面中的死循环程序,可以使用进程管理工具来强制结束,比如windows上的任务管理器。当然控制台死循环程序,也可以使用此种方法结束。以win7为例,在任务栏上右键,在d毁厅出菜单中选择漏大“任务管理器”。
在任务管理器中找到要结束的进程,右键选择“结束进程”即可。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)