vb.net模拟鼠标动作 vbs鼠标

求大神指点vb.net 怎么实现鼠标左键按住在移动鼠标达到选中文件的效果呀.我用mouse_even没有效果.

看图片背景，我又试了下资源管理器，文件是选中的状态

创新互联公司专注于安康企业网站建设,成都响应式网站建设公司,成都做商城网站。安康网站建设公司,为安康等地区提供建站服务。全流程按需求定制设计，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务

选中文件和选中文字，背景色是不同的

最近也在搜寻用postmessage模拟鼠标点击网页，只能激活浏览器，而不能点击某按钮。因为找不到该“按钮”的hwnd！！

如果仅仅是网页，而不是Flash，就好办多了。

从菜单“工程、部件”加入Microsoft internet控件，画一个webbrowser1 控件

导航到你的网站，在webbrowser1_DocumentComplete事件中，检测你要的按钮（先分析源代码找出你要的按钮或链接）

如：

On Error Resume Next

Dim docm As HTMLDocument, obj1 As Object

If Not (pDisp Is webbrowser1.Object) Then Exit Sub

Set docm = webbrowser1.Document

For Each obj1 In docm.getElementsByTagName("input")

……

直接docm.getElementByid("xxxxxxx")

找到后，把它赋值给一个全局变量（如dim htmlIn as HTMLInputElement定义一个按钮输入框），再用Timer控件点击它： htmlIn.click

……

建议40秒导航一次该网站：webbrowser1.Navigate strURL

在前面的事件中点击。

因为webbrowser1.fresh只发送一部分信息，网站只接受并返回一部分信息

简单啊

第一个问题

在鼠标的 move事件里面得到鼠标的坐标点，然后更改label的，left 和top属性。具体的值你自己去算。

第二个问题

其实跟地一次差不多，只不过过加个标记，判断鼠标是否在按钮上进行了点击操作，鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候，更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE

回答完毕

你应该调用API

Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean

然后把鼠标移动上去

文章名称：vb.net模拟鼠标动作 vbs鼠标
本文路径：http://abwzjs.com/article/dogpjse.html