自动改IP2.0版 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

今天我出一个自动改IP2.0版，内容已经和以前有很多地方不同了，所以没接在以前的贴下面。重点增加了自设重启次数功能，献丑了。
我就不全部给出冰点等工具了，你们自己加上去吧，我就给出了主程序的源码，有什么可以更好完善之处，望给出宝贵意见，谢谢。

ip.bat

@echo %dbg% off&setlocal enabledelayedexpansion
:: code by qasa copyright@qknet 2:16 2007-3-17
title 自动改IP(自设重启次数)   作者:钟其栋
mode con cols=50 lines=10&color a
if not exist 次数.txt goto st_
if exist c:\ip\key.txt goto OK
if not exist 设置.txt goto do_
set /p sum_=<次数.txt
for /l %%i in (!sum_!,-1,1) do (
   if exist c:\ip\off%%i.txt goto end
   )
exit /b

:st_
del /q c:\ip\*.txt >nul 2>nul
set /p sum_=你准备重启电脑多少次后安装冰点(建议设2次以上)?
echo %sum_% >次数.txt
cd %USERPROFILE%\「开始」菜单\程序\启动\
copy c:\ip\ippp.lnk . >nul 2>nul
cd c:\ip\
echo.&echo 请重启进行系统备份! ! !
ping/n 7 127.1>nul
goto :eof

:do_
setlocal enabledelayedexpansion
set no_=0
cd.>设置.txt
for /f "tokens=12 delims= " %%i in ('ipconfig /all^|find /i "Physical Address"') do (
   set mac=%%i
   set mac=!mac:~0,-1!
   )
for /f "tokens=1-3 delims==|" %%j in (MAC.INI) do (
   set mac_=%%j
   set ip_=%%k
   set sm_=%%l
   if !mac! equ !mac_! (
      call :set_ !mac_! !ip_! !sm_!  
      set /a no_+=1
      )   
   )
 if "!no_!"=="0" (
   echo.&echo MAC.ini中没有此机的MAC地址，将发送到工作机上......
   echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini
   echo %date% %time%新发现的MAC地址：>>\\游戏主机\full$\NewMAC.ini&echo !mac! >>\\游戏主机\full$\NewMAC.ini
   echo.&echo 已经发送到工作机! ! !
   del /q c:\ip\次数.txt
   )
goto :eof

:set_
set /p w=<次数.txt
if %w% equ 1 cd.>c:\ip\key.txt&&start shutdown -r -t 90 -c 现在是第1次重启_最后一次重启_下次将安装冰点。作者:qasa
if %w% neq 1 start shutdown -r -t 90 -c 现在是第1次重启。
cd.>c:\ip\off2.txt
echo %1 %2 %3
set yy_=%3
echo.&echo 正在为%yy_:~1,3%号设置IP、机号...... 请稍候
for /f "tokens=1-4 delims==|" %%e in (DNS.ini) do (
    set dns1_=%%e
    set dns2_=%%f
    set workgate_=%%g
    set zwym_=%%h
    )
for /f  "tokens=1 delims=" %%s in ('ipconfig /all^|find /i "Ethernet adapter"') do (set ss_=%%s)
set ss_=%ss_:~17,-2%
for /l %%w in (1,1,2) do (
  netsh interface IP Set Address "%ss_%" Static %2 %zwym_% %workgate_% 1 >nul
  )
netsh interface IP Set Dns "%ss_%" static %dns1_% >nul
netsh interface ip add dns "%ss_%"  %dns2_% >nul
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "Hostname"    /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "NV Hostname" /t REG_SZ /d %3 /f >nul 2>NUL
echo.&echo                设置完毕
goto :eof

