看见月亮成猩猩，按国际惯例低调散分，见者有份
贴一个技术贴，免得被放逐到水区：
//项目中添加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
周二结贴。
[解决办法]
jf
[解决办法]
DDD
[解决办法]
我先来
[解决办法]
up up up
[解决办法]
刚在另一个帖子里看到，呵呵，恭喜恭喜
[解决办法]
呵呵，兄弟水平比较洼，要同喜估计还得个一周左右
现在还在努力，一边学习，一边摘星星
------解决方案--------------------
jf gx
[解决办法]
升星了,恭喜~~~~
[解决办法]
升星了,恭喜~~~~
[解决办法]
恭喜
[解决办法]
JF
恭喜
[解决办法]
HOHO~~~~~
不错
[解决办法]
，，，，大猩猩
[解决办法]
LZ升得真快。。。恭喜恭喜
[解决办法]
HO~HO~HO
[解决办法]
恭喜恭喜
[解决办法]
厉害厉害！恭贺！
[解决办法]
修成正果了。呵。
[解决办法]
UP
[解决办法]
up
[解决办法]
UP
[解决办法]
恭喜
楼主以前是delphi版的大版把
[解决办法]
up
[解决办法]
学习学习 帮顶帮顶~
[解决办法]
多少分升星星啊，在哪能看到规则，最好给个连接，和和。
[解决办法]
学习
[解决办法]
呵呵 :)
[解决办法]
根据日内瓦公约规定
在此郑重接分
[解决办法]
学习
[解决办法]
无限仰慕中......
[解决办法]
星星~~~~
[解决办法]
继续学习
[解决办法]
jf
[解决办法]
是咩?
[解决办法]
恭喜～
继续努力
[解决办法]
拿分，顶！！
[解决办法]
俺还要等半年也拿个星星
[解决办法]
深夜加班接分！
[解决办法]
加班接分
[解决办法]
接分是个好习惯。
[解决办法]
那就接吧。尽管不是很明白
------解决方案--------------------
第一次接分！
[解决办法]
原来是delphi的牛人。接分。
[解决办法]
mark
[解决办法]
接
[解决办法]
up
[解决办法]
接分
[解决办法]
接分
[解决办法]
没看懂,啥 意思呢?
[解决办法]
星星了，恭喜
[解决办法]
接分
[解决办法]
接的到不？
[解决办法]
路过
[解决办法]
等我有了钱
等我取了小燕
按照国际惯例，我给你买辆宝马
[解决办法]
up~
加8分的话,俺就3个裤衩.恭喜楼主
[解决办法]
出来乍到，看不大懂，但还是顶一下。
[解决办法]
不懂什么意思。。。还是up下
[解决办法]
接分!
[解决办法]
up~
加8分的话,俺就3个裤衩.恭喜楼主
[解决办法]
厉害
[解决办法]
接分
[解决办法]
恭喜
[解决办法]
JF
[解决办法]
up
[解决办法]
jf
[解决办法]
接分。
[解决办法]
抢分
[解决办法]
jf
[解决办法]
要多久到星星
[解决办法]
jf。
[解决办法]
JFF
[解决办法]
jf
[解决办法]
jf
[解决办法]
JF
[解决办法]
楼主素牛银~
[解决办法]
好多人借分啊，我也来
[解决办法]
仰慕
------解决方案--------------------
didiao
[解决办法]
顶...
[解决办法]
我接!
[解决办法]
JF
[解决办法]
楼主Delphi,.net通吃,叫我们这些以后还怎么混啊...
呵呵...
恭喜...
[解决办法]
jf，谢谢
[解决办法]
jf
[解决办法]
很久以前就听说在Delphi区有个马甲都是两星的牛人，
当年在D区混过几天，可惜没见过楼主，
现在楼主能来这里帮我们这些菜鸟，
幸甚、幸甚啊~
[解决办法]
jf
[解决办法]
jf
[解决办法]
jf
[解决办法]
恭喜
[解决办法]
路过
[解决办法]
呵呵
[解决办法]
升星了,恭喜~~~~
[解决办法]
星途漫漫……
[解决办法]
接分
