中国DOS联盟

@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

@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