수다닷컴

Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Byte) As Byte
Private Declare Function SetCursorPos Lib user32 (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib user32 (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Sub Timer1_Timer()
If Not GetAsyncKeyState(vbKeyF3) = 0 Then SetCursorPos 942, 518
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

SendKeys (Text1.Text)
SendKeys (Chr(13))
End If
End Sub소스는 이러합니다. 타이머 인터벌은 1000으로 주었구요 이렇게 되면 마우스 클릭을 먼저하고 키보드가 입력 되야하는데입력이 먼저 나가고 클릭이 되는 것 처럼 보입니다. 실지로 너무 빨라서 그런지 두개의 순서가 명확하지가 않습니다. 혹시 마우스 이벤트와 키보드를 입력하는 사이에 시간을 지연시키고 싶은데 방법이 있을까요? 그리고 소스 자체에 문제가 있는건가요? ㅠㅠ 어렵네요 하아...최종 - f3 키를 누르면 지정된자표를 클릭 그후 text1.text 의 캡션값을 넣고 엔터 ~ 끝 이렇게 되야되는데 잘안되네요 ^^;;

신청하기