Question

求助VB语言，希望每隔10秒钟运行一次ALT+8键，一直循环，我写的不行，一运行就死机。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
ExitLoop = False
Do
SendKeys "%8"
Sleep 5000
Loop
End Sub

Answer 1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    ExitLoop = False
    Do
        SendKeys "%8"
        '用一下doevents比较可靠
        doevents
        Sleep 5000
    Loop
End Sub
'以下的写法更合理
Private Sub Command1_Click()
    ExitLoop = False
    Do
        SendKeys "%8"
        '这里sleep 5000改变一下，免得卡死太长时间
        for i=1 to 50
            doevents
            if  ExitLoop then exit do
            Sleep 100
        next
    Loop
End Sub

Answer 2

用timer控件，
SLEEP会挂起进程，就相当于死机了。

Answer 3

用按键精灵轻松实现