|
本帖最后由 ztccsj 于 2012-12-10 12:32 编辑
如果大家有时间,请点击下面这个大富翁地址,下载安装后,看能否在excel中建立一个超级链接,然后点击超级链接,看可否启动这个大富翁4程序。谢谢了
#迅雷下载分享# 我以1.40 MB/s的速度已下载[rich4.exe][93.86 MB] http://url.cn/8gpM9R
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
描述:推箱子代码,机器可以调用执行
Sub 推箱子()
Dim game
game = Shell("D:\txz\推箱子.exe", 1)
End Sub
但是同样的代码,调用大富翁程序时就出现错误,出现一个不知道的繁体错误窗口,我确定在目录中直接点击rich4是可以运行的。
Sub 游戏2()
Dim game
game = Shell("D:\txz\rich4\rich42.exe", 1)
End Sub
为何一样的代码,不一样的结果呢?难道是大富翁本身有问题?
- Option Explicit
- Private Declare Function ShellExecute _
- Lib "shell32.dll" _
- Alias "ShellExecuteA" ( _
- ByVal hwnd As Long, _
- ByVal lpOperation As String, _
- ByVal lpFile As String, _
- ByVal lpParameters As String, _
- ByVal lpDirectory As String, _
- ByVal nShowCmd As Long) _
- As Long
- Private Sub Command1_Click()
- Dim r As Long
- r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, "D:\txz\rich4", 1)
- End Sub
复制代码
|
|