vb 获取外网ip

"获取外网ip源码 Private Sub Command1_Click() Dim h As Object Dim i As Integer Dim s As String Set h = CreateObject("Microsoft.XMLHTTP")     GetInternetIP = False     g_strInternetServerIP = ""          h.Open "GET", "http://ip.3322.net", True "False     h.Send     If (h.ReadyState = 4) And (h.Status = 200) Then   &nb