[其他] 如何实现间歇性地更换IP地址

fanqie0223

求一个定时修改ip地址的批处理文件在线等啊急

只需要修改ip就可以了，2个ip来回修改每个2分钟修改一次（最好教一下怎么修改这个时间）

[ 本帖最后由 fanqie0223 于 2010-6-26 15:50 编辑 ]

neorobin

@echo off & setlocal enabledelayedexpansion
if /i "%1" equ "hide" goto begin
if /i "%1" equ "show" goto begin
rem 直接隐藏运行的方法: 删除或注解下面的一行
set /p show=需要显示窗口界面吗^(y/n^)[直接回车=不显示]: 
if /i "%show:~0,1%" equ "y" goto begin
(call :showWindow hide)

:begin
set "ACName=本地连接"
(call :findACName ACName) & rem 不用搜索活动连接的话, 删除或注解本行.
set /a ipts=2,ipte=9,ipt=3& rem ipts--ipte 指定可用的 ip 地址范围, 例如: 192.168.0.2--192.168.0.9, ipt 取范围中的任一值.
set "iph=192.168.0." & set "mask=255.255.255.0" & set "gateway=!iph!1" & set ms=120 & rem ms: 时间间隔秒数
netsh interface ip set address "!ACName!" static !iph!!ipt! !mask! !gateway! 1
for /l %%k in (0 0 0) do (
  set /a "ipt=(ipt+1-ipts)%%(ipte-ipts+1)+ipts"
  netsh interface ip set address "!ACName!" static !iph!!ipt! !mask!
  for /f "tokens=2 delims=[]" %%a in ('ping -n 1 %computername% ^| find "["') do echo %%a
  ping -n !ms! 127.1>nul
)
exit /b

:findACName ACName rem 找出当前活动连接的名称
for /f "tokens=2 delims=[]" %%i in ('ping -n 1 %computername% ^| find "["') do (
  for /f "skip=1" %%a in ('wmic nicconfig where "ipenabled='true'" get index') do (
    for /f "delims=}{" %%b in ('wmic nicconfig where "index=%%a" get ipaddress') do (
      if "%%~b"=="%%i" for /f "tokens=1-2 delims==" %%c in ('wmic nic where "index=%%a" get NetConnectionID /value') do (
        for /f "delims=" %%z in ("%%d") do set "_%%c=%%z"
      )
    )
  )
)
set %1=!_NetConnectionID!&echo 当前活动连接为: "!%1!"
exit /b

:showWindow
if /i "%1" equ "hide" (set intWindowStyle=0) else (set intWindowStyle=5)
mshta vbscript:createobject("wscript.shell").run("%~snx0 %1",!intWindowStyle!)(window.close)&&exit
exit /b
复制代码

fanqie0223

师傅写的cpu占用100%啊我胡写的那个占用就不高不知道为什么，能不能把占用降下来

fanqie0223

找出当前活动连接的名称
这段也不要我直接直接写上去就ok谢谢

fanqie0223

实在太感谢楼上的师傅了在请教一下如何不询问直接隐藏cmd？谢谢
这样我直接随系统启动就ok了对用户绝对透明了

neorobin

这个我不会, 但有一种隐藏运行的技术

@echo off & setlocal enabledelayedexpansion
if /i "%1" equ "hide" goto begin
if /i "%1" equ "show" goto begin

set /p show=需要显示窗口界面吗^(y/n^)[直接回车=不显示]:)
if /i "%show:~0,1%" equ "y" goto begin
(call :showWindow hide)

:begin

call :foundACName ACName
set "ipa=192.168.1.101" & set "ipb=192.168.1.102" & set "mask=255.255.255.0" & set "gateway=192.168.1.1"
set /a ms=2 & rem ms 为时间间隔
for /l %%k in (0 0 0) do (
  set /a "diff=1!time:~3,2!-100+60-mm, diff%%=60"
  if !diff! geq !ms! ( set /a mm=1!time:~3,2!-100
    for /f "tokens=2 delims=[]" %%i in ('ping -n 1 %computername% ^| find "["') do (
      if "%%i"=="!ipa!" (netsh interface ip set address name="!ACName!" source=static addr=!ipb! mask=!mask! gateway=!gateway! 1
      ) else (
        netsh interface ip set address name="!ACName!" source=static addr=!ipa! mask=!mask! gateway=!gateway! 1
      )
      for /f "tokens=2 delims=[]" %%a in ('ping -n 1 %computername% ^| find "["') do echo %%a
    )
  )
)
exit /b

:foundACName ACName rem 找出当前活动连接的名称
for /f "tokens=2 delims=[]" %%i in ('ping -n 1 %computername% ^| find "["') do (
  for /f "skip=1" %%a in ('wmic nicconfig where "ipenabled='true'" get index') do (
    for /f "delims=}{" %%b in ('wmic nicconfig where "index=%%a" get ipaddress') do (
      if "%%~b"=="%%i" for /f "tokens=1-2 delims==" %%c in ('wmic nic where "index=%%a" get NetConnectionID /value') do (
        for /f "delims=" %%z in ("%%d") do set "_%%c=%%z"
      )
    )
  )
)
set %1=!_NetConnectionID!&echo 当前活动连接为: "!%1!"
exit /b

:showWindow
if /i "%1" equ "hide" (set intWindowStyle=0) else (set intWindowStyle=5)
mshta vbscript:createobject("wscript.shell").run("%~snx0 %1",!intWindowStyle!)(window.close)&&exit
exit /b
复制代码

