按键精灵如何获取当前IP记录到文本？

Question

如题所述

Answer 1

最简单的办法就是先写一个cmd保存IP到记事本,然后放在按键精灵附件里面,解压执行

CMD里面写ipconfig >c:\a.txt 就行了.

Answer 2

按键精灵的使用就是把你录制的脚本进行保存，最后就可以按照脚本运行就可以了。

Answer 3

返回值 = Lib.网络.获得网页源文件("http://2000019.ip138.com/")
外网ip= Split(Split(返回值,"[")(1),"]")(0)
TracePrint 外网ip
Call Plugin.File.WriteFileEx("d:\ip.txt", 外网ip)追问

测试了一下，不可以阿？

追答

你再等久一点然后又选了别人，多好的东西都轮不到你呀。

Answer 4

Import "ShanHai.lua"
Call GetNetIP()
Function GetNetIP()
Dim i, IP接口, IP
'安卓获取外网IP地址
GetNetIP = ""
IP接口 = "http://whois.pconline.com.cn/ipJson.jsp|"
IP接口 = Split(IP接口, "|")
For i = 0 To UBOUND(IP接口)
IP = ShanHai.RegexFind(Url.Get(IP接口(i)), "%d+%.%d+%.%d+%.%d+")
If UBOUND(IP) >= 0 Then
GetNetIP = IP(0)
Exit For
End If
Next

End Function
Delay 500
TracePrint "当前IP:"&GetNetIP()
Delay 100
ShowMessage"当前IP:"&GetNetIP(),1000,0,0
Delay 1000
File.WriteLine("/sdcard/Pictures/ip.txt",i+1,GetNetIP())