本帖最后由 hellohgh 于 2022-1-4 18:28 编辑
来源网址：http://api.ip138.com/ip/?ip=&datatype=jsonp&token=12f911dede85b244e702cb5f59575201
ip138.vbs
用vbs命令保存网页内容：- ' 要下载的文件
- strFileURL = "http://api.ip138.com/ip/?ip=&datatype=jsonp&token=12f911dede85b244e702cb5f59575201"
- ' 文件存放路径
- strHDLocation = "c:\ip.txt"
-
- Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
-
- objXMLHTTP.open "GET", strFileURL, false
- objXMLHTTP.send()
-
- If objXMLHTTP.Status = 200 Then
- Set objADOStream = CreateObject("ADODB.Stream")
- objADOStream.Open
- objADOStream.Type = 1
-
- objADOStream.Write objXMLHTTP.ResponseBody
- objADOStream.Position = 0
-
- Set objFSO = Createobject("Scripting.FileSystemObject")
- If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
- Set objFSO = Nothing
-
- objADOStream.SaveToFile strHDLocation
- objADOStream.Close
- Set objADOStream = Nothing
- End if
-
- Set objXMLHTTP = Nothing
保存文件"c:\ip.txt"的内容为：- {"ret":"ok","ip":"113.94.52.188","data":["中国","广东","茂名","化州市","电信","525100","0668"]}
用BAT 如何解释切割出版定义字段进行调用？
我要将各个字段都定制并设为变量，要调用的。非常感谢“for_flr”帮助，已经成功调用到IP了。- @echo off
- for /f "tokens=4 delims=:," %%a in (C:\ID\ip.txt) do set ip=%%~a
- echo 外网IP：%ip%
- pause
最好有不用下载保存文丁，直接调用的方法。。。。新手脑瓜痛。。。新手脑瓜痛。。。新手脑瓜痛。。。 | 
发表于 2022-1-4 00:06
| 