Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: IE - URL + Code
Autor: mike
Datum: 16.02.02 21:32
Hallo Dieter, es werden nun die URLs aus der Textdatei in das Array aURLs eingelesen. Mit URLGoTo wird auch die erste URL aus meiner Textdatei geöffnet, aber wie kann ich nun per Timer bestimmern das alle 60 sec. die nächste URL aus der Textdatei aufgerufen wird. Hier der Code bis jetzt: Gruß mike Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub URLGoTo(ByVal WWW As String) ' '*** Internetseite aktivieren *** ' Screen.MousePointer = 11 Call ShellExecute(Me.hWnd, "Open", WWW, "", "", 3) Screen.MousePointer = 0 End Sub Private Sub Command1_Click() Dim F As Integer Dim sInhalt As String Dim aURLs() As String Dim lCount As Long ' Textdatei öffnen und Inhalt auslesen F = FreeFile Open "c:url.txt" For Binary As #F sInhalt = Space(LOF(F)) Get #F, , sInhalt Close #F ' Inhalt in ein Array übertragen aURLs = Split(sInhalt, vbCrLf) ' Anzahl URLs lCount = UBound(aURLs) 'Startseite aufrufen URLGoTo aURLs(0) End Sub

IE - URL	64	Wrangler	16.02.02 10:41
Re: IE - URL	212	Dieter	16.02.02 10:59
Re: IE - URL	46	mike	16.02.02 11:06
Re: IE - URL	216	Dieter	16.02.02 14:25
Re: IE - URL	38	mike	16.02.02 14:52
Re: IE - URL + Code	41	mike	16.02.02 21:32
Re: IE - URL + Code	202	Dieter	17.02.02 10:43
Re: IE - URL + Code	37	michael	17.02.02 18:58
Re: IE - URL + Code	42	Wrangler	17.02.02 19:28
Re: IE - URL	44	Wrangler	16.02.02 13:40

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen