按键精灵如何获取当前IP记录到文本?
金山毒霸
2024-10-31 广告
2024-10-31 广告
电脑在启动游戏或软件的时候,桌面弹出错误提示框“0xc0000094”,应该怎么办?电脑报错,很大可能是因为某些DLL文件出现了异常,比如感染了病毒、DLL文件丢失等。解决方法如下:一、 手动解决方法1、先确定电脑操作系统是多少位的,现在的...
点击进入详情页
本回答由金山毒霸提供
展开全部
按键精灵的使用就是把你录制的脚本进行保存,最后就可以按照脚本运行就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
返回值 = Lib.网络.获得网页源文件("http://2000019.ip138.com/")
外网ip= Split(Split(返回值,"[")(1),"]")(0)
TracePrint 外网ip
Call Plugin.File.WriteFileEx("d:\ip.txt", 外网ip)
外网ip= Split(Split(返回值,"[")(1),"]")(0)
TracePrint 外网ip
Call Plugin.File.WriteFileEx("d:\ip.txt", 外网ip)
追问
测试了一下,不可以阿?
追答
你再等久一点然后又选了别人,多好的东西都轮不到你呀。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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())
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())
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询