以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮忙提取网页控件事件执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65644)
--  作者：a87918021
--  发布时间：2015/3/19 19:06:00
--  帮忙提取网页控件事件执行
提取这个网址：http://css.suzhouterminals.com/xianghuoxinxi.jsp?currentPage=1
执行确定事件  参数---提单号：YX1506NWZTC007 
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol    \'把触发该事件的Sender转换为WebBrowser
web.Document.GetElementById("确 定").InvokeMember("click") 
--  作者：有点甜
--  发布时间：2015/3/19 19:27:00
--  

Dim ls As Object = web.Document.getElementsByTagName("input")
For Each l As object In ls
    If l.GetAttribute("value") = "确 定" Then

        l.InvokeMember("click") 
        Exit For
    End If
Next