Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас подсказать
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Sub Form_Load()
Me.Visible = False
MsgBox "Program yuklendi", vbSystemModal
End Sub
Private Sub Timer1_Timer()
On Error GoTo errbf
Clipboard.Clear
Clipboard.SetText ",", vbCFText
keystate = Getasynckeystate(vbKeyF6)
If (keystate And &H1) = &H1 Then
SendKeys "+{Insert}"
End If
keystate = Getasynckeystate(vbKeyF7)
If (keystate And &H1) = &H1 Then
MsgBox "Sagol", vbSystemModal
Unload Me
End If
errbf:
If Err.Number = 521 Then
Resume
End If
End Sub
этот код полностью реализует проблему
вопрос мой заключается в следующем
можно ли изменить vbKeyF6 на vbKey кнопки Keyasci которой = 44
я посмотрел значение vbKey 44 это vbKeySNAPSHOT
однако vbKeySNAPSHOT это кнопка PrintScreen а не запятой
искал значение vbKeyЗапятой но не нашел
С Уважением
Намик
