Программное нажатие клавиши - VB (60653)

Формулировка задачи:

Код по идеи должен программно жать F5 каждые 60 секунд

                    Листинг программы
                
 
                        
                          
                    
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
 
Public Sub wait(seconds)
Timer1.Enabled = True
Timer1.Interval = 1000 * seconds
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub
 
Private Sub btn_start_Click()
Do While True
SendKeys "{F5}"
wait (60)
Loop
End Sub

Но на этой строке выдает ошибку

                    Листинг программы
                
SendKeys "{F5}"

Не пойму в чем дело... Подскажите пожалуйста.

Решение задачи: «Программное нажатие клавиши»

textual
                            Листинг программы 
                        
' Создаем новый объект клавиатуры
 Dim kb As New Devices.Keyboard
 ' Нажимаем
 kb.SendKeys("{F5}")

Оцени полезность:

8 голосов , оценка 4.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы