昨天发了个3322域名搭建本地FTP ,WEB的教程。 由于第二次使用时要更新外网IP ,比较麻烦。 所以我写了个批处理,一键更新3322域名IP的。 经过我试验,可以使用。 大家拿走吧!!!这是搭建用3322FTP WEB的帖子http://bbs.houdao.com/r4211849/ 大家可以去学习下 ----------------------------复制下面的,这行不用。-------------------------------------------------------------------
@echo off&setlocal enabledelayedexpansion
color c
mode con:cols=40 lines=20
title 自动获取公网IP更新3322动态域名
echo 自动获取公网IP更新3322动态域名
echo 冬寒、雪未飘专用
echo 切勿用于非法用途!!!
echo 冬寒、雪未飘
echo By:冬寒、雪未
飘
echo
echo
===========================================================================
===
echo 欢迎使用自动获取公网IP更新3322动态域名工具
if not exist "%~dp03322temp.bat" goto start
:str
echo 你已进行了配置,直接更新请选1,更改配置请选2,退出为0。
set pass=
set /p pass=请选择 1.自动更新 2.更改配置 0.退出------
if /i %pass%==1 goto csoop
if /i %pass%==2 goto s
if /i %pass%==0 goto exit
echo 请正确输入数字!
goto str
:start
echo 你是第一次使用,请输入配置信息。
:s
call :3322set
call :getip
call :gxip
call :zg
if /i %sad%==good call :co
if /i %sad%==noch call :co
:ss
del temp.vbs
echo 更新完毕,5秒钟后自动退出!
ping -n 5 127.0.0.1>nul
call :exit
:3322set
set dsnna=
set dsnmima=
set dsn=
set/p dsnna=请输入3322用户名……
set/p dsnmima=请输入3322用户密码……
set/p dsn=请输入需要更新的域名(如XCD.3322.org)……
goto :eof
:getip
set timeserver="
http://members.3322.org/dyndns/getip"
echo Set kumho=Wscript.GetObject(Wscript.Arguments(0)) >temp.vbs
echo Do Until kumho.readyState="complete" >>temp.vbs
echo Wscript.Sleep 100 >>temp.vbs
echo Loop >>temp.vbs
echo Wscript.Echo kumho.documentElement.outerText >>temp.vbs
echo Set kumho=nothing >>temp.vbs
set/p=正在获取IP...<nul
for /f "tokens=* delims=" %%a in ('cscript //nologo temp.vbs %timeserver%')
do set var=%%a
echo %var%
goto :eof
:gxip
set timeserver1="
http://%dsnna%:%dsnmima%@members.3322.org/dyndns/update?
system=dyndns&hostname=%dsn%&myip=%var%
&wildcard=OFF&mx=&backmx=NO&offline=NO"
for /f "tokens=* delims=" %%a in ('cscript //nologo temp.vbs %
timeserver1%') do set result=%%a
goto :eof
:zg
set sad=%result:~0,4%
echo %sad%|findstr "~0,4">nul&&echo 输入的用户名和密码有误,请重
新核查,程序会自动关闭&&ping -n 5 127.0.0.1>nul&&del temp.vbs&&exit
if /i %sad%==your echo --失败--需要更新的域名有误,请正确输入需要
更新的域名.
if /i %sad%==noho echo --失败--需要更新的域名有误,请正确输入需要
更新的域名.
if /i %sad%==good echo 恭喜你--成功更新了域名.
if /i %sad%==noch echo 你的公网IP与域名IP一致,不需更新!
goto :eof
:csoop
call :getip
call "%~dp03322temp.bat"
goto ss
:co
echo echo -----------%dsn%自动更新配置信息器------------> "%
~dp03322temp.bat"
echo set timeserv="
http://%dsnna%:%dsnmima%@members.3322.org/dyndns/update?system=dyndns&hostname=%dsn%&myip=%%var%%
&wildcard=OFF&mx=&backmx=NO&offline=NO" >> "%~dp03322temp.bat"
echo for /f "tokens=* delims=" %%%%a in ('cscript //nologo temp.vbs %%
timeserv%%') do set result=%%%%a>> "%~dp03322temp.bat"
echo set sad=%%result:~0,4%%>> "%~dp03322temp.bat"
echo if /i %%sad%%==your echo --失败--需要更新的域名有误,请正确输
入需要更新的域名. >> "%~dp03322temp.bat"
echo if /i %%sad%%==noho echo --失败--需要更新的域名有误,请正确输
入需要更新的域名. >> "%~dp03322temp.bat"
echo if /i %%sad%%==good echo 恭喜你--成功更新了域名. >>
"%~dp03322temp.bat"
echo if /i %%sad%%==noch echo 你的公网IP与域名IP一致,不需更新!
>> "%~dp03322temp.bat"
goto :eof
:exit
exit
-----------------------------------------------复制上面的,这行不用复制--------------------------------------------------
写个批处理花了我好长时间!!! 我坏坏 你要是不给我20分 我跟你拼命 哼~~ 对了,帮我把域名搭建FTP WEB的帖子提前 都沉了