無限迴圈控制
目前正在寫一個滑鼠點擊功能程式大致如下↓
sec_gap=30
Do
滑鼠點擊一次
Application.Wait DateAdd("s", sec_gap, Now)
loop
現在是用wait去控點擊頻率
現在想要加上除了滑鼠30秒按一下之外,每3秒要按一次鍵盤"Z"鍵
目前想到是,裡面加for去控30/3=10次,但如果sec_gap=20會除不盡
問題:雖然可以用int去避開,但有沒有辦法做出時間互不影響的方法
ex: 如果sec_gap=20,就會在第20秒按滑鼠、第21秒按下"Z"鍵
請多指教,謝謝 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=121376&ptid=24012]1#[/url] [i]simon552614[/i] [/b]
sec_gap=30
Do
w=w+1
if w = 3 then w=0 : Application.SendKeys ("z")
滑鼠點擊一次
Application.Wait DateAdd("s", sec_gap, Now)
loop
頁:
[1]