the darkpallys ' subdelay function is very slow,i make my bot ' core and it are geting the 100% of cpu,i see a problem...
i search on internet and found it,its is very fast,and my bot a low of my cpu...
Code
Code:
Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "WinMM.dll" () As Long
Public Sub Wait(ByVal inMilliseconds As Long)
Dim SleepTime As Long, TimeNow As Long
Dim SleepTo As Long, SleepEnd As Long
Const MaxSleep As Long = 100
TimeNow = timeGetTime()
SleepTime = inMilliseconds \ 10
If (SleepTime > MaxSleep) Then SleepTime = MaxSleep
SleepTo = TimeNow + inMilliseconds
Do
DoEvents
TimeNow = timeGetTime()
SleepEnd = SleepTo - TimeNow
If (SleepEnd <= SleepTime) Then Exit Do
Call Sleep(SleepTime)
Loop
If (SleepEnd > 0) Then Call Sleep(SleepEnd)
End Sub