发个简洁【获取外网IP】的例子

Dim ls As String, ip As String
ls = GetBody("http://www.ip138.com/ip2city.asp")ip = Left(Split(ls, "[")(1), InStr(1, ls, "]") - InStr(1, ls, "[") - 1)
msgbox ip
灰机

要是源码内容中有多个[符号就不行了，找绝对字符还好些，至少是相对性的

其实应该用正则比较好，直接提取[]中间的字符，我没怎么用过正则，感觉逻辑挺复杂的

写了一个万能获取的
Private Sub Form_Load()
Dim ls As String
ls = "您的IP地址是：[125.39.132.30] </center></body></html>"
MsgBox GetIP(ls, "[", "]")
End Sub
Private Function GetIP(ls As String, LeftCharacteristic As String, RightCharacteristic As String) As String
On Error GoTo Err1
Dim Temp1 As Long, Temp2 As Long, Scal1 As Integer, scal2 As Long
Temp1 = 1: Scal1 = 0
Do
Temp2 = InStr(Temp1 + 1, ls, ".")
If Temp2 <> 1 Then
If Temp2 - Temp1 > 0 And Temp2 - Temp1 <= 4 Then
Scal1 = Scal1 + 1
Else
Scal1 = 0
End If
End If
Temp1 = Temp2
Loop Until Temp2 = 0 Or Scal1 = 2
If Temp2 <> 0 Then
Dim Temp3 As Long, IsFind As Boolean
IsFind = False
For i = Temp2 To 1 Step -1
If Mid(ls, i, 1) = LeftCharacteristic Then
Temp3 = i
IsFind = True
End If
Next
If IsFind = True Then
GetIP = Mid(ls, Temp3 + 1, InStr(1, ls, RightCharacteristic) - Temp3 - 1)
Else
GetIP = ""
End If
Else
GetIP = ""
End If
Exit Function
Err1:
GetIP = ""
End Function


正则...

对了，isfind=true后面要加上Exit For。这不算正则啦……饿，一般情况下够用了

何谓万能
求解释

好了，现在支持ipv6地址了
Public Function GetIPFromString(ls As String, LeftCharacteristic As String, RightCharacteristic As String, Optional IsIpv6 As Boolean) As StringOn Error GoTo Err1Dim Temp1 As Long, Temp2 As Long, TempNum As Integer, Str1 As String, Scal1 As Integer,scal2 As LongTemp1 = 1: Scal1 = 0If IsIpv6 = True Then Str1 = ":" TempNum = 6Else Str1 = "." TempNum = 2End IfDo Temp2 = InStr(Temp1 + 1, ls, Str1) If Temp2 <> 1 Then If Temp2 - Temp1 > 0 And Temp2 - Temp1 <= 4 Then Scal1 = Scal1 + 1 Else Scal1 = 0 End If End If Temp1 = Temp2Loop Until Temp2 = 0 Or Scal1 = TempNumIf Temp2 <> 0 ThenDim Temp3 As Long, IsFind As BooleanIsFind = False For i = Temp2 To 1 Step -1 If Mid(ls, i, 1) = LeftCharacteristic Then Temp3 = i IsFind = True Exit For End If Next If IsFind = True Then GetIPFromString = Mid(ls, Temp3 + 1, InStr(1, ls, RightCharacteristic) - Temp3 - 1) Else GetIPFromString = "" End IfElse GetIPFromString = ""End IfExit FunctionErr1: GetIPFromString = ""End Function


百度我恨你
Public Function GetIPFromString(ls As String, LeftCharacteristic As String, RightCharacteristic As String, Optional IsIpv6 As Boolean) As String
On Error GoTo Err1
Dim Temp1 As Long, Temp2 As Long, TempNum As Integer, Str1 As String, Scal1 As Integer,scal2 As Long
Temp1 = 1: Scal1 = 0
If IsIpv6 = True Then
Str1 = ":"
TempNum = 6
Else
Str1 = "."
TempNum = 2
End If
Do
Temp2 = InStr(Temp1 + 1, ls, Str1)
If Temp2 <> 1 Then
If Temp2 - Temp1 > 0 And Temp2 - Temp1 <= 4 Then
Scal1 = Scal1 + 1
Else
Scal1 = 0
End If
End If
Temp1 = Temp2
Loop Until Temp2 = 0 Or Scal1 = TempNum
If Temp2 <> 0 Then
Dim Temp3 As Long, IsFind As Boolean
IsFind = False
For i = Temp2 To 1 Step -1
If Mid(ls, i, 1) = LeftCharacteristic Then
Temp3 = i
IsFind = True
Exit For
End If
Next
If IsFind = True Then
GetIPFromString = Mid(ls, Temp3 + 1, InStr(1, ls, RightCharacteristic) -Temp3 - 1)
Else
GetIPFromString = ""
End If
Else
GetIPFromString = ""
End If
Exit Function
Err1:
GetIPFromString = ""
End Function


饿，就是无论字符串的内容是啥，都能从里面提取出IP地址……当然有多个IP地址除外