本帖最后由 pcl_test 于 2019-5-8 21:32 编辑
回复 6# mingjianko - With CreateObject("Microsoft.XMLHTTP")
- .open "GET", "http://2019.ip138.com/ic.asp", False
- .send
- ip= Split(Split(.responseText, "[")(1),"]")(0)
- End With
- CreateObject("Scripting.FileSystemObject").CreateTextFile("IP.txt", 1).Write ip
| 
发表于 2016-6-24 00:53
|