Question

修改

对于VB 6

结束编辑

嘿，这似乎应该是一个简单的修复，我不是特别喜欢Visual Basic语言，但是如何使用代码在默认Web浏览器中打开URL？

修改
为什么我一直收到这个错误？

调用PInvoke函数'CrackleMail！WindowsApplication1.FormFinal :: ShellExecute' 堆栈不平衡。这很可能是因为托管的PInvoke签名与非托管目标签名。检查PInvoke的调用约定和参数签名匹配目标非托管签名。

Answer 1

接受的答案中的代码给我一个编译错误我从MSDN Use ShellExecute to launch the default Web browser

获得了以下代码

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", "http://www.microsoft.com", 0, 0, 1)
End Sub

Answer 2

VB.NET：

System.Diagnostics.Process.Start("http://example.com")

VB 6（不确定）：

Declare Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Integer) As IntPtr

ShellExecuteA(Me.Handle, "open", "http://example.com", "", "", 4)

Answer 3

很简单！只需使用Wscript createobject方法

CreateObject("Wscript.Shell").Run "www.example.com"

Answer 4

Option Explicit

'Link the kernel method that allows a process to be open/spawn

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 mnuAbrirNavegador_Click(Index As Integer)
    OpenUrl("http://www.microsoft.com")
End Sub

Private Sub OpenUrl(ByVal url As String)
    r = ShellExecute(0, "open", url, 0, 0, 1)
End Sub

Visual Basic打开URL与默认浏览器

4 个答案: