Automatic refreshing of your favorite Web Forum

[RSXchin]

I love MrExcel. But I tire of hitting that refresh button, or F5. So I have written a little script that allows me to sit back and laze about while I wait for feedback.

Sub MrExcel_Refresh()
On Error GoTo 10
Dim IE As Object
    Set IE = CreateObject("Internetexplorer.application")
    With IE
        .navigate "http://www.mrexcel.com/forum/forumdisplay.php?f=10"
        .Visible = True
    End With
    Do
        Application.Wait (Now + TimeValue("0:00:10"))
        IE.Refresh
    Loop
10:
    MsgBox "Program ended"
End Sub

If anyone comes up with some good changes, I'd love to see them.

 

[RSXchin]

Sub MrExcel_Refresh()
On Error GoTo 10
Dim sURL As String
Dim IE As Object
    Set IE = CreateObject("Internetexplorer.application")
    sURL = "http://www.mrexcel.com/forum/forumdisplay.php?f=10"
    With IE
        .navigate sURL
        .Visible = True
    End With
    Application.wait (Now + TimeValue("0:00:05"))
    Do While IE.LocationURL = sURL
        Application.Wait (Now + TimeValue("0:00:20"))
        IE.Refresh
    Loop
10:
    MsgBox "Program ended"
End Sub