簽到天數: 11 天 連續簽到: 1 天 [LV.3]偶爾看看II - 積分
- 174
- 威望
- 17
- G幣
- 290
- 聲望
- 5
- 貢獻
- 70
- 金錢
- 50
- 嘉獎
- 0 次
- 嚴重警告
- 0 次
- 閱讀權限
- 20
- 註冊時間
- 2012-12-27
|
先拉一個timer
再打勾的地方寫入
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
End If
If Check1.Value = 0 Then
Timer1.Enabled = False
End If
End Sub
在timer1裡寫
Private Sub Timer9_Timer()
SendKeys "{F9}"
End Sub
這樣就可以了 timer的interval改1000 |
|