关于鼠标的自动控制
?牐牨疚闹饕致塾肰B实现鼠标自动控制中一些主要技术，包括编程方法、常用API函数以及一种必要的工具软件（Spy++），读者在了解了这些编程技术之后，可以根据需要针对不同应用程序编写相应的自动控制程序。
#1?牐犑蟊甑淖远贫?
?牐燰B中有一个关于鼠标定位的API函数SetCursorPos就可以实现鼠标的自动移动，下面是该函数在VB中的声明：
?牐燩ublic Declare Function SetCursorPos Lib "user32" （ByVal x As Long， ByVal y As Long） As Long
?牐牳煤礁霾问齲和y，表示鼠标在屏幕上的坐标，用该函数可以将鼠标移到屏幕上的任何地方，例如对于1024×768分辨率的屏幕，一个典型的VB子程序如下：
?牐燩ublic Sub MouseRndMove（）
?牐燚im posx， posy As Integer
?牐爌osx = Int（（1023 * Rnd） + 1）
?牐爌osy = Int（（767 * Rnd） + 1）
?牐燬etCursorPos posx， posy
?牐燛nd Sub
?牐牳煤胮osx和posy两个变量表示鼠标位置的横坐标和纵坐标，VB中随机函数Rnd可产生0到1之间的随机小数，通过子程序中给出的公式就可以计算出屏幕范围内的随机坐标点。该函数一般在VB中的定时器TIMER来定时调用，这样就可以实现鼠标的定时移动。
#1?牐犑蟊甑淖远慊?
?牐犜谑迪质蟊甑淖远慊髦行枰饩隽礁鑫侍猓喝范ū坏慊鞯拇翱诙韵螅ㄈ绨磁ァ⒘唇拥龋┰谄聊簧系奈恢煤拖虼翱诙韵蠓⑺褪蟊甑慊飨ⅰ?
?牐牰源耍颐鞘紫纫柚恍┤砑ぞ呃磁宄翱诙韵蟮哪承┬畔ⅰＮ颐窃谡饫镉肧py++来进行分析（Spy++是Visual Studio 6.0工具集中的一个软件工具），我们举一个简单的例子来说明一下分析的过程。
?牐牐╚41020505a^）是一个简单的VB应用程序窗口，包含一个标题为“点击我”的按钮。
?牐犜谠诵懈贸绦蛑螅诵蠸py++，点击Search菜单中Find Window子菜单，出现如图2（^41020505b^）所示的画面，画面中用圆圈圈出的东东俗称“窗口探测器”，用鼠标将该探测器拖到要点击的应用程序窗口上面，放开鼠标后，点击图中对话框的OK按钮，可得到如图3（^41020505c^）所示的画面。
?牐犕?3中选中部分表示应用程序的主窗口Form1的相关信息，数字部分是窗口的当前句柄，引号内表示窗口的标题，最后是窗口的类名。从图中还可以看出，主窗口中还有下一级子窗口，也就是图1中的“点击我”按钮，其类名为ThunderRT6CommandButton。要对该按钮进行鼠标自动点击必须针对该按钮的句柄来进行。
?牐牬覵py++中获取应用程序窗口的层次信息以及各级窗口的类名，就可以开始实现广告条的自动点击了。同样以中点击应用程序按钮为例：首先用Windows API函数FindWindow根据应用程序窗口的类名ThunderRT6FormDC得到其句柄，根据其句柄用FindWindowEx函数查找并获取与类名ThunderRT6CommandButton相匹配的子窗口（即按钮）的句柄，再根据按钮的句柄用GetWindowRect函数获取按钮在屏幕中具体的位置，用SetCursorPos函数将鼠标定位到窗口中心，然后对该按钮用PostMessage函数发送鼠标按下和弹起两个消息，如此用程序进行鼠标点击就实现了。
?牐犌拔闹皇且桓黾虻サ睦樱导视τ贸绦蛑写翱诘牟愦谓峁箍赡芑岷芨丛樱还灰肧py++工具仍可以对程序完成全面的分析，只要弄清楚要点击的对象在窗口层次结构中的位置，就可以通过上述一系列API函数的运用，找到点击对象的句柄，确定其位置，并向它发送鼠标按下和弹起消息完成自动点击。
?牐犛幸坏阈枰赋龅氖牵琍ostMessage在发送鼠标按下或弹起消息时，函数参数中包含鼠标的坐标，但在VB中调用该API函数时，坐标参数将得不到正确地传递（原因较为复杂），这对于某些窗口对象，比如浏览器中的链接，如果它接受到鼠标按下或弹起消息，但鼠标的坐标与其本身在屏幕上的位置不符，则点击就会失效。不过我们通过试验发现，在VC中调用PostMessage函数，鼠标的坐标参数可以得到正确的传递。一种较简单的做法是在VC中生成一个关于鼠标点击的小动态链接库，然后在VB中调用，这样可以避免完全用VC实现造成的编程麻烦。
#1?牐牳酱奈侍?
?牐牻惺蟊曜远刂频哪康耐俏俗远瓿捎τ贸绦虻哪承┕δ埽敲词紫刃枰芄蛔远舳葱杏τ贸绦颍庠赩B中比较简单，VB中有一个专门的shell函数来完成这一功能，比如我们要用程序自动加载notepad.exe程序，在VB中只要一句话就实现了：
?牐燬hell “notepad.exe”， vbNormalFocus
?牐犜诮惺蟊甑淖远慊魇保岵矶喽钔獾拇翱冢热缍凿榔髦辛唇拥牡慊鳎岵碌腎E窗口，一般需要能够将其自动关闭，这在VB中也可以简单实现：用PostMessage向要关闭的IE窗口发送WM_CLOSE消息即可，下面是一个关闭IE窗口的子程序。对于其他类型的窗口用类似的方法也可以关闭。
?牐燩ublic Sub CloseIEWindow（）?煟?
?牐燚im IEWindow As Long
?牐營EWindow = FindWindow（"IEFrame"，""）??
?牐營f IEWindow Then
?牐燩ostMessage IEWindow（WM_CLOSE，0，0） WM_CLOSE=&H10
?牐燛nd If
?牐燛nd Sub