当前位置:编程学习 > VB >>

关于VB调用IE,不想在360浏览器中打开该如何处理?

由于公司网页的特殊性,我用VB调用IE打开网页,因为设置了360浏览器为默认浏览器,但打开时候提示错误,只有IE浏览器是默认的浏览器的时候,才能正常显示,有什么方法解决?
调用IE的基本代码如下 :


Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Dim WithEvents ie As InternetExplorer

Private Sub Form_Load()
Me.Picture1.Width = Screen.Width

Me.Picture1.Height = Screen.Height

Set ie = Nothing
Set ie = CreateObject("InternetExplorer.application")
SetParent ie.hWnd, Picture1.hWnd

ie.FullScreen = True
ie.Visible = True
MyUrl = "http://post.58.com/505/12/s5" '临沂

ie.Navigate MyUrl

Do While ie.ReadyState <> 4
DoEvents
Loop
End Sub

设置了360浏览器为默认浏览器时,上述方易做图直接提示错误,现在想在不改变默认浏览器的情况下在IE中打开该网页,请高手帮忙!! --------------------编程问答-------------------- 调用IE的话直接Shell它不就行了。 --------------------编程问答--------------------
引用 1 楼  的回复:
调用IE的话直接Shell它不就行了。

我想把网页嵌入到软件里面。 --------------------编程问答--------------------
引用 2 楼  的回复:
引用 1 楼 的回复:
调用IE的话直接Shell它不就行了。

我想把网页嵌入到软件里面。

那就用WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.xxxx.com"
End Sub

--------------------编程问答--------------------
引用 3 楼  的回复:
引用 2 楼 的回复:
引用 1 楼 的回复:
调用IE的话直接Shell它不就行了。

我想把网页嵌入到软件里面。

那就用WebBrowser控件Private Sub Form_Load()
WebBrowser1.Navigate "http://www.xxxx.com"
End Sub
IE和WebBrowser还是有一定的差别吧
补充:VB ,  网络编程
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,