工程----部件----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这个网址看看是不是会打开临时对话的窗口.?
原理就是这么来的.