断魂6.9连接失败的解决方法

断魂6.9连接失败的解决方法

Private Sub Command1_Click()
Dim s As String
Dim str() As String
Dim V As Variant
Dim n As Integer
Dim intF As Integer
n = 0
s = "2，4，6-10"
V = Split(s, "，")
For i = 0 To UBound(V)
  intF = InStr(1, CStr(V(i)), "-", vbBinaryCompare)
  If intF > 0 Then
     For j = Val(Left(CStr(V(i)), intF - 1)) To Val(Right(CStr(V(i)), Len(V(i)) - intF))
     n = n + 1
     ReDim Preserve str(n) As String
     str(n - 1) = j
     Next
  Else
     n = n + 1
     ReDim Preserve str(n) As String
     str(n - 1) = V(i)
  End If
Next
Print n
For i = 0 To n
Print str(i)
Next
End Sub

把服务器改成127.0.0.2—127.0.0.99