수다닷컴

엔터를 누르면 현재화면을 클립보드넣고싶은데요코드를Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function vkeys Lib user32 Alias GetAsyncKeyState (ByVal vkey As Long) As Integer
Private Sub Timer1_Timer()
Dim A As Long
A = vkeys(13)
If A = -32767 Then
keybd_event 42, 0, 0, 0
End If
End Subkeybd_event 42, 0, 0, 0
가 prt scr키코드라고해서 했는데 65로 입력하면 A가 나오긴하는데42로 하면 프린트스크린이 안눌리네여ㅠㅠ;;;
이렇게 짯는데 왜안되는걸까요

신청하기