在vb中如何调用IE访问指定网站？

Question

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 Longprivate Const SW_SHOWNORMAL = 1Private Sub Form_Load()
        ShellExecute Me.hwnd, vbNullString, "www.163.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Answer 1

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 LongPublic Sub My_Shell(ByVal sLocation As String)
Dim lR As Long
lR = ShellExecute(0, "open", sLocation, vbNullString, vbNullString, 0)
         If (lR < 0) Or (lR > 32) Then
         Else
         MsgBox "Sorry, I could not go to " & sLocation & ".", vbInformation
         End If
End Sub...
....
......
My_Shell "about:blank" '开一个新的IE窗口 ... (不开新窗口这句不用写)
My_Shell "www.163.net"
...
.....

Answer 2

re = ShellExecute (Me.hwnd, "Open", "http://211.94.206.61/hyw/dina/index.htm", "", App.Path, 1)这是通过api调用程序，打开的是默认浏览器

Answer 3

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.silangtech.com", vbMaximizedFocus

Answer 4

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.silangtech.com", vbMaximizedFocus,就是 kailong(凯龙) 说的

Answer 5

做个记号：）
那么用默认的程序发EMAIL给作者呢？？

Answer 6

shellExecute "mailto:[email protected]"

Answer 7

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 LongPrivate Sub Command1_Click()lReturn = ShellExecute(hwnd, "open", "http://www.sina.com.cn", vbNull, vbNull, SW_SHOWNORMAL)End Sub

Answer 8

没有这么复杂啊~
只要用SHELL调用就可以了啊~
然后窗体隐藏，就不会出现讨厌的黑框框了~