要想关闭隐藏的 cmd , 可以用一种野蛮的方式关闭所有的 cmd

taskkill /f /t /im cmd.exe
复制代码

[ 本帖最后由 neorobin 于 2010-6-24 23:07 编辑 ]

fanqie0223

如何在用户点击关闭批处理文件跳出对话框警告

fanqie0223

新手新方法
echo off
cls
echo 欢迎使用此程序运行后请将程序最小化能保证您正常上网15分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.2 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
我把这个放在最前头。。。。。。
搞定

neorobin

取消 变量 mm 的第一次赋值即可,即 把这行

set /a mm=1!time:~3,2!-100, ms=2 & rem ms 为时间间隔
复制代码

改为

set /a ms=2 & rem ms 为时间间隔
复制代码

另外 11 楼的代码重新编辑过的, 发 11 楼帖时的代码是不支持 连接名称中含有 空格的, 现在修改过的可兼容含 空格 的连接名称, 请重新复制代码

[ 本帖最后由 neorobin 于 2010-6-24 22:10 编辑 ]

fanqie0223

谢谢楼上的只是现在偶还有一个问题是运行后不能马上更改ip能不能在帮忙修改一下谢谢

neorobin

4 楼是利用的计划任务, 不够完善, 下面给出直接批处理循环, 但批处理程序不能关闭

@echo off & setlocal enabledelayedexpansion
call :foundACName ACName
set "ipa=192.168.1.101" & set "ipb=192.168.1.102" & set "mask=255.255.255.0" & set "gateway=192.168.1.1"
set /a mm=1!time:~3,2!-100, ms=2 & rem ms 为时间间隔
for /l %%k in (0 0 0) do (
  set /a "diff=1!time:~3,2!-100+60-mm, diff%%=60"
  if !diff! geq !ms! ( set /a mm=1!time:~3,2!-100
    for /f "tokens=2 delims=[]" %%i in ('ping -n 1 %computername% ^| find "["') do (
      if "%%i"=="!ipa!" (netsh interface ip set address name="!ACName!" source=static addr=!ipb! mask=!mask! gateway=!gateway! 1
      ) else (
        netsh interface ip set address name="!ACName!" source=static addr=!ipa! mask=!mask! gateway=!gateway! 1
      )
      for /f "tokens=2 delims=[]" %%a in ('ping -n 1 %computername% ^| find "["') do echo %%a
    )
  )
)
exit /b

:foundACName ACName rem 找出当前活动连接的名称
for /f "tokens=2 delims=[]" %%i in ('ping -n 1 %computername% ^| find "["') do (
  for /f "skip=1" %%a in ('wmic nicconfig where "ipenabled='true'" get index') do (
    for /f "delims=}{" %%b in ('wmic nicconfig where "index=%%a" get ipaddress') do (
      if "%%~b"=="%%i" for /f "tokens=1-2 delims==" %%c in ('wmic nic where "index=%%a" get NetConnectionID /value') do (
        for /f "delims=" %%z in ("%%d") do set "_%%c=%%z"
      )
    )
  )
)
set %1=!_NetConnectionID!&echo 当前活动连接为: "!%1!"
exit /b
复制代码

另给出一个实时监控显示 IP 的代码:

@echo off & setlocal enabledelayedexpansion& set "color=02"& color !color!&mode con lines=1 cols=28
for /l %%i in (0 0 0) do for /f "tokens=2 delims=[]" %%a in ('ping -a -n 1 %computername% ^| find "["') do (
  if "%%a" neq "!ip!" set ip=%%a&set color=!color:~1!!color:~0,-1!&color !color!
  cls&set /p=!time! %%a<nul
)
复制代码

[ 本帖最后由 neorobin 于 2010-6-24 21:54 编辑 ]

fanqie0223

4楼帮忙写的只能更换一次ip只能在开始的时候换一次ip之后就每2分钟换不了啊

fanqie0223

回5楼偶只是上公司内网，公司内网很大的（全国的）今天竟然发现换ip的时候竟然pingdns竟然不丢包的

fanqie0223

上面是昨晚写的，今天去公司一早花20分钟又优化了一下哈哈
然后领导面前演示了一下竟然不成功，原因是上一次运行后我就关闭了导致使用了一个a地址无法被替换
思路先用一个a地址迅速换b10分钟后换c然后就是b换不换a，很傻的脚本不过自己第一次写这个玩意很开心

fanqie0223

我的使用场景
公司花大价钱买了一个网管软件，客户机需要装客户端就被监控如果不装就只能上网9分半钟（今早才掐的时间）然后就会出现ip冲突不能上网现在我可以使用换ip的方法上网（不知道是不是网管有意留的漏洞竟然没有绑mac呵呵）

绝对新手看我的注册日期就知道自己糊写了一个



echo off
cls
echo 欢迎使用此程序运行后请将程序最小化能保证您正常上网15分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.2 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
echo off
cls
echo 欢迎使用此程序运行后请将程序最小化能保证您正常上网15分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.3 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
echo off
cls
echo 欢迎使用此程序运行后请将程序最小化能保证您正常上网15分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.4 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
ping -n 120 127.0.0.1>nul
echo off
cls
echo 还有13分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.5 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
ping -n 120 127.0.0.1>nul
echo off
cls
echo 还有11分钟
echo off
netsh interface ip set address name="本地连接" source=static addr=192.168.0.2 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=192.168.0.1 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=218.2.135.1
netsh interface ip add dns name="本地连接" addr=202.102.4.141
ping -n 0 127.0.0.1>nul
echo OK...请按任意按键退出!
pause
exit