標題: [發問] 無限迴圈控制 [打印本頁]

---

作者: simon552614    時間: 2023-6-4 08:55     標題: 無限迴圈控制

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

請多指教，謝謝

---

作者: singo1232001    時間: 2023-7-24 02:27

回復 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)