shell问题

Question

如果你在win98:
Dim rtn 'declare the needed variablesrtn = Shell("rundll32.exe rnaui.dll,RnaDial " & Connection.Text, 0) 'show the Connect dialog

Answer 1

Shell "start " & """c:\windows\destop\快捷方式  163.lnk""", vbHide

Answer 2

我正在制作一个用快捷键来开启程序和连接因特网的程序。我不能使用NiceFeather朋友提供的方法，因为同样的语句不可能开启其它程序。
Freeboy朋友提供的方法也不行，不知道为什么。除了desktop字样打错了以外，还有说明地方错了吗？

Answer 3

ericyin，请把你的要求说详细一点

Answer 4

我正在制作一个软件，可以让用户自定义快捷键来控制程序的运行以及连接互联网。比如Ctrl+E是打开Internet Explorer；Ctrl+Shift+I是连接163网（相当于点击桌面上的“快捷方式  163”）；Alt+B是打开eBookMark，等等。
对于运行软件，没有问题，可以用shell语句。但是对于连接互联网，由于“拨号网络”中的项目其实都不是一般的exe文件，所以shell语句就无效了。如果用rundll32.exe的方法又不能正常启动其它软件。所以，我希望有一个语句，既有运行软件的功能，又可以连接互联网。有吗？

Answer 5

Option ExplicitPrivate 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 LongPrivate Sub Command1_Click()
    '打开App
    ShellExecute 0&, vbNullString, "C:\WIN98\NOTEPAD.EXE", _
        vbNullString, vbNullString, vbNormalFocus
End SubPrivate Sub Command2_Click()
    '打开URL
    ShellExecute 0&, vbNullString, "http://www.quanqiu.com", _
        vbNullString, vbNullString, vbNormalFocus
End Sub

Answer 6

我看你就别做这个软件了,君不见桌面的快捷方式及菜单上的lnk都可以定义快捷键吗??哈哈

Answer 7

谢谢freeboy.大家还有其它方法吗？没有的话我就给分了。