hexflex
Goto Top

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

Content-ID: 59555

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

Ausgedruckt am: 23.12.2024 um 13:12 Uhr

Desperado
Desperado 25.05.2007 um 21:32:10 Uhr
Goto Top
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 face-smile

habe so mal die telefonnummernsuche von telefonbuch.de getestet *g*
hexflex
hexflex 26.05.2007 um 12:08:59 Uhr
Goto Top
Ich hab das problem jetzt gelöst, danke
bastla
bastla 26.05.2007 um 12:10:55 Uhr
Goto Top
Hallo hexflex!

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

Grüße
bastla
hexflex
hexflex 26.05.2007 um 14:19:36 Uhr
Goto Top
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.
bastla
bastla 26.05.2007 um 17:25:27 Uhr
Goto Top
Hallo hexflex!

Danke für's Reinstellen Deines Codes. face-smile

Schönes Wochenende
bastla