Dim Line As Integer = 1
Dim timer_started as boolean=False
 
   'Der Button:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
'Das Timer-Event:
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
if timer_started=False
 timer1.Interval=600000
timer_started=True
end if
 
if timer_started=True
        Dim Adresse As String
        Try
            Adresse = ReadLine(Application.StartupPath + "/links/liste.txt", _
              Line)
            MsgBox(Adresse)
            WebBrowser1.Navigate(Adresse)
            Line += 1
        Catch ex As Exception
            Timer1.Stop
        End Try
end if
    End Sub

''' <summary>
    ''' Liest eine bestimmte Zeile aus einer Textdatei
    ''' </summary>
    ''' <param name="filename">vollständiger Pfad zur Datei</param>
    ''' <param name="line">Zeilennummer</param>
    ''' <returns>Inhalt der Zeile oder bei Fehler einen Leerstring</returns>
    ''' <remarks>Geben Sie für line einen negativen Wert an, um die 
    ''' n-letzte Zeile auszulesen</remarks>
    Public Function ReadLine(ByVal filename As String, _
      ByVal line As Integer) As String
 
        Try
            Dim lines As String() = My.Computer.FileSystem.ReadAllText( _
              filename, System.Text.Encoding.Default).Split(vbCrLf)
 
            If line > 0 Then
                ' n-te Zeile vom Anfang der Textdatei
                Return lines(line - 1)
            ElseIf line < 0 Then
                ' n-te Zeile beginnend am Ende der Textdatei
                Return lines(lines.length + line - 1)
            Else
                ' ungültige Zeilennummer
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

______________________________________


www.fk-freeware.de.vu

Beitrag wurde zuletzt am 22.02.09 um 16:06:21 editiert.