| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265596
建立时间:2005年6月6日 |
| |
|
 [delpih编程]控制网页的FORMS行为
软件技术
吕向阳 发表于 2009/3/12 13:16:51 |
| 控制网页的FORMS行为Private Sub Command2_Click()With WebBrowser1.Document.Forms(0).c2.Checked = 1.r1(1).Checked = 1End WithEnd Sub
Private Sub Command2_Click()With WebBrowser1.Document.Forms(0).d1.Options(1).Selected = 1End WithEnd Sub
web.Document.getElementsByName("D1").Item(0).selectedIndex = 1
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝比如一个网页里有如上代码我想选择原创webbrowser中怎么写
Private Sub Command1_Click()WebBrowser1.Navigate "c:\ggg.html"End Sub
Private Sub Command2_Click()Dim x
For Each x In WebBrowser1.Document.All("notecome")If x.Value = "c" Thenx.Checked = TrueEnd IfNextEnd Sub
============================================================================================假设你的HTML代码如下：
ggggg
VB代码如下：Private Sub Command1_Click()WebBrowser1.Navigate "http://www.applevb.com/script_test.html"End Sub
Private Sub Command2_Click()Dim a, bDim d As IHTMLDocument2
For Each a In WebBrowser1.Document.AllDebug.Print a.tagNameIf (a.tagName = "SCRIPT") Then
End IfIf (a.tagName = "A") ThenIf a.Id = "xxx" Thena.FireEvent ("onclick")End IfEnd IfNext
点击Command1浏览这个网页，点击Command2运行其中的脚本abcd。
|
|
|