如何在程序中调用浏览器打开一个网址或调用Email编辑器发Email?

Question

知道程序的话，就用shellexecute。

Answer 1

打开浏览器并进入指定网址 
声明：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例子：
Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://vbonline.yes8.com", "", App.Path, 1)
End Sub建立包含主题和正文的邮件我们知道通过调用API函数ShellExecute就可以发送邮件了，但是如何让邮件同时包含主题和正文呢，看下面的代码：
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, "", "mailto:[email protected]?subject=help&body=OK", _ 
        "", "", 0 
    End Sub 
可以看到，上面我们只是利用了一个&就可以将邮件的主题与正文连接了起来。

Answer 2

一调用
ret& = ShellExecute(Me.hwnd, "Open", "http://vbonline.yes8.com", "", App.Path, 1)
就死机？？？

Answer 3

shell "start.exe http://www.needon.com"

Answer 4

打开地址:shell "start.exe http://www.needon.com"
发邮件:mail to "[email protected]"

Answer 5

TechnoFantasy(www.applevb.com)不行，还是死机
随便问一句，怎么在新窗口中打开