- #1
U
Usom
Mitglied
Themenersteller
- Dabei seit
- 28.12.2002
- Beiträge
- 16
- Reaktionspunkte
- 0
Hallo, lese mit folgendem kleinem VB die Seite von einem Radiosender aus und schreibe den Titel des laufenden Liedes in eine Datei. Leider wird nicht bei allen Seiten automatisch aktualisiert. Wie kann ich es hinbekommen, das VB das für mich alle 30 Sek. erledigt. Danke im voraus
Dim sText As String
Dim Test_Text As String
Private Sub Form_Load()
Const sURL As String = _
http://www1.ndr.de/ndr/ndr_pages_idx/0,2571,SPM854,00.html?->MV
WebBrowser1.Visible = True
WebBrowser1.Navigate sURL
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
sText = WebBrowser1.Document.body.innertext
solltextanfang = InStr(sText, Es läuft
solltextende = InStr(sText, Es lief
solltext = Mid(sText, solltextanfang, solltextende - solltextanfang)
sText = solltext
If sText = Test_Text Then GoTo nichtschreiben
Test_Text = sText
Open C:\Dokumente und Einstellungen\Name\Desktop\Verknüpfungen\titel.txt For Append As #1
Print #1, Date, Time
Print #1, sText
Close #1
nichtschreiben:
End Sub
Dim sText As String
Dim Test_Text As String
Private Sub Form_Load()
Const sURL As String = _
http://www1.ndr.de/ndr/ndr_pages_idx/0,2571,SPM854,00.html?->MV
WebBrowser1.Visible = True
WebBrowser1.Navigate sURL
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
sText = WebBrowser1.Document.body.innertext
solltextanfang = InStr(sText, Es läuft
solltextende = InStr(sText, Es lief
solltext = Mid(sText, solltextanfang, solltextende - solltextanfang)
sText = solltext
If sText = Test_Text Then GoTo nichtschreiben
Test_Text = sText
Open C:\Dokumente und Einstellungen\Name\Desktop\Verknüpfungen\titel.txt For Append As #1
Print #1, Date, Time
Print #1, sText
Close #1
nichtschreiben:
End Sub