Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VB Text aus Website

Frage Entwicklung VB for Applications

Mitglied: hexflex

hexflex (Level 1) - Jetzt verbinden

22.05.2007, aktualisiert 26.05.2007, 4192 Aufrufe, 5 Kommentare

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
Mitglied: Desperado
25.05.2007 um 21:32 Uhr
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*
Bitte warten ..
Mitglied: hexflex
26.05.2007 um 12:08 Uhr
Ich hab das problem jetzt gelöst, danke
Bitte warten ..
Mitglied: bastla
26.05.2007 um 12:10 Uhr
Hallo hexflex!

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

Grüße
bastla
Bitte warten ..
Mitglied: hexflex
26.05.2007 um 14:19 Uhr
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.
Bitte warten ..
Mitglied: bastla
26.05.2007 um 17:25 Uhr
Hallo hexflex!

Danke für's Reinstellen Deines Codes.

Schönes Wochenende
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Powershell - Ausgabe des Codes als Text (9)

Frage von internet2107 zum Thema Batch & Shell ...

Administrator.de Feedback
Upload von Text-Files möglich bzw. sinnvoll? (22)

Frage von em-pie zum Thema Administrator.de Feedback ...

Administrator.de Feedback
gelöst Text nach Smiley Symbol auf iPad weg (5)

Frage von Deepsys zum Thema Administrator.de Feedback ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Systemdateien
NTFS und die Defragmentierung (26)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Zwei Subnetze mit je eigenem Router und Internetzugang verbinden (18)

Frage von hannsgmaulwurf zum Thema LAN, WAN, Wireless ...

Windows Server
WIndows Server 2016 core auf dem Intel NUC NUC5i5RYK i5 5250U (17)

Frage von IxxZett zum Thema Windows Server ...