vb.net鼠标双击 vbs自动点击鼠标

vb.net如何调用打开外部excel文档

第一步，新建项目。

创新互联建站拥有10余年成都网站建设工作经验,为各大企业提供网站设计制作、成都网站设计服务，对于网页设计、PC网站建设（电脑版网站建设）、重庆APP开发公司、wap网站建设（手机版网站建设）、程序开发、网站优化（SEO优化）、微网站、域名注册等，凭借多年来在互联网的打拼，我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验，集策划、开发、设计、营销、管理等网站化运作于一体，具备承接各种规模类型的网站建设项目的能力。

1

打开vb.net，也就是打开Microsoft visual studio 2010，第一次使用的时候设置为basic语言就行。新建项目--打开excel。

2

新建成功。

END

第二步，添加引用。

1

“项目”--“添加引用”。

2

添加Microsoft Excel 14.0 Object Library。

END

第三步，添加打开文件对话框工具。

1

工具箱--对话框--openfiledialog。

2

添加成功。

END

第四步，添加命令按钮控件。

1

工具箱--公共控件--button。

在控件上右击鼠标，进入属性设置。

2

text属性设置为“打开excel”。

3

name属性也设置为“打开excel”。

END

第五步，编写程序。

1

鼠标双击命令按钮，进入编程界面，编写程序。

END

第六步，运行程序。

1

鼠标单击启动调式图标，程序开始运行。

2

单击打开excel命令按钮，调用打开文件对话框，选择自己要打开的excel文件。

END

第七步，保存程序。

第一次程序运行完，关闭程序，出现关闭项目提示，选择保存。

2

选好自己要保存的位置。

VB.net如何双击文件打开

我不知道我的理解是否正确，不过你先看看吧

以图片为例，我的桌面有一个  例图.jpg  的文件，我自己写的程序 图片浏览器.exe

将图片的启动程序修改成  图片浏览器.exe

图片浏览器.exe 打开  例图.jpg  文件

解决方案如下，利用了 System.Environment.GetCommandLineArgs()函数

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim MyFile As String = ""  '用以保存所打开的文件路径                     

Dim Parameters() As String  '用以保存数组参数                  

Dim i As Integer

Parameters= System.Environment.GetCommandLineArgs()

i = Parameters.GetUpperBound(0)                             

If i  0 Then                                 

MyFileName = Parameters(1)

PictureBox1.ImageLocation = MyFileName

End If

End Sub

参考文件：MSDN

原创程序哦

如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中的声明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模拟鼠标左键按下

vb.net mouse_event被屏蔽怎么模拟鼠标双击

软糖来回答一下。

利用驱动级鼠标键盘按键模拟。

找一下winIO64。很多博客都写清了详细用法，需要研究一下。

PS：这个东西会被各大网游当外G的，使用请小心。

跪求大神指点, vb.net 的图片鼠标事件 怎么把鼠标单击双击和鼠标按下鼠标放开 分辨出来呢?

单击双击和按下松开本身就是重合的操作，分不开的，你想达到什么样的操作目的？

VB.NET模拟鼠标问题

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 的详解，大致使用如上