10月122014
外网IP地址获取函数(6重地址备用)
做出这样的 函数 也是我个人写的程序痛苦的经历,昨天,
两站不稳定导致程序全崩溃...
现重新制作 IP地址 获取函数 地址选为 三组国外IP获取点 三组国内站的IP获取点.
希望大家喜欢,与支持,好好写程序,不发范二了
;~ MsgBox(0, "测试1", JY_ipGet())
;~ MsgBox(0, "测试2", JY_ipTest())
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;共享给大家用吧.
;大家用IP限制软件时,一定记得多搞几个备用站
;吐嘈一下:
; 我做的定制软件,绑定IP的,昨天全崩溃的了.只因备用站点没找好.
; 现六重备用,足够使用的了.<简易工作室>
;--------------------------------------
; by:绿色风 Qq/E_mail:79664738@qq.com
; 强力支持风哥,顶!赞!顶!赞!顶!!! 2014-9-27
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;函数
; JY_ipGet() ;获取外网IP地址 地址来源 4个站点
;也可以单独调用
; 详见 JY_ipTest中所列出来的
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;测试 IP的准确性用
Func JY_ipTest()
Local $str = _chinaz()
$str &= @CRLF & _ip138()
$str &= @CRLF & _qqip()
$str &= @CRLF & _apnic()
$str &= @CRLF & _au3IP()
Return $str
EndFunc ;==>JY_ipTest
;;获取外网IP地址
Func JY_ipGet()
Local $apnic_ip = _apnic() ;获取IIP的顺序 1 国外地址
If $apnic_ip = 0 Then
Local $chinaz_ip = _chinaz();获取IIP的顺序 2
If $chinaz_ip = 0 Then
Local $au3_ip = _au3IP() ;获取IIP的顺序 3 4 国外地址
If $au3_ip = 0 Then
Local $ip138_ip = _ip138();获取IIP的顺序 5
If $ip138_ip = 0 Then
Local $qq_ip = _qqip();获取IIP的顺序 6
If $qq_ip = 0 Then
Return "0.0.0.0"
Else
Return $qq_ip
EndIf
Else
Return $ip138_ip
EndIf
Else
Return $au3_ip
EndIf
Else
Return $chinaz_ip
EndIf
Else
Return $apnic_ip
EndIf
EndFunc ;==>JY_ipGet
Func _apnic()
;国内大多数网站 获取ip的来源于 [url]www.apnic.net[/url] 站
Local $source = _INetGetSource("https://cgi1.apnic.net/cgi-bin/my-ip.php")
Local $aIP = StringRegExp($source, 'ip:"(\d[\d.]+)"', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Return 0
EndIf
EndFunc ;==>_apnic
Func _chinaz()
Local $source = BinaryToString(_INetGetSource("http://tool.chinaz.com/IP", False), 4)
Local $aIP = StringRegExp($source, '您的IP.*?(\d[\d.]+)', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Return 0
EndIf
EndFunc ;==>_chinaz
Func _ip138()
;[url]http://iframe.ip138.com/city.asp[/url] 之前用此地址,既然现在不行的了.
;与QQ一起,我的备用地址.既然同一天崩溃的了. 纪念一下 2014.9.26
Local $source = BinaryToString(_INetGetSource("http://www.ip138.com/ips138.asp", False))
Local $aIP = StringRegExp($source, '地址是:\[(\d[\d.]+)\]', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Return 0
EndIf
EndFunc ;==>_ip138
;现在还留着它,期待他能继续服务....
Func _qqip()
;2014.9.26 晚上,崩溃的了.害得我好苦.做的程序因它问题现在全停止的了.
Local $source = _INetGetSource("http://ip.qq.com")
Local $aIP = StringRegExp($source, '您当前的IP为.*?(\d[\d.]+)', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Return 0
EndIf
EndFunc ;==>_qqip
Func _au3IP()
;Au3 函数中 _GetIP 带的 两个IP获取地址
Local $source = _INetGetSource("http://bot.whatismyipaddress.com/")
Local $aIP = StringRegExp($source, '((?:\d{1,3}\.){3}\d{1,3})', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Local $source = _INetGetSource("http://www.myexternalip.com/raw")
Local $aIP = StringRegExp($source, '((?:\d{1,3}\.){3}\d{1,3})', 3, 1)
If Not @error Then
Return $aIP[0]
Else
Return 0
EndIf
EndIf
EndFunc ;==>_au3IP
扫描二维码,在手机上阅读
发表评论
木有头像就木JJ啦!还木有头像吗?点这里申请属于你的个性Gravatar头像吧!