求批处理或vbs高手急，在线等，如果能成功运行，定加分
答案:1 悬赏:80 手机版
解决时间 2021-04-01 14:11
- 提问者网友：风月客
- 2021-04-01 01:18
求批处理或vbs高手急，在线等，如果能成功运行，定加分
最佳答案
- 五星知识达人网友：躲不过心动
- 2021-04-01 01:50
@echo off
set p=notepad.exe
echo Dim WshShell>temp.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell")>>temp.vbs
echo WScript.Sleep 200>>temp.vbs
echo WshShell.AppActivate "无标题 - 记事本">>temp.vbs
echo WScript.Sleep 200>>temp.vbs
echo WshShell.SendKeys "{F10}">>temp.vbs
:begin
ping 192.168.1.1|findstr TTL&&goto begin
start %p%
ping 127.1 -n 180>nul
taskkill /f /im %p%
goto begin
"无标题 - 记事本"引号里的内容换成你的abc.exe标题栏的内容
set p=notepad.exe
echo Dim WshShell>temp.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell")>>temp.vbs
echo WScript.Sleep 200>>temp.vbs
echo WshShell.AppActivate "无标题 - 记事本">>temp.vbs
echo WScript.Sleep 200>>temp.vbs
echo WshShell.SendKeys "{F10}">>temp.vbs
:begin
ping 192.168.1.1|findstr TTL&&goto begin
start %p%
ping 127.1 -n 180>nul
taskkill /f /im %p%
goto begin
"无标题 - 记事本"引号里的内容换成你的abc.exe标题栏的内容
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