关于SHELL调用IE的问题，60分

[wdmm]

VB6的程序在WIN98运行,Temp.url为一个快捷方式，指向一个网址。
当程序运行到：
Shell "Rundll32.exe Shdocvw.dll,OpenURL" & App.Path & "\Temp.url", vbNormalFocus时，总提示Shdocvw.dll出错，丢失项目 ···\Temp.url
（如果98下运行正常，是否无须改动，WIN2000或WINME下也可通过。）

[wdmm]

谢谢

[xxlroad]

我是男的

用 ShellExecute 就没有了

[wdmm]

帮帮我好吗

[xxlroad]

Private Sub Command1_Click()
Shell "start.exe " & App.Path & "\Temp.url", vbNormalFocus
End Sub

[xxlroad]

希望这2个对你有点帮助

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() '打开
ShellExecute Me.hwnd, "open", App.Path & "\Temp.url", , "", App.Path, 1
End Sub

[xxlroad]

Private Sub Command1_Click()'通过
Shell "start.exe " & "C:\win98\desktop\网易.url", vbNormalFocus
End Sub

[wdmm]

Shell "start.exe " & App.Path & "\Temp.url", vbNormalFocus
1、win98下运行正常，是否无须改动，WIN2000或WINME下也可通过.
2、运行时总是伴随着显示DOS命令窗口，怎样不让它显示。

[tulip_hui]

Option Explicit

Public strcategoryid As String
Public strproviderid As String
Public stremployeeid As String
Public stremployee As String
Public strprovider As String
Public 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
'the above is used to link the online web

Private Sub mnuOnline_Click()
Dim a
a = ShellExecute(Me.hwnd, "open", "http://www.efu.com.cn", "", App.Path, 1)
End Sub

我就是这么做的，OK!

[lyqof908]

xxlroad(土八路)说的对。我使用他(不会是她吧）的方法的。