[网络连接] 如何将 adsl IP 替换到 INI 文件中

yueyanwen

如何将 adsl IP 替换到 INI 文件中

adsl 动态IP  每次开机变换！

需要替换的 ini 文件 位置 C:\Program Files\713\1.ini


[LanguageID]
ID=0
[LanguageINI]
2052=2052.ini
1028=1028.ini
1033=1033.ini
3076=1028.ini
4100=1028.ini
5124=1028.ini
[PlayMode]
Client=0
[Default]
OpenFileMode=1

MaxView=0
[NetVicinage]
X.X.X.X=



就是替换上面那个位置x.x.x.x！！

yueyanwen

@echo off & setlocal enableextensions
echo WScript.Sleep 1000 > %temp%\tmp$$$.vbs
set /a i = 5
rem
:Timeout
if %i% == 0 goto Next
setlocal
set /a i = %i% - 1
cls
echo
echo.
echo [%i%]秒后关闭
echo.
WScript //nologo %temp%\tmp$$$.vbs
goto Timeout




:Next
if not exist getip.vbs (
echo Set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp"^)
echo do until oDOM.readyState = "complete"
echo WScript.sleep 200
echo loop
echo WScript.echo oDOM.documentElement.outerHtml
)>getip.vbs
for /f "tokens=2 delims=[]" %%a in ('cscript //NoLogo getip.vbs^|findstr "[ ]"') do echo.%%a>>xPlayer.ini


开机加载提示错误 拒绝访问 %temp%\tmp$$$.vbs 点完四次确定就可以正常运行了！

而直接在系统里双击运行就不提示错误，就好使！  

版主帮帮我！ 这是怎么回事？

这个代码地下就好使！ 上部分是一个倒计时的。  是不是这个上面记时的有问题 版主您看看

[ 本帖最后由 yueyanwen 于 2011-1-15 19:00 编辑 ]

hanyeguxing

方法1：

@echo off
for /f "tokens=1,2* delims=:. " %%a in ('ipconfig') do if /i "%%a %%b"=="IP Address" set c=%%c
(
more +7<"%~f0"
echo %c%=
)>"C:\Program Files\713\1.ini"
exit

[LanguageID]
ID=0
[LanguageINI]
2052=2052.ini
1028=1028.ini
1033=1033.ini
3076=1028.ini
4100=1028.ini
5124=1028.ini
[PlayMode]
Client=0
[Default]
OpenFileMode=1

MaxView=0
[NetVicinage]
复制代码

方法2：

@echo off
for /f "tokens=1,2* delims=:. " %%a in ('ipconfig') do if /i "%%a %%b"=="IP Address" set c=%%c
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* "11.txt"') do (
        echo/%%b
        if /i "%%b"=="[NetVicinage]" echo %c%=&goto:eof
))>"C:\Program Files\713\1.ini"
复制代码

[ 本帖最后由 hanyeguxing 于 2011-1-15 15:38 编辑 ]