[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络连接] 如何将 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!!

回复 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 编辑 ]

TOP

方法1:
  1. @echo off
  2. for /f "tokens=1,2* delims=:. " %%a in ('ipconfig') do if /i "%%a %%b"=="IP Address" set c=%%c
  3. (
  4. more +7<"%~f0"
  5. echo %c%=
  6. )>"C:\Program Files\713\1.ini"
  7. exit
  8. [LanguageID]
  9. ID=0
  10. [LanguageINI]
  11. 2052=2052.ini
  12. 1028=1028.ini
  13. 1033=1033.ini
  14. 3076=1028.ini
  15. 4100=1028.ini
  16. 5124=1028.ini
  17. [PlayMode]
  18. Client=0
  19. [Default]
  20. OpenFileMode=1
  21. MaxView=0
  22. [NetVicinage]
复制代码
方法2:
  1. @echo off
  2. for /f "tokens=1,2* delims=:. " %%a in ('ipconfig') do if /i "%%a %%b"=="IP Address" set c=%%c
  3. (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "11.txt"') do (
  4.         echo/%%b
  5.         if /i "%%b"=="[NetVicinage]" echo %c%=&goto:eof
  6. ))>"C:\Program Files\713\1.ini"
复制代码

[ 本帖最后由 hanyeguxing 于 2011-1-15 15:38 编辑 ]
寒夜孤星:在没有说明的情况下,本人所有代码均运行在 XP SP3 下 (有问题请发贴,QQ临时会话已关闭)

TOP

返回列表