求批处理bat代码：使CMD同时PING多个IP或域名，且多个PING窗口平铺显示在同一显示器

发布网友 发布时间：2022-04-23 19:51

我来回答

共3个回答

热心网友 时间：2023-10-06 03:35

@echo off
setlocal enabledelayedexpansion
echo 127.1>ip.txt
echo 127.1>>ip.txt
echo 127.1>>ip.txt
echo 127.1>>ip.txt
echo 127.1>>ip.txt
echo 127.1>>ip.txt
echo 127.1>>ip.txt
rem 事先把ip或域名每行一个保存在ip.txt就不需要上面这些echo语句了。
set w=400
set h=200
echo zhidao.baidu.com>>ip.txt
echo 192.168.1.101>>ip.txt
set n=0
set m=0
for /f "tokens=*" %%i in (ip.txt) do (
set ip=%%i
set/a l=1+!n!*%w%
set/a t=1+!m!*%h%
set /a s+=1
set /a m=!s!/3
set /a n=!s! %% 3
echo Option Explicit>%%i.vbs
echo Dim objWMIService>>%%i.vbs
echo Set objWMIService = GetObject^("winmgmts:\\.\root\cimv2"^)>>%%i.vbs
echo Dim objStartupInfo>>%%i.vbs
echo Set objStartupInfo = objWMIService.Get^("Win32_ProcessStartup"^)>>%%i.vbs
echo objStartupInfo.SpawnInstance_>>%%i.vbs
echo objStartupInfo.X = !l!>>%%i.vbs
echo objStartupInfo.XSize =%w%>>%%i.vbs
echo objStartupInfo.Y = !t!>>%%i.vbs
echo objStartupInfo.YSize = %h%>>%%i.vbs
echo Dim objNewProcess>>%%i.vbs
echo Set objNewProcess = objWMIService.Get^("Win32_Process"^)>>%%i.vbs
echo Dim intPID>>%%i.vbs
echo Dim errRtn>>%%i.vbs
echo errRtn = objNewProcess.Create^("ping !ip! -n 10", Null, objStartupInfo, intPID^)>>%%i.vbs
wscript %%i.vbs
del %%i.vbs
rem del ip.txt
)

追问您好大师，再请教两个问题：
1.IP.txt保存路径是，还是只要跟该BAT文件路径一致就行呢？
2.“127.1>ip.txt”是什么意思，如果直接把IP写在代码里面是把“127.1>ip.txt”直接替换IP,还是将“127.1”替换成IP就可以？

热心网友 时间：2023-10-06 03:36

这个是可以实现的。
就是需要一个能换转换器的软件就可以了
可以下。。。兔！@子转换器。
国内动态换转换器，5000＋线路，方便。

热心网友 时间：2023-10-06 03:36

可以试试用兔子...IP修改器
可随意选择全国800多个城市IP线路连接
支持单页面，单窗口，单IP
连上之后IP地址自动发生改变，动态IP静态IP都支持
手机电脑模拟器虚拟机都可以用