qasa's Blog ★08-04-04更新★ - 中国DOS联盟论坛

全自动设置机号、IP工具3.0（完整版）
@echo %dbg% off&setlocal enabledelayedexpansion :: code by qasa copyright@qknet 2:16 2007-7-26 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

第16楼　lxmxn	发表于 2007-03-18 15:17
版主　发帖 4,938　积分 11,386
佩服兄作这么好的记录，支持。

第17楼　qasa	发表于 2007-03-21 14:09
高级用户　发帖 311　积分 959　来自广东-LianJiang
谢谢兄的鼓励，我会继续努力的。 [ Last edited by qasa on 2007-3-21 at 01:17 AM ]

第18楼　qasa	发表于 2007-03-31 12:04
高级用户　发帖 311　积分 959　来自广东-LianJiang
批处理处理浮点运算 http://www.cn-dos.net/forum/viewthread.php?tid=23568&fpage=1 Rundll32.exe 用法 http://www.cn-dos.net/forum/viewthread.php?tid=24125&fpage=5 批处理在线查单词 http://www.cn-dos.net/forum/viewthread.php?tid=26302&fpage=18 论坛色彩渐变代码生成器 http://www.cn-dos.net/forum/viewthread.php?tid=28332&fpage=20 超越color命令 - CMD里显示彩色文字 http://www.cn-dos.net/forum/viewthread.php?tid=30382&fpage=1 [ Last edited by qasa on 2007-5-9 at 11:41 PM ]

第19楼　qasa	发表于 2007-07-26 22:13
高级用户　发帖 311　积分 959　来自广东-LianJiang
全自动设置机号、IP工具3.0（完整版） @echo %dbg% off&setlocal enabledelayedexpansion :: code by qasa copyright@qknet 2:16 2007-7-26 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

第20楼　wenjiech	发表于 2007-10-11 16:02
新手上路　发帖 5　积分 12
太好了很想学习哪

第21楼　wenjiech	发表于 2007-10-11 16:05
新手上路　发帖 5　积分 12
太好了很想学习哪

第22楼　dthao	发表于 2007-11-01 18:03
中级用户　发帖 183　积分 378
厉害``支持先

第23楼　dthao	发表于 2007-11-01 18:03
中级用户　发帖 183　积分 378
厉害``支持先

第24楼　qasa	发表于 2008-04-04 23:53
高级用户　发帖 311　积分 959　来自广东-LianJiang
屏蔽端口 @echo off :: code by qasa copyright@qknet 22:24 2008-4-4 title 屏蔽端口工具作者:qasa mode con cols=35 lines=6&color c sc config PolicyAgent start= DEMAND >nul 2>nul sc start IPSEC Services >nul 2>nul gpupdate >nul 2>nul set ab=0 for /f "delims=" %%i in (port.ini) do ( ipseccmd -w REG -p "HFUT_SECU" -o -x >nul 2>nul ipseccmd -w REG -p "HFUT_SECU" -x >nul 2>nul ipseccmd -w REG -p "HFUT_SECU" -r "Block TCP/%%i" -f +0:%%i:TCP -n BLOCK -x >nul 2>nul ipseccmd -w REG -p "HFUT_SECU" -r "Block UDP/%%i" -f +0:%%i:UDP -n BLOCK -x >nul 2>nul cls&echo 请稍候，正在屏蔽 %%i 端口。 set/a ab+=1 ) echo.&echo 已经屏蔽 %ab% 个端口。 ping/n 5 127.1>nul

第25楼　haiou327	发表于 2008-05-04 19:40
高级用户　发帖 348　积分 713
收藏了!!!!!!!!!!!!!!!!!!!!!