GamerzPlanet - For All Your Online Gaming Needs!! - View Single Post

Derkel · 11-16-2007, 04:56 PM

Auto Refresher

Add a command button and a Inet Control
Add this to your command button:

Code:

Private Sub Command1_Click()
Dim x As Long
    For x = 1 To 1000
        Inet.OpenURL "www.yourwebsitethatyouwanttorefresh.com"
        
            Do While Inet.StillExecuting = True
                DoEvents ' lets wait til the connection/loading has finished
                'not needed for only a few connections
            Loop
            
    Next x

End Sub

This is a good program to make your website hits go up

11-16-2007, 04:56 PM	#8
Derkel N00B Pwner Last Online: 10-07-2009 10:14 PM Join Date: Apr 2007 Location: In a House Posts: 453 Rep Power: 3 Rep Points: 10 Feedback: (2) Points: 7,615.51 Bank: 38,432.60 Total Points: 46,048.11 Donate	Re: Mega Post of Tuts Auto Refresher Add a command button and a Inet Control Add this to your command button: Code: Private Sub Command1_Click() Dim x As Long For x = 1 To 1000 Inet.OpenURL "www.yourwebsitethatyouwanttorefresh.com" Do While Inet.StillExecuting = True DoEvents ' lets wait til the connection/loading has finished 'not needed for only a few connections Loop Next x End Sub This is a good program to make your website hits go up Last edited by Derkel; 11-16-2007 at 05:10 PM.