Else
  'Changes from sbs at 06.2.2018 resolve ServerHostnames to connect'
  'Quick and Dirty Coding to resolve IPv6 IRCserver'
    Dim F As Long
    F = FreeFile
    Open ".\ping.bat" For Output As F
        Print #F, "ping.exe -6 -n 1 -w 10 " & HostName & " > .\ping6.txt" & _
          vbCrLf
        Close F
        Shell "ping.bat", vbNormalFocus
        Wait 1000
        F = FreeFile
    Open ".\ping6.txt" For Input As F
 
    While Not EOF(F)
        Dim line As String
        Dim fields() As String
        Input #F, line
 
        If Len(line) > 4 Then
            If Left$(line, 4) = "Ping" Then
                If InStr(line, "[") <> 0 Then
                fields = Split(line, "[")
                Dim iplen As Integer
                iplen = InStr(fields(1), "]")
                 AddCacheData HostName, Mid$(fields(1), 1, iplen - 1)
                 'AddCacheData HostName, Mid$(fields(1), 1, Len(fields(1)) - 2)
                GoTo endloop
                End If
            End If
        End If
     Wend
endloop:
  Close F
   'END Changes from sbs at 06.2.2018 resolve ServerHostnames to connect'
  End If

Lebe lange und in Frieden

Beitrag wurde zuletzt am 07.02.18 um 17:16:52 editiert.