Basic Refresher code for visual basic 6
Code:
Dim Int as Integer 'dims integer
Private Sub cmdStart_Click()
'tmr.enabled = true 'turns on timer
Int = rand(val(txtMin.Text),val(txtMax.Text)) 'makes int a random number between what numbers are in the two 'textboxes
tmr.Interval = Int 'changes timers refresh rate to the random number
End Sub
Private Sub cmdStop_Click()
tmr.enabled = False 'stop timer
End Sub
Private Sub tmr_Timer()
Httpwrapper.Getwrapper(txtURL.Text, txtReffer.Text) "refeshes at URL in textbox by being refered by another URL 'in another text box
End Sub
Private Function rand(Min As Long, Max As Long) As Long
rand = Int(Rnd * (Max - Min + 1)) + Min 'random function
End Function
Http wrapper download:
http://www.savefile.com/files/207938
If i've made a typo or stuffed up the comments please tell me and i'll change it