28. März 2024, 21:41
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0416
  VB6: "OnlineIP auslesen"
 Von micro
 Am 15. Januar 2009 um 22:08:31
 Frage Hallo VB-fun Team,

der Tipp "OnlineIP auslesen" [url=" http://www.vb-fun.de/vb/tipps/tip0441.shtml"][/url] funktioniert bei mir nicht mehr.
Ich hatte vor einiger Zeit schonmal damit gearbeitet und da funktionierte es wunderbar.
Jetzt jedoch bekomme ich die Fehlermeldung "Fehler beim Auslesen der IP" !

Eigentlich hat sich an meinen Konfigurationen (Firewalls, Filter, Virenscanner etc. nichts geändert !??
    If LenB(strWebsource) > 0 Then
'Daten wurden empfangen
'Position der Strings links und rechts neben der IP auslesen
lngLeft = InStr(1, strWebsource, strLeft)
lngRight = InStr(1, strWebsource, strRight)

If (lngLeft > 0) And (lngRight > 0) Then
'beide Texte wurden gefunden
'alles links von der IP aus den Daten entfernen
strWebsource = Mid$(strWebsource, lngLeft + Len(strLeft))
'neue Position des rechten Strings bestimmen
lngRight = InStr(1, strWebsource, strRight)
'alles bis zu der Position entfernen
strWebsource = Left$(strWebsource, lngRight - 1)

'etwaige Leerzeichen am Anfang / Ende
'des Strings entfernen
strRes = Trim$(strWebsource)

Else
strRes = "Fehler beim Auslesen der IP"
End If
End If
Scheinbar liegt es am Auslesen der Webseite, bzw. am Herausfiltern der IP aus dem Text "IP.txt"
Ich habe versucht die Filterkriterien(strLeft, strRight) den neuen Seitenlayouts der Webseiten anzupassen hab es aber bis jetzt nicht geschafft.

Könnte sich das mal ein Fachmann ansehen und mir sagen ob der Tipp im Original bei euch noch funktioniert, oder ob es an den neuen Seitenlayouts der Webseiten liegt.

Danke
micro
[ VB-/VBA-Forum | Archiv 0416 | Archiv-Übersicht ]
 Antworten
VB6: "OnlineIP auslesen" - micro 15. Januar 2009 um 22:08:31
Re: "OnlineIP auslesen" - Frank 16. Januar 2009 um 13:14:18
Re: "OnlineIP auslesen" - micro 21. Januar 2009 um 19:43:45

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum