VB6 Problem - Timer virker ikke skikkelig!

[DglZ3r0]

Ok, eg har en timer som hette timer1:

 

If label7.caption = "0" then

Label7.Caption = "180"

Else Label7.Caption = Label7.Caption

 

Timeren har en interval på 1000, og når du trykker på en knapp så starter den.

 

Og så har eg prøvd på dette:

 

Private Sub Form_Load()

 

    If krim.Caption = "0" Then

   

    Me.Show: DoEvents

    Form2.WebBrowser1.Navigate "http://www.nordicmafia.net/nordic/index.php?side=krim"

    DoEvents

    While Form2.WebBrowser1.Busy = True

        DoEvents

    Wend

    Form2.WebBrowser1.Document.All.valg(bank).Click

    Form2.WebBrowser1.Document.All("bekreftkrimsubmit").Click

        DoEvents

    While Form2.WebBrowser1.Busy = True

        DoEvents

    Wend

    End If

 

Da virker det ikke. Så prøver eg på:

 

 

Private Sub Form_Load()

 

Do

    If krim.Caption = "0" Then

   

    Me.Show: DoEvents

    Form2.WebBrowser1.Navigate "http://www.nordicmafia.net/nordic/index.php?side=krim"

    DoEvents

    While Form2.WebBrowser1.Busy = True

        DoEvents

    Wend

    Form2.WebBrowser1.Document.All.valg(bank).Click

    Form2.WebBrowser1.Document.All("bekreftkrimsubmit").Click

        DoEvents

    While Form2.WebBrowser1.Busy = True

        DoEvents

    Wend

    End If

Loop

 

Men da kræsjer d. Noen som vil hjelpe?

[LeifOlav]

If label7.caption = "0" then

 

Dette vil kun virke om det står 0 i label7.caption fra før.

[Ueland]

Kan ikke se en god grunn til at du skal få hjelp til bots/juks i onlinespill her..