16,554
社区成员
发帖
与我相关
我的任务
分享
using System;
using System.Windows.Forms;
using mshtml;
using SHDocVw;
namespace WindowsApplication2
{
public partial
class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private
void Form1_Load(
object sender, EventArgs e)
{
this
.webBrowser1.Navigating += new WebBrowserNavigatingEventHandler(webBrowser1_Navigating);
this .webBrowser1.Navigate(
"http://www.google.com" );
SHDocVw.WebBrowser wb =
this .webBrowser1.ActiveXInstance as
SHDocVw.WebBrowser;
wb.NavigateComplete2 += new
SHDocVw.DWebBrowserEvents2_NavigateComplete2EventHandler(wb_NavigateComplete2);
}
void webBrowser1_Navigating(
object sender, WebBrowserNavigatingEventArgs e)
{
if (e.Url.ToString().ToLower().Trim(
'/' ) == "cmd://onmousedown"
)
{
MessageBox.Show(
"jinjazz 路过" );
e.Cancel = true
;
}
}
void wb_NavigateComplete2(
object pDisp, ref
object URL)
{
mshtml.IHTMLDocument2 doc = (
this .webBrowser1.ActiveXInstance as
SHDocVw.WebBrowser).Document as
mshtml.IHTMLDocument2;
doc.parentWindow.execScript( "document.οnmοusedοwn=function(e) { window.location='cmd://onmousedown'}"
, "javascript" );
}
}
}
Imports System
Imports System.Windows.Forms
Imports mshtml
Imports SHDocVw
Public Class Form1
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.WebBrowser1.Navigating += New WebBrowserNavigatingEventHandler(AddressOf webBrowser1_Navigating)
Me.WebBrowser1.Navigate("http://www.google.com")
Dim wb As SHDocVw.WebBrowser = TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)
wb.NavigateComplete2 += New SHDocVw.DWebBrowserEvents2_NavigateComplete2EventHandler(AddressOf wb_NavigateComplete2)
End Sub
Private Sub webBrowser1_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
If e.Url.ToString().ToLower().Trim("/"c) = "cmd://onmousedown" Then
e.Cancel = True
End If
End Sub
Private Sub wb_NavigateComplete2(ByVal pDisp As Object, ByRef URL As Object)
Dim doc As mshtml.IHTMLDocument2 = TryCast((TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)).Document, mshtml.IHTMLDocument2)
doc.parentWindow.execScript("document.οnmοusedοwn=function(e) { window.location='cmd://onmousedown'}", "javascript")
End Sub
End Class
Imports System
Imports System.Windows.Forms
Imports mshtml
Imports SHDocVw
Public Class Form1
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
'VB.NET的动态绑定事件,是这样的:
addHandler Me.WebBrowser1.Navigating,Addressof webBrowser1_Navigating
Me.WebBrowser1.Navigate("http://www.google.com")
Dim wb As SHDocVw.WebBrowser = TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)
addHandler wb.NavigateComplete2, Addressof wb_NavigateComplete2
End Sub
Private Sub webBrowser1_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
If e.Url.ToString().ToLower().Trim("/"c) = "cmd://onmousedown" Then
e.Cancel = True
End If
End Sub
Private Sub wb_NavigateComplete2(ByVal pDisp As Object, ByRef URL As Object)
Dim doc As mshtml.IHTMLDocument2 = TryCast((TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)).Document, mshtml.IHTMLDocument2)
doc.parentWindow.execScript("document.οnmοusedοwn=function(e) { window.location='cmd://onmousedown'}", "javascript")
End Sub
End Class
Imports System
Imports System.Windows.Forms
Imports mshtml
Imports SHDocVw
Public Class Form1
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
'VB.NET的动态绑定事件,是这样的:
addHandler Me.WebBrowser1.Navigating,Addressof webBrowser1_Navigating
Me.WebBrowser1.Navigate("http://www.google.com")
Dim wb As SHDocVw.WebBrowser = TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)
addHandler wb.NavigateComplete2, Addressof wb_NavigateComplete2
End Sub
Private Sub webBrowser1_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
If e.Url.ToString().ToLower().Trim("/"c) = "cmd://onmousedown" Then
e.Cancel = True
End If
End Sub
Private Sub wb_NavigateComplete2(ByVal pDisp As Object, ByRef URL As Object)
Dim doc As mshtml.IHTMLDocument2 = TryCast((TryCast(Me.WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)).Document, mshtml.IHTMLDocument2)
doc.parentWindow.execScript("document.οnmοusedοwn=function(e) { window.location='cmd://onmousedown'}", "javascript")
End Sub
End Class