✔ Webseite von alleine aktualisieren lassen

[sgermerott]

Hi leute Ich wollte ein Programm machen was Jede 30 Minuten Automatisch Eine webseite aufruft. Und nach 2 std ein Signalton Von sich Gibt

 

[MatMagic]

Dann mach das doch....
*justjoking*

Und woran haperts ?

 

[sgermerott]

ekomme es nicht Hin

 

[MatMagic]

Du brauchst 2 Timer:
Timer1 und Timer2
Einen Command Button
Command1

und diesen Code hier:

Public halbestunde As Long
Public zweistunden As Long
Public IE

Private Sub Command1_Click()
Set IE = CreateObject("INTERNETEXPLORER.Application")
IE.Visible = True 'Explorer Sichtbar
IE.Navigate ("http://www.google.de") 'Internetseite aufrufen
Timer2.Enabled = True 'Timer für 2 Stunden Signalton starten
Timer2.Interval = zweistunden
Timer1.Enabled = True 'Timer für halbe Stunde Webseite öffnen starten
Timer1.Interval = halbestunde
End Sub

Private Sub Form_Load()
zweistunden = 7200000 'millisekunden -> 2 Stunden
halbestunde = 1800000 'millisekunden -> 30 Minuten
End Sub


Private Sub Timer1_Timer()
IE.Navigate ("http://www.google.de") 'Internetseite aufrufen
End Sub

Private Sub Timer2_Timer()
Beep
End Sub

Ich hoffe das ist das was du wolltest - habs getestet sollte also funktionieren....
Gruß
Mat

 

[sgermerott]

Ja genau Big thx

 

[wincnc]

Das hat nur den Nachteil, daß die größte Einheit für den Timer Intervall 60000 (1 Min.) ist.
Aber mit einem kleinen Trick läßt sich das ändern.

Private Sub Timer1_Timer()

Static Minuten As Long

Const Anzahl = 5 ' Neues Intervall: 5 Minuten

  Timer1.Interval = 60000 ' 60 Sekunden

  Minuten = (Minuten + 1) Mod Anzahl

  If Minuten > 0 Then Exit Sub

  MsgBox "5 Minuten sind um"
End Sub

 

[MatMagic]

Ups....stimmt
Ich habs natürlich mit 20 Sekunden und 40 Sekunden getestet weil ich keine Stunden warten wollte ;-)
Danke für deine Ergänzung