'■グローバルIPを取得する
Public Function getPublicIPAdress() As String
'■要参照設定 Microsoft XML, v6.0
Dim httpReq As XMLHTTP60
Set httpReq = New XMLHTTP60
'■GET送信する
httpReq.Open "Get", "https://myip.dnsomatic.com", False
httpReq.Send
'■グローバルIP取得できるまで待つ
Do While httpReq.readyState < 4
DoEvents
Loop
'■グローバルIPを返す
getPublicIPAdress = httpReq.ResponseText
End Function
実際の使い方
Public Sub sample()
Debug.Print getPublicIPAdress 'XXX.XXX.XXX.XXX
End Sub
コメント