获取外网IP简易

#NoEnv
SetBatchLines -1
SetWorkingDir %A_ScriptDir%

; 地址一
MsgBox % 请求返回("http://icanhazip.com/")

; 地址二【GPT写的】
url := "http://httpbin.org/ip"  ; 使用httpbin.org提供的服务获取外网IP
httpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
httpRequest.Open("GET", url)
httpRequest.Send()
httpRequest.WaitForResponse()

responseText := httpRequest.ResponseText
ipStartPos := InStr(responseText, """origin"": """) + 10
ipEndPos := InStr(responseText, """", false, ipStartPos + 1)
ipAddress := SubStr(responseText, ipStartPos, ipEndPos - ipStartPos)

MsgBox, % "您的外部IP地址是: " ipAddress



请求返回(URL, Request1="") {
  Local
  Try {
    Httpwhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    if Request1=
      Httpwhr.Open("GET", URL, true), Httpwhr.Send()
     else
      Httpwhr.Open("POST", URL), Httpwhr.Send(Request1)
    Httpwhr.WaitForResponse()
    return Httpwhr.ResponseText
  }
}