VB调用浏览器打开指定的网站 加QQ 等功能

工程----部件----MS——Internet---control

 

Private Sub Form_Load()
URL = "http://www.miibeian.gov.cn/chaxun/ggcx.jsp?4130272972=1323062534"
WebBrowser1.Navigate URL
End Sub

 

 

Private Sub Command1_Click()
Dim QQNum As String
QQNum = 1290298864
Shell "C://Program Files//Internet Explorer//IEXPLORE.exe tencent://message/?uin=" + QQNum + ""
End Sub

Private Sub Command2_Click()
URL = "http://www.99beian.com"
WebBrowser1.Navigate URL
End Sub

Private Sub Form_Load()
URL = "http://www.miibeian.gov.cn/chaxun/ggcx.jsp?4130272972=1323062534"
WebBrowser1.Navigate URL
End Sub

 

 

 

Shell "C://Program Files//Internet Explorer//IEXPLORE.exe tencent://message/?uin=" + QQNum + ""

其中C://Program Files//Internet Explorer//IEXPLORE.exe

表示IE浏览器的地址

tencent://message/?uin=" + QQNum + ""

表示IE浏览器打开的网址

因为你之前定义过

Dim QQNum As String
QQNum = 328191852

所以打开的网址为

tencent://message/?uin=328191852

你试试直接在IE浏览器里面输入tencent://message/?uin=328191852这个网址看看是不是会打开临时对话的窗口.?

原理就是这么来的.