Question

用VB写程序得到本地网络IP

我会用Winsock控件得到本机IP，请问怎么得到网络IP。

Answer 1

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function StrIp()
Dim l As String
Dim I As Integer
Dim K1 As Integer, K2 As Integer
DownloadFile "http://www.ip138.com/ip2city.asp", "C:\tmp.txt" '下载文件
Open "C:\tmp.txt" For Input As #1 '读取文件
Do Until EOF(1)
Line Input #1, l '一行一行读取
For I = 1 To Len(l)
If Mid(l, I, 1) = "[" Then
K1 = I + 1
K2 = InStr(l, "]")
StrIp = Mid(l, K1, K2 - K1)
GoTo Js
End If
Next I
Loop
Js:
Close #1
Kill "C:\tmp.txt" '删除临时文件
End Function
Private Sub Form_Load()
Me.Show
Print StrIp
End Sub

Answer 2

我只会用WebBrowser控件访问ip168获取自己的外网IP