主頁 > 知識庫 > 關于vbs WebBrowser導航問題

關于vbs WebBrowser導航問題
熱門標簽：智云億呼電話機器人 機器人打電銷適用于美業(yè)嗎 外呼系統群 墨西哥地圖標注app 上海辦理400電話選號 外呼系統說話聲音小怎么辦 龍巖400電話申請 企業(yè)400電話辦理價錢低 天津智能外呼系統排名
實際上屬于轉貼。。呵呵:-)
原始文章來自微軟，微軟么，是大家的微軟嘛！所以稍微修改了一下，帖到這里。
原文的中文地址是：
http://support.microsoft.com/kb/185538/zh-cn
實際上，這個實現就是獲取一個接口，還是叫事件吧。。。。更明顯，反正我是分不清這些東西的。
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

163的鏈接一般都是彈出窗口，就用163吧

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub

如果你想知道彈出窗口的URL呢，那就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = False
MsgBox URL

End Sub

如果你想讓彈出窗口在原來的窗體里顯示呢，就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = True
WebBrowser1.Navigate URL
End Sub

標簽：麗水 承德 鄂爾多斯 黃山 錫林郭勒盟 齊齊哈爾 阜新 青島

巨人網絡通訊聲明：本文標題《關于vbs WebBrowser導航問題》，本文關鍵詞  關于,vbs,WebBrowser,導航,問題,；如發(fā)現本文內容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《關于vbs WebBrowser導航問題》相關的同類信息！
  • 本頁收集關于關于vbs WebBrowser導航問題的相關信息資訊供網民參考！
    • 推薦文章