VB Text aus Website

Hallo, ich möchte in VB6 den ICQ Status eines benutzers über die webseite http://kanicq.ru/invisible/de/ herausfinden.

Jedoch scheitere ich / Habe keine Idee wie ich das Ergebnis, also wen eine nummeer geprüft wurde in vb auslesen kann, um es via textbos auszugeben!

Vielen Dank im Vorraus,

Mfg

hexflex

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 59555

Url: https://administrator.de/forum/vb-text-aus-website-59555.html

Ausgedruckt am: 28.05.2025 um 20:05 Uhr

5 Kommentare

Neuester Kommentar

hi,

kein leichtes unterfangen. ansatz: ie-objekt erstellen, mit obj webseite an-"navigaten", quelltext parsen, stelle suchen, wo es steht und mit substr-funktionen den status in die textbox packen

habe so mal die telefonnummernsuche von telefonbuch.de getestet *g*

Ich hab das problem jetzt gelöst, danke

Hallo hexflex!

Magst Du Dir Mühe machen, Deine Lösung kurz vorzustellen?

Grüße
bastla

Private Sub Command2_Click()
Call SaveQuelltext(TMP & "\tmp.tmp")
Call checkStatus(Text1.Text)
End Sub

Private Sub SaveQuelltext(ByVal sFilename As String)
On Error Resume Next
Dim F As Integer
With WebBrowser1.Document.documentElement
F = FreeFile
Open sFilename For Output As #F
Print #F, .outerHTML;
Close #F
End With
End Sub

Function checkStatus(ICQ)
On Error Resume Next
temp = ReadFile(TMP & "\tmp.tmp")
Bar1.Panels.Item(2).Text = "Status auslesen"
If temp Like "*" & ICQ & " ist*alt=Offline*" Then Status.Caption = "Offline"
If temp Like "*" & ICQ & " ist*alt=Away*" Then Status.Caption = "Away"
If temp Like "*" & ICQ & " ist*alt=Occupied*" Then Status.Caption = "Occupied"
If temp Like "*Du hast das Limit erreicht. Versuche in 10 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 10 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 9 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 9 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 8 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 8 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 7 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 7 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 6 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 6 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 5 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 5 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 4 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 4 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 3 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 3 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 2 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 2 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 1 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 1 Minuten noch einmal, oder verbinde dich neu ins internet!"
if temp Like "*" & ICQ & " ist*alt=Online*" Then Status.Caption = "Online"
If temp Like "*" & ICQ & " ist*alt=N/A*" Then Status.Caption = "N/A"
If temp Like "*" & ICQ & " ist*alt=DND*" Then Status.Caption = "DND"
If temp Like "*" & ICQ & " ist*alt=Free for chat*" Then Status.Caption = "Free for chat"
If temp Like "*" & ICQ & " ist*alt=Invisible*" Then Status.Caption = "Invisible"
Bar1.Panels.Item(2).Text = "Check beendet!"
End Function

Function TMP()
Set fs = CreateObject("Scripting.filesystemobject")
TMP = fs.getspecialfolder(2) & "\"
End Function

so hab ich das alles gelöst.