189 8069 5689
第一步，新建项目。
创新互联建站拥有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
选好自己要保存的位置。
我不知道我的理解是否正确，不过你先看看吧
以图片为例，我的桌面有一个 例图.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
原创程序哦
调用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）模拟鼠标左键按下
软糖来回答一下。
利用驱动级鼠标键盘按键模拟。
找一下winIO64。很多博客都写清了详细用法，需要研究一下。
PS：这个东西会被各大网游当外G的，使用请小心。
单击双击和按下松开本身就是重合的操作，分不开的，你想达到什么样的操作目的？
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 的详解，大致使用如上