' СОРС ЗА ФОРМАТА

'При натискане на бутона - Заснемане на екрана

Private Sub Command1_Click()

KeyDown (44) ' Натискаме софтуерно бутона PrintScren с код 44 в долно положение

KeyUp (44) ' Дигаме софтуерно бутона PrintScreen в горно положение

Timer1.Enabled = True ' Задействаме таймера Timer1, който след 500 мили секунди да вземе заснетото от Clipbord

End Sub

' Таймера сработва еднократно, като реализира време задръжка от 500 мили секунди

Private Sub Timer1_Timer()

Timer1.Enabled = False ' Спираме таймера след като е сработил

Form1.Picture = Clipboard.GetData ' Поставяме заснетата картинка на Form1, като я взимаме от Clipbord

End Sub

'Пример за клавишна комбинация Ctrl+C

Private Sub Command2_Click()

' Първо селектираме това което искаме да копираме

Text1.SetFocus ' Изпращаме фокуса в текстовото поле Text1

Text1.SelStart = 0 'Селектираме началото - маркера преди първата буква

Text1.SelLength = Len(Text1.Text) ' Указваме селектираното да стане с дължина равна на броя на символите в Text1

'Сега вече сработваме клавишната комбинация за копиране Ctrl+C

KeyDown (162) ' Бутон Ctrl в долно положение

KeyDown (67) ' Бутон С в долно положение

KeyUp (67) ' Бутон С в горно положение

KeyUp (162) ' Бутон Ctrl в горно положение

End Sub

' СОРС ЗА МОДУЛА

'Декларация на АПИ функция

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

' Публична процедураза софтуерно сработване на бутон в Долно положение

Public Sub KeyDown(ByVal vKey As KeyCodeConstants)

keybd_event vKey, 0, &H1, 0

End Sub

' Публична процедураза софтуерно сработване на бутон в Горно положение

Public Sub KeyUp(ByVal vKey As KeyCodeConstants)

keybd_event vKey, 0, &H1 Or &H2, 0

End Sub