Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的石屏网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Dim postion1 As New Point
mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换
mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起
msdn上有 mouse_event 的详解，大致使用如上
使用webbrowser空间实现很简单
一。 首先在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument
其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")
最后执行onclick : mydom.onclick
二.还有想要实现点击，直接执行点击的相应函数即可例如：假设想实现点击下面的Inputbox
input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/
那么直接执行onclick里的函数busSwitchDiv('changeDiv')即可，执行语句如下：
WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"
梦西已经屏蔽了mouse_event，防止自动练级……
所以很遗憾，这个API在这里用不了。
