X 만큼 길다
만큼
끝 유형
개인 선언 함수 FindWindow Lib "user32 "별칭" FindWindowA" (ByVal lpClassName 은 문자열, ByVal lpWindowName 은 문자열) 는 Long 입니다
개인 선언 함수 clienttoscreenlib "user32" (byval hwnd 는 Long, lpPoint 는 POINTAPI) 는 Long 입니다
Private declare submouse _ event lib "user 32" (byval dw flags 는 Long, ByVal dx 는 Long, ByVal dy 는 Long, ByVal cButtons 는 Long)
개인 선언 함수 getcursorposlib "user32" (lppoint as point API) 는 Long 입니다
개인 선언 함수 SetCursorPos Lib "user32" (ByVal X 는 Long, ByVal Y 는 Long) 는 Long 입니다
Constmouse eventf _ leftdown = & 중수소
Const MOUSEEVENTF _ LEFTUP = & ampH4
Constmouse eventf _ middle down = & H20
Constmouse eventf _ middleup = & H40
Constmouse event f _ move = & amph1
Constmouse event f _ absolute = & H8000
Constmouse eventf _ rightdown = & H8
Constmouse event f _ rightup = & amph10
개인 하위 명령 1_Click ()
점 0 의 치수를 점 API 로 지정합니다
Dim Point 1 을 POINTAPI 로 사용
GetCursorPos Point0' 현재 마우스 좌표를 가져옵니다.
MsgBox 점 0. 엑스선
점 1. X = 20 은 실제 적용 대상 형식에 따라 간격띄우기 좌표 x 값을 지정합니다.
점 1. Y = 20' 는 간격띄우기 좌표 y 값을 지정합니다. 실제 적용은 대상 양식에 따라 달라집니다.
간격띄우기 명령 2 의 간격띄우기 좌표를 화면 좌표로 변환합니다.
실제 응용 프로그램에서 지정된 창의 핸들을 사용합니다.
ClientToScreen 명령 2.hWnd, Point 1
지정된 창의 오프셋 좌표인 변환된 점 1 좌표로 마우스를 이동합니다.
SetCursorPos Point 1. X, 점 1. Y
마우스 왼쪽 버튼 클릭 동작을 시뮬레이션합니다.
Mouse _ event mouse event f _ leftdown 또는 MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
원래 마우스 좌표를 복원합니다.
SetCursorPos Point0. X, 점 0. Y
끝단 접합
개인 하위 명령 2_Click ()
디버깅. "클릭" 인쇄
끝단 접합