获取本机的公网IP地址

使用WinHttpRequest对象，从ipify - A Simple Public IP Address API 网站来获取本机的公网IP地址。

新建一个标准EXE工程并引用 Microsoft WinHTTP Services, version 5.1 。

窗口代码如下：

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：31319180@qq.com

Option Explicit

Private Sub Command1_Click()

    Dim strURLText As String
    
    GetURLText "http://api.ipify.org", strURLText
    
    Debug.Print strURLText

End Sub


Private Function GetURLText(ByVal strURL As String, strText As String) As Boolean
    On Error GoTo Err_Init

    Dim HttpRequest As WinHttpRequest
    Set HttpRequest = New WinHttpRequest
    
    HttpRequest.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_Ignore_All
    
    HttpRequest.Open "get", strURL, False
    
    HttpRequest.Send
    
    If 200 = HttpRequest.Status Then
        strText = HttpRequest.ResponseText

        GetURLText = True
    Else
        strText = ""
    End If
    
    Set HttpRequest = Nothing

    Exit Function

Err_Init:
    MsgBox Err.Description
    Err.Clear
    
End Function