看见月亮成猩猩,按国际惯例低调散分,见者有份,猩猩国际惯例
贴一个技术贴,免得被放逐到水区://项目中添加Micrsoft.mshtml引用
using mshtml;
private void Form1_Load(object sender, EventArgs e)
{
webBrowser1.Navigate("http://www.baidu.com");
}
private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
IHTMLDocument2 vDocument = (IHTMLDocument2)webBrowser1.Document.DomDocument;
IHTMLBodyElement vBody = (IHTMLBodyElement)vDocument.body;
IHTMLTxtRange vTxtRange = (IHTMLTxtRange)vBody.createTextRange();
if (vTxtRange.findText("关于百度", int.MaxValue, 0))
{
vTxtRange.select();
vTxtRange.pasteHTML(
@"<a href=""http://blog.sina.com.cn/zswang"" " +
@"target=""_blank""><b>Zswang</b> 路过</a>");
}
}
//---------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.baidu.com")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim vDocument As mshtml.IHTMLDocument2 = WebBrowser1.Document.DomDocument
Dim vBody As mshtml.IHTMLBodyElement = vDocument.body
Dim vTxtRange As mshtml.IHTMLTxtRange = vBody.createTextRange
If vTxtRange.findText("关于百度") Then
vTxtRange.select()
vTxtRange.pasteHTML("<a href=""http://blog.sina.com.cn/zswang"" target=""_blank""><b>Zswang</b> 路过</a>")
End If
End Sub
周二结贴。
解决方案
现在还在努力,一边学习,一边摘星星 升星了,恭喜~~~~ 恭喜 ,,,,大猩猩 恭喜
楼主以前是delphi版的大版把 呵呵 :) 根据日内瓦公约规定
在此郑重接分 原来是delphi的牛人。接分。 jf DDD 我先来 up up up jf gx 升星了,恭喜~~~~
JF
恭喜 HOHO~~~~~
不错 LZ升得真快。。。恭喜恭喜 HO~HO~HO 恭喜恭喜 厉害厉害!恭贺! 修成正果了。呵。 UP up UP up 学习学习 帮顶帮顶~ 多少分升星星啊,在哪能看到规则,最好给个连接,和和。 学习 学习 无限仰慕中...... 星星~~~~ 继续学习 jf 是咩? 恭喜~
继续努力 拿分,顶!! 俺还要等半年也拿个星星 深夜加班接分! 加班接分 接分是个好习惯。 那就接吧。尽管不是很明白 第一次接分! mark 接 up 接分 接分 猩猩也还是那个猩猩,月亮也还是那个月亮
就知道lxcnn会来这里的,同喜同喜 2001-12-12到2002-09-29之间Delphi版主,那时候还没分大小
用户评论