Dim WithEvents M_Dom As MSHTML.HTMLDocument
Dim M_win As MSHTML.IHTMLWindow2

'判断结束程序

Private Sub Command1_Click()
If Me.Text1 = "jgawjkr" Then
End
Else
Me.Text1.Visible = False
Me.Command1.Visible = False
Me.Command1.Enabled = False
End If
End Sub

Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False '禁止右键菜单
End Function

Private Sub M_Dom_onkeyup()
If M_win.event.ctrlKey = True And M_win.event.keyCode = 75 Then '定义热键CTRL+K
Me.Command1.Enabled = True
Me.Text1.Visible = True
Me.Command1.Visible = True
End If

End Sub

Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document
Set M_win = M_Dom.parentWindow
End Sub