Witam, napisałem program, który wpisuje różne rzeczy w przeglądarce, ale nie wiem jak zrobić,żeby przed wykonaniem następnej czynności program "zaczekał" np. 3 sekundy... Proszę o pomoc.
Z poważaniem, DwarfMine
Z poważaniem, DwarfMine
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
....cos tam...
....cos tam....
Sleep(3000)
) To jest najprostszy sposób...
lolcio napisał:Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ....cos tam... ....cos tam.... Sleep(3000)
Sub MyMainMacro()
' Pause for 15 seconds.
Application.OnTime When:=Now + TimeValue("00:00:15"), _
Name:="MyDelayMacro"
End Sub
Public Sub MyDelayMacro()
' Place your delayed macro commands here.
MsgBox "This macro runs after 15 seconds."
End Sub
Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
' pause for 5 seconds
Sleep 5000
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub wait(ByVal dblMilliseconds As Double)
Dim dblStart As Double
Dim dblEnd As Double
Dim dblTickCount As Double
dblTickCount = GetTickCount()
dblStart = GetTickCount()
dblEnd = GetTickCount + dblMilliseconds
Do
DoEvents
dblTickCount = GetTickCount()
Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
End SubError 1 'DoEvents' is not declared. It may be inaccessible due to its protection level. C:\Documents and Settings\Krzysiek\Moje dokumenty\Visual Studio 2010\Projects\DarkWarezPoster\DarkWarezPoster\DWP.vb 231 13 DarkWarezPoster
