Popup

Då måste du ju ha programmet igång hela tiden. :)

Lägg till en timer (Timer1).

Dim LastDate As Date

Private Sub Form_Load()
    Timer1.Interval = 30000
End Sub

Private Sub Timer1_Timer()
    If Day(LastDate) <> Day(Now) Then
        If Hour(Now) = 16 And Minute(Now) = 0 Then
            Shell "start www.webforum.nu"
            LastDate = Now
        End If
    End If
End Sub

Detta bör fungera men jag har inte testat. :)

R// Så det kan gå. Nu BÖR iaf koden fungera.

Problemet är nu att den öppnar webforum.nu över 200 gånger. Jag prövade att lägga till sekunder då öppna den bara 12 gånger. Hur ska man göra för att den endast ska öppna sidan en gång?

r/ Tänkte inte på att Inteval kör med millisekunder. :r

r2/ Se mitt förra inlägg.

Nu fungerar det. Tack!

Du kanske kan använda task scheduler/schemaläggaren annars. Det beror lite på hur det är tänkt att fungera.