:end
setlocal EnableDelayedExpansion
set /p summ_=<次数.txt
set /p ss=<次数.txt
set /a sss=ss
for /l %%i in (!summ_!,-1,1) do (
   if exist c:\ip\off%%i.txt (
      set /a a=%%i
      if exist c:\ip\off!sss!.txt (
         start shutdown -r -t 60 -c 现在是第!a!次重启_最后一次重启_下次将安装冰点。作者:qasa
         cd.>c:\ip\key.txt
         goto :eof
         )
      start shutdown -r -t 60 -c 现在是第!a!次重启。
      set/a b=a+1
      cd.>c:\ip\off!b!.txt
      goto :eof
      )
   )
goto :eof

:OK
cd %USERPROFILE%\「开始」菜单\程序\启动\
del /q ippp.lnk
cd c:\ip\
del /q c:\ip\*.txt
start "" df /install
goto :eof

下载地址:
http://zhenlove.com.cn/cndos/fileup/files/自动改IP2.0源代码.rar

[ Last edited by qasa on 2007-3-18 at 01:15 AM ]

第1楼　qasa	发表于 2007-03-18 14:04
高级用户　发帖 311　积分 959　来自广东-LianJiang
[原创]自动改IP2.0版今天我出一个自动改IP2.0版，内容已经和以前有很多地方不同了，所以没接在以前的贴下面。重点增加了自设重启次数功能，献丑了。我就不全部给出冰点等工具了，你们自己加上去吧，我就给出了主程序的源码，有什么可以更好完善之处，望给出宝贵意见，谢谢。 ip.bat @echo %dbg% off&setlocal enabledelayedexpansion :: code by qasa copyright@qknet 2:16 2007-3-17 title 自动改IP(自设重启次数) 作者:钟其栋 mode con cols=50 lines=10&color a if not exist 次数.txt goto st_ if exist c:\ip\key.txt goto OK if not exist 设置.txt goto do_ set /p sum_=<次数.txt for /l %%i in (!sum_!,-1,1) do ( if exist c:\ip\off%%i.txt goto end ) exit /b :st_ del /q c:\ip\.txt >nul 2>nul set /p sum_=你准备重启电脑多少次后安装冰点(建议设2次以上)? echo %sum_% >次数.txt cd %USERPROFILE%\「开始」菜单\程序\启动\ copy c:\ip\ippp.lnk . >nul 2>nul cd c:\ip\ echo.&echo 请重启进行系统备份! ! ! ping/n 7 127.1>nul goto :eof :do_ setlocal enabledelayedexpansion set no_=0 cd.>设置.txt for /f "tokens=12 delims= " %%i in ('ipconfig /all^\|find /i "Physical Address"') do ( set mac=%%i set mac=!mac:~0,-1! ) for /f "tokens=1-3 delims==\|" %%j in (MAC.INI) do ( set mac_=%%j set ip_=%%k set sm_=%%l if !mac! equ !mac_! ( call :set_ !mac_! !ip_! !sm_! set /a no_+=1 ) ) if "!no_!"=="0" ( echo.&echo MAC.ini中没有此机的MAC地址，将发送到工作机上...... echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini echo %date% %time%新发现的MAC地址：>>\\游戏主机\full$\NewMAC.ini&echo !mac! >>\\游戏主机\full$\NewMAC.ini echo.&echo 已经发送到工作机! ! ! del /q c:\ip\次数.txt ) goto :eof :set_ set /p w=<次数.txt if %w% equ 1 cd.>c:\ip\key.txt&&start shutdown -r -t 90 -c 现在是第1次重启_最后一次重启_下次将安装冰点。作者:qasa if %w% neq 1 start shutdown -r -t 90 -c 现在是第1次重启。 cd.>c:\ip\off2.txt echo %1 %2 %3 set yy_=%3 echo.&echo 正在为%yy_:~1,3%号设置IP、机号...... 请稍候 for /f "tokens=1-4 delims==\|" %%e in (DNS.ini) do ( set dns1_=%%e set dns2_=%%f set workgate_=%%g set zwym_=%%h ) for /f "tokens=1 delims=" %%s in ('ipconfig /all^\|find /i "Ethernet adapter"') do (set ss_=%%s) set ss_=%ss_:~17,-2% for /l %%w in (1,1,2) do ( netsh interface IP Set Address "%ss_%" Static %2 %zwym_% %workgate_% 1 >nul ) netsh interface IP Set Dns "%ss_%" static %dns1_% >nul netsh interface ip add dns "%ss_%" %dns2_% >nul REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "Hostname" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "NV Hostname" /t REG_SZ /d %3 /f >nul 2>NUL echo.&echo 设置完毕 goto :eof :end setlocal EnableDelayedExpansion set /p summ_=<次数.txt set /p ss=<次数.txt set /a sss=ss for /l %%i in (!summ_!,-1,1) do ( if exist c:\ip\off%%i.txt ( set /a a=%%i if exist c:\ip\off!sss!.txt ( start shutdown -r -t 60 -c 现在是第!a!次重启_最后一次重启_下次将安装冰点。作者:qasa cd.>c:\ip\key.txt goto :eof ) start shutdown -r -t 60 -c 现在是第!a!次重启。 set/a b=a+1 cd.>c:\ip\off!b!.txt goto :eof ) ) goto :eof :OK cd %USERPROFILE%\「开始」菜单\程序\启动\ del /q ippp.lnk cd c:\ip\ del /q c:\ip\.txt start "" df /install goto :eof 下载地址: http://zhenlove.com.cn/cndos/fileup/files/自动改IP2.0源代码.rar [ Last edited by qasa on 2007-3-18 at 01:15 AM ]

