- 帖子
- 354
- 主題
- 5
- 精華
- 0
- 積分
- 387
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-8-2
 
|
2#
發表於 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 |
|