Wachten ? Slapen?

[GDay]

Hey
In vbs is er een code die je script even laat slapen
Is dit er ook voor vb2005 ?

 

[That Guy]

Om de 'evil' timers te voorkomen, gebruik deze: (vb6.0)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep(5000)   [COLOR="SeaGreen"]'voor 5 seconde wachten[/COLOR][/

Maar voor 2005: (zie ook hier)

Public Sub Wait(ByVal Milliseconds As Integer)
        Dim time As Date
        time = Now.AddMilliseconds(Milliseconds)
        Do While time > Now
            Application.DoEvents()
        Loop
    End Sub

 

[GDay]

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label4.Text -= 1
If Label4.Text = 0 Then
Timer1.Stop()
If Val(TextBox2.Text) <> 0 Then
Dim i As Integer
For i = 1 To TextBox2.Text
If CheckBox1.Checked Then
SendKeys.Send(TextBox1.Text & "{ENTER}")

Else
SendKeys.Send(TextBox1.Text)
End If
Next i





Hier heb ik je code gedaan.




Else
MsgBox("Je kan alleen getallen invoeren.")
End If
Label4.Text = 10
End If
End Sub


Dat is de code die ik nu heb

Ik heb het geprobeerd maar ik krijg het niet werkend :S

Ik heb geschreven waar ik e code heb gedaan.

 

[That Guy]

'Code voor een 'WAIT' functie:
Public Sub Wait(ByVal Milliseconds As Integer)
        Dim time As Date
        time = Now.AddMilliseconds(Milliseconds)
        Do While time > Now
            Application.DoEvents()
        Loop
    End Sub


'De timer:
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label4.Text -= 1
If Label4.Text = 0 Then
Timer1.Stop()
If Val(TextBox2.Text) <> 0 Then
Dim i As Integer
For i = 1 To TextBox2.Text
If CheckBox1.Checked Then
SendKeys.Send(TextBox1.Text & "{ENTER}")

'Zeg dat het x aantal seconde moet wachten, door de Wait() functie aan te roepen
Wait(val(textbox2.text))
'klaar met wachten! ga nu verder

Else
SendKeys.Send(TextBox1.Text)
End If
Next i
Else
MsgBox("Je kan alleen getallen invoeren.")
End If
Label4.Text = 10
End If
End Sub

 

[WILLIAMXXX]

Misschien is er gewoon iets simpels, dat alles werkt via een timer en voor het stoppen: Timer1.Stop voor het hervatten: Timer1.Start

 

[Hans van Dijck]

slapen

Probeer dit eens

System.Threading.Thread.Sleep(1000)