第2楼　lxmxn	发表于 2007-03-18 14:58
版主　发帖 4,938　积分 11,386
不错，顶了。

第3楼　liu3157551	发表于 2007-03-22 14:47
中级用户　发帖 164　积分 259
收藏了^_^ 2007-3-22 1:39:24星期四

第4楼　pmwz008	发表于 2007-03-23 05:58
初级用户　发帖 13　积分 24
不错，顶了。

第5楼　bza2006	发表于 2007-03-23 10:02
初级用户　发帖 27　积分 58
好东西，收藏了

第6楼　webyi	发表于 2007-03-25 22:59
新手上路　发帖 3　积分 6
很好啊，下载下来学习

第7楼　qq200309	发表于 2007-04-05 01:25
新手上路　发帖 6　积分 13
下载下来

第8楼　vkill	发表于 2007-04-05 01:31
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
有 config 就更好了

第9楼　qasa	发表于 2007-04-05 03:05
高级用户　发帖 311　积分 959　来自广东-LianJiang
Originally posted by vkill at 2007-4-4 12:31: 有 config 就更好了兄的意思是配置过程？还是其他？

第10楼　bing614	发表于 2007-05-03 11:04
初级用户　发帖 20　积分 44
Originally posted by lxmxn at 2007-3-18 01:58 AM: 　　不错，顶了。 1

第11楼　james168	发表于 2007-05-03 13:02
初级用户　发帖 35　积分 81
学习，学习。。。。

第12楼　lifei666	发表于 2007-09-10 16:23
初级用户　发帖 11　积分 23
测试下· 寻找中，

第13楼　love667970	发表于 2007-10-30 10:04
新手上路　发帖 5　积分 10
xiexie

第14楼　love667970	发表于 2007-10-30 10:05
新手上路　发帖 5　积分 10
学习

第15楼　scriptor	发表于 2007-10-31 00:03
银牌会员　发帖 555　积分 1,187
Originally posted by qasa at 2007-3-18 14:04: 今天我出一个自动改IP2.0版，内容已经和以前有很多地方不同了，所以没接在以前的贴下面。重点增加了自设重启次数功能，献丑了。我就 ... 还要重启这么多次,这个对机器不好吧!! 另外,如果是自动分配ip地址的,这个也能行得通吗??