Mas eko saya cb ngetes2 fungsi API nya kaya prog dibawah ini. Pas pake sleep
1000 (1 second) ya masih aman tapi pas coba sleep 9000 atau di atasnya kok
terbebani programnya jadinya ya. Gimana dong ada solusi yang lain ga. Klu pake
timer gimana lebih bagus ga.
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
txtWords.Text = "Hello"
DoEvents
Sleep 9000
txtWords.Text = "Cookie"
DoEvents
Sleep 9000
txtWords.Text = "Train"
DoEvents
Sleep 9000
txtWords.Text = "Cat"
End Sub
Eko Heri Susanto <[EMAIL PROTECTED]> wrote:
Coba pake fungsi API sleep
contoh :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub MySub()
For i = 1 To adoRs_don.RecordCount
hp_don(i) = adoRs_don!Nohp_don
Call OpenPort(MSComm1)
Call sendMSG(pesan, hp_don(i))
Call ClosePort(MSComm1)
adoRs_don.MoveNext
'tambahan fungsi sleep
Sleep 50000
Next
End Sub
Demikian semoga membantu
Best Regards
Eko Heri
www.smsqta.com (layanan sms biaya murah)
>
> Saya punya penggalan program ky gni (program bwt kirim SMS)
> For i = 1 To adoRs_don.RecordCount
> hp_don(i) = adoRs_don!Nohp_don
> Call OpenPort(MSComm1)
> Call sendMSG(pesan, hp_don(i))
> Call ClosePort(MSComm1)
> adoRs_don.MoveNext
>
> Next
>
> Nah saya pengen sebelum melakukan perulangan yang berikutnya ada
waktu jeda tujuannya spy HP tidak terbebani saat mengirimkan SMS
misalnya dg delay 5 menit. Mohon petunjuknya yahh! Makasih sebelumnya
>
>
> ---------------------------------
> Luggage? GPS? Comic books?
> Check out fitting gifts for grads at Yahoo! Search.
>
> [Non-text portions of this message have been removed]
>
---------------------------------
It's here! Your new message!
Get new email alerts with the free Yahoo! Toolbar.
[Non-text portions of this message have been removed]
