Looping

[Piller]

Im doing this

Private Sub Command7_Click()
popo = 0
Do Until popo = (Text1.Text)
Inet1.Execute "http://google.com"
Loop
End Sub

I want inet1 to execute that untill popo = what ever text1.text is , but i get a error on the Do Until part. What did i do wrong?

[vbasicgirl]

are you trying to show google until a new url is typed in text1 ?, using a loop like that is going to eat up your cpu aswell, would you not be better using a timer ?

casey.

[Piller]

Google isnt the real link im using , I just didnt want to post the link. What i want is that inet will execute the website untill what ever # in text1 is hit
Example
Text1.text = 10
I would want inet to execute the website 10 times

[Psychotic]

you would have to add one to popo each time the loop ran otherwise it will stay at 0 and ur loop will last forever

[Piller]

I do have a timer that adds + 1 to popo

Private Sub Timer1_Timer()
If Inet1.Execute = "http://google.com" Then
popo = popo + 1
End If
End Sub

But its that i get a error on

Private Sub Command7_Click()
popo = 0
[U][I][B]Do Until popo = (Text1.Text)[/B][/I][/U]
Inet1.Execute "http://google.com"
Loop
End Sub

I get error on the bolded , italiced , underlined (lol) part of the code.

[Psychotic]

maybe you just need to get rid of the brackets on the text1.text ?

[visualAd]

Im doing this

Private Sub Command7_Click()
popo = 0
Do Until popo = (Text1.Text)
Inet1.Execute "http://google.com"
Loop
End Sub

I want inet1 to execute that untill popo = what ever text1.text is , but i get a error on the Do Until part. What did i do wrong?

Could you explain why you want to do, as this code will cause your program to repeatedly request the Google web site at a high freency in a very small amount of time and could be seen by them as a (DOS) denial of service attack!!!

[Piller]

I still got a error when i did

Private Sub Command7_Click()
popo = 0
Do Until popo = Text1.Text
Inet1.Execute "http://google.com"
Loop
End Sub

I changed (text1.text) to text1.text , but still got error on same line.

Didnt see ur post there visualad so i had to edit . Ill just post my code i have

Private Sub Command7_Click()
popo = 0
Do Until popo = (Text1.Text)
Inet1.Execute "http://lifehit.com/slot.php?gameplay=Play+Slots"
Loop
End Sub

Im not trying to do a DoS attack , its ment to be a sort of Auto Slot player for this website. I want inet1 to execute the link as much as text1 tells it to.

[jeroen79]

It would help if you told us which error you get.

Wouldn't a For i = 0 to text1.text loop be better if you want to execute the loop x times?

[Jacob Roman]

Try This:

Private Sub Command7_Click()
     
     popo = 0
     Text1.Text = 10 'Need this since "" does not equal 0
     
     Do Until popo = Int(Text1.Text)
 
          DoEvents 'Don't forget to DoEvents!!!
     
          Inet1.Execute "http://google.com"
          
          popo = popo + 1 'Need this since the loop would be infinite otherwise.
     
     Loop
 
End Sub

The reason why you need the Int around Text1.Text is because I'm assuming popo is declared as an Integer or a Long, and you are waiting until popo equals a string! No wonder you get an error. A type mismatch I believe. So what I did was have you convert whatever is in Text1.Text into a numbered data type (Integer or Long). I also added another line of code since Text1.Text might be equaling "". And last but not least, you needed popo = popo + 1 cause your loop would be infinite then. So it's now like a For loop.

You didn't need the Timer to add 1 to popo unless you are adding 1 ever someodd seconds.

[pbuddy_8]

Use this
Do Until popo = Val(Text1.Text)

I guess this will solve the problem.

[Jacob Roman]

Use this
Do Until popo = Val(Text1.Text)

I guess this will solve the problem.

That works too

[Electroman]

Just to let you know the Game probably will check if the IP is the same lots of times and so they will either not count them or ban you from it.

Not to mention if you do this lots (on the 100's or 1,000's level) then your ISP could get suspious of you launching DoS attacks and may not take the time to ask why .

[Piller]

Just to let you know the Game probably will check if the IP is the same lots of times and so they will either not count them or ban you from it.

Not to mention if you do this lots (on the 100's or 1,000's level) then your ISP could get suspious of you launching DoS attacks and may not take the time to ask why .

Ya visualad told me it could be like a DoS attack , thank you guys for warning me , and you guys that helped me.