VB6 Webbowser控件與JS交互，無邊框和屏蔽右鍵菜單

1. 屏蔽右鍵菜單

 在菜單中單擊"工程"->"引用"，在列表中找到"Microsoft HTML Object Library"打上勾，按肯定就能夠了。

     

   而後本身加上控件

      

Dim WithEvents M_Dom As MSHTML.HTMLDocument  
Private Function M_Dom_oncontextmenu() As Boolean 
M_Dom_oncontextmenu = False 
End Function

Private Sub Webbrowser1_DownloadComplete() 
Set M_Dom = Webbrowser1.Document 
End Sub

 

2.無邊框以及和JS交互

 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

 

Set M_Dom = WebBrowser1.Document
'Me.PopupMenu mymenu

 

' On Error Resume Next
pDisp.Document.body.setAttribute "extend", Me ‘用於和網頁裏的JS交互
With WebBrowser1 ‘無邊框設置
.Document.body.Scroll = "no"
.Document.body.Style.border = "0px"
.Document.body.Style.margin = "0px"
.Document.body.Style.overflow = "hidden"
End With

End Sub

 

Function doSomething(ByVal sParam$)’處理網頁裏的事件
MsgBox sParam, vbInformation Or vbOKOnly, "doSomething"
End Function

 

在網頁裏調用VB程序裏的doSomething：

<a href="void(0)" onclick="document.body.extend.doSomething('www.google.com-000000');return false;">google.com</a><br />