• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-獲取外網IP函數

AutoIT3 奇跡の海 2年前 (2017-11-10) 560次瀏覽 已收錄 0個評論 掃描二維碼

代碼簡介

從123cha,ip138,whatismyip,獲取外網IP函數
AutoIt3(au3)源碼-獲取外網IP函數

AU3源碼

$begin = TimerInit()
$ip = _GetIP()
msgbox(0,"耗時"&Round(TimerDiff($begin)/1000,1)&"秒","外網IP為:"&$ip)

Func _GetIP()
;AMU修改
$ipurl = 'http://ip.91cool.net/ip.php?type=ip' & @cr & _
  'http://www.123cha.com/ip/' & @cr & _
  'http://www.ip138.com/' & @cr & _
  'http://www.whatismyip.com'
$url = StringSplit($ipurl, @cr)
For $i = 1 to $url[0]
  If InetGet($url[$i], @TempDir & "\~ip.tmp") Then
  $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
  FileDelete(@TempDir & "\~ip.tmp")
  $ip = StringRegExp($ip, '((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)', 2)
  if not @error then Return $ip[0]
EndIf
Next
SetError(1)
Return -1
EndFunc

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-獲取外網IP函數!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果