VB模拟鼠标操作.docx

模拟鼠标操作

全局级模拟GetCursorPos/GetCursorPos

两个重要函数，获取光标位置与设置光标位置，详细说明请参考本站另一篇文章

-经典API函数。mouse_event

模拟鼠标操作的主函数。

涉及API函数列表：

PrivateDeclareFunctionSetCursorPosLibuser32(ByValxAsLong,ByValyAsLong)AsLong

PrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPOINTAPI)AsLong

PrivateDeclareFunctionWindowFromPointLibuser32(ByValxPointAsLong,ByValyPointAsLong)AsLong

PrivateDeclareSubmouse_eventLibuser32(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)

PrivateDeclareFunctionGetWindowTextLibuser32AliasGetWindowTextA(ByValhwndAsLong,ByVallpstringAsString,ByValcchAsLong)AsLong

PrivateDeclareFunctionShowWindowLibuser32(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong

PrivateDeclareSubkeybd_eventLibuser32(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateDeclareFunctionGetAsyncKeyStateLibuser32(ByValvKeyAsLong)AsInteger

PrivateDeclareSubSleepLibkernel32(ByValdwMillisecondsAsLong)

PrivateTypePOINTAPIxAsLong

yAsLongEndType

DimlpPointAsPOINTAPI，spasLong

Subleftdown()左键单击DimlpstrAsStringlpstr=Space(255)

GetCursorPoslpPoint

sp=WindowFromPoint(lpPoint.x,lpPoint.y)GetWindowTextsp,lpstr,255

ShowWindowsp,SW_NORMALOnErrorResumeNextAppActivateRTrim(lpstr)

mouse_eventMOUSEEVENTF_LEFTDOWN,0,0,0,0

mouse_eventMOUSEEVENTF_LEFTUP,0,0,0,0EndSub

先来看这个封装的leftdown()过程:

第一句，声明一个字符串型变量；

第二句，预置缓冲区为255个空字符，因为下面的函数需要将窗口标题字符串放入该缓冲区；

第三句，获得光标当前位置，该位置信息被置入POINTAPI型变量lpPoint中，这是一个结构体，其中两个成员变量x,y分别为光标的横坐标，纵坐标；

第四句，WindowFromPoint()函数返回光标下目标的句柄，赋给Long型变量sp,很有用的一个函数;

第五句，ShowWindow()函数，显示一个窗口，其参数分别为目标窗口的句柄（第四句已获得）和显示样式，常用函数；

第六句，容错，因为操作系统运行的不确定性，加容错语句以防万一；

第七句，AppActivate()函数，激活一个窗口为活动窗口，其参数为窗口标题字符串（第四句已获得），刚才缓冲区被置了很大，所以需要去串的右端空格；

第八句和第九句，关键所在，mouse_event()函数，左键单击只需设置第一个参数，其它参数用途请参考MSDN。

说到这里顺便提一句，大多数情况下，只需要第八和第九句即可，我为什么要都列出来浪费时间呢，是因为在XP系统下，这几