VB6 Webbowser控件与JS交互

在菜单中单击"工程"->“引用”，在列表中找到"Microsoft HTML Object Library"打上勾

1Dim WithEvents M_Dom As MSHTML.HTMLDocument

 1Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 2Set M_Dom = WebBrowser1.Document
 3'Me.PopupMenu mymenu
 4On Error Resume Next '去除运行时错误91，未设置变量或with block变量报错
 5pDisp.Document.body.setAttribute "extend", Me '用于和网页里的JS交互
 6With WebBrowser1 '无边框设置
 7.Document.body.Scroll = "no" '排版对齐
 8.Document.body.Style.border = "0px" '无边框设置
 9.Document.body.Style.margin = "0px" '排版对齐
10.Document.body.Style.overflow = "hidden"
11End With
12End Sub

1Private Function M_Dom_oncontextmenu() As Boolean
2M_Dom_oncontextmenu = False '禁止右键
3End Function