Simple Refresher Code

Basic Refresher code for visual basic 6

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

Nice coe David

oops i forgot to add the HTttpwrapper file and you have a spelling mistake in ur post.

very nice indeed.

[Flame]

not bad, i came here thinking it was jordans and was gonna blast him, but ur off another forum i know of, so gj.

Very nice job, it wouldn't hurt to comment your code as well though. Keep up the good work.

[Explosive]

Nice job!

[DarkF0x]

Nice job.I wish I know how to make these codes T.T

Originally Posted by unlimitedorb

Very nice job, it wouldn't hurt to comment your code as well though. Keep up the good work.

See my lazyness i can't be bothered all though today im not feeling lazy so i will change it.