返回列表 上一主題 發帖

[發問] 無限迴圈控制

[發問] 無限迴圈控制

目前正在寫一個滑鼠點擊功能
程式大致如下↓
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"鍵

請多指教,謝謝

回復 1# simon552614


    sec_gap=30
Do
    w=w+1
    if w = 3 then w=0 : Application.SendKeys ("z")
    滑鼠點擊一次
     Application.Wait DateAdd("s", sec_gap, Now)

loop

TOP

        靜思自在 : 得理要饒人,理直要氣和。
返回列表 上一主題