关于局域网获取公网ip

497734601

小弟遇到一个问题，就是如何利用批处理做到获取公网ip并保存到txt文档中，在网上看过很多方法都不行！

xiao75918

是否获取上网分配的动态ip,我在网上找了一个，好像可以

@echo off
>html.vbs echo set http=createobject("Microsoft.XMLHTTP")
>>html.vbs echo Set objfs=CreateObject("scripting.filesystemobject")
>>html.vbs echo Set objf=objfs.CreateTextFile("html.txt",True)
>>html.vbs echo url=" http://ip.loveroot.com/"
>>html.vbs echo http.open "get",url,false
>>html.vbs echo http.send
>>html.vbs echo zhi=zhuanghuan(Http.responsebody)
>>html.vbs echo s=(zhi)
>>html.vbs echo objf.write s
>>html.vbs echo Function zhuanghuan(vIn)
>>html.vbs echo strReturn = ""
>>html.vbs echo For i = 1 To LenB(vIn)
>>html.vbs echo ThisCharCode = AscB(MidB(vIn,i,1))
>>html.vbs echo If ThisCharCode ^< ^&H80 Then
>>html.vbs echo strReturn = strReturn ^& Chr(ThisCharCode)
>>html.vbs echo Else
>>html.vbs echo NextCharCode = AscB(MidB(vIn,i+1,1))
>>html.vbs echo strReturn = strReturn ^& Chr(CLng(ThisCharCode) * ^&H100 + CInt(NextCharCode))
>>html.vbs echo i = i + 1
>>html.vbs echo End If
>>html.vbs echo Next
>>html.vbs echo zhuanghuan = strReturn
>>html.vbs echo End Function
html.vbs
for /f "tokens=4 skip=2 delims= " %%i in ('find /i "结果：" html.txt') do set ip=%%i
echo 您的iP地址为
echo %ip%
del html.txt
del html.vbs
@echo off
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo 内网IP
echo %ip%
pause

497734601

十分感谢！真的能用，不过看起来还涉及到了vb,我好好学习一下！