DJ(豆俊)鼠标点击程序源代码.doc

说明：本文件的一些内容是之前学习的时候在网上找的模板1：首先对API函数进行声明Public Declare Function SetCursorPos Lib user32 (ByVal x As Long, ByVal y As Long) As Long 设置鼠标所在位置Public Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long 获取鼠标坐标 Declare Sub mouse_event Libuser32Aliasmouse_event(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)定义鼠标事件Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)制作子过程：Public sub ShuBiao(byval x as in teger)If x=1 thenmouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0elsemouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 end if End sub模板2：定义变量Public const MOUSEEVENTF_MOVE=&H1移动鼠标Public const MOUSEEVENTF_LEFTDOWN=&H2模拟鼠标左键按下Public const MOUSEEVENTF_LEFTUP=&H4模拟鼠标左键抬起Public const MOUSEEVENTF_RIGHTDOWN=&H8模拟鼠标右键按下Public const MOUSEEVENTF_RIGHTUP=&H10模拟鼠标右键抬起Public Type POINTAPI x As Long y As LongEnd TypePublic P as pointapiPublic a() as singlePublic b() as singlePublic str as stringPublic xz() as integer窗体：Timer控件：Call Getcursorpos(p)Label1=p.xLabel2=p.y“添加“按钮：Static i as long i=i+1 redim preserve a(i)redim preserve b(i)redim preserve xz(i)a(i)=text1b(i)=text2select case truecase option1.valuestr=”左键单击”xz(i)=1case option2.valuestr=”右键单击”xz(i)=2select endtext3=text3 & “在” & a(i) & b(i) & “处” & str“执行”按钮单击事件：D