标题: [网络连接] 如何将 adsl IP 替换到 INI 文件中 [打印本页]
作者: yueyanwen 时间: 2011-1-15 14:54 标题: 如何将 adsl IP 替换到 INI 文件中
如何将 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!!
作者: hanyeguxing 时间: 2011-1-15 15:27
方法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 编辑 ]
作者: yueyanwen 时间: 2011-1-15 18:58 标题: 回复 2楼 的帖子
@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 编辑 ]
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |