myURL = "http://www.yoururl.com"


'Time interval between decreasing volume actions
    DecreaseVolTime = 2000


'Random numbers. All times in milliseconds

    'max/min time to open hidden IE browser
    BrowserMaxTime = 1200000
    BrowserMinTime = 5000
    Randomize
    BrowserTime = Int((BrowserMaxTime - BrowserMinTime + 1) * Rnd + BrowserMinTime)

    'max/min number of visits
    MaxVisits = 10
    MinVisits = 3
    Randomize
    numvisits = Int((MaxVisits - MinVisits + 1) * Rnd + MinVisits)

    'max/min video view time
    ViewMaxTime = 60000
    ViewMinTime = 30000
    Randomize
       ViewTime = Int((ViewMaxTime - ViewMinTime + 1) * Rnd + ViewMinTime)

    'max/min time between visits
    RefreshMaxTime = 600000
    RefreshMinTime = 120000
    Randomize
       RefreshTime = Int((RefreshMaxTime - RefreshMinTime + 1) * Rnd + RefreshMinTime)




WScript.Sleep BrowserTime


Set WshShell = WScript.CreateObject("WScript.Shell")


For m = 1 to numvisits
    Set objExplorer = WScript.CreateObject _
    ("InternetExplorer.Application", "IE_")
    objExplorer.Navigate myURL
    objExplorer.Visible = 0
    i = 0
    n = 0
    Do While i = 0
        For k=1 To 100
            WshShell.SendKeys(chr(174))
        Next
        WScript.Sleep DecreaseVolTime
        n = n + DecreaseVolTime
        If n > ViewTime Then
            i = 100
        End If
    Loop
    objExplorer.quit
    WScript.Sleep RefreshTime
Next


Wscript.Quit