网页自动填写表单！【基本已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=24149&page=2 中第10楼

源代码可以用火狐查看

此主题相关图片如下：qq截图20130509091016.png

[此贴子已经被作者于2013-5-9 9:10:58编辑过]

以下是引用don在2013-5-8 20:40:00的发言：
有些無法查到源代碼的,單彈出一個登陸窗口,如何自動填寫?

只要是网页都可以查看到源代码,无论以任何方式屏蔽,还是JS拼接,还是请求新框架.都可以看到的.

以下是引用gsnake在2013-5-8 19:57:00的发言：

<FORM name=f action=/s><SPAN class=s_ipt_wr><INPUT class=s_ipt id=kw

maxLength=100 name=wd></SPAN><INPUT type=hidden value=0 name=rsv_bp><INPUT

type=hidden name=ch><INPUT type=hidden value=baidu name=tn><INPUT type=hidden

name=bar><INPUT type=hidden value=3 name=rsv_spt><INPUT type=hidden value=utf-8

name=ie><SPAN class=s_btn_wr><INPUT class=s_btn id=su type=submit value=百度一下></SPAN></FORM><SPAN

class=tools><SPAN id=mHolder>

Dim web As System.Windows.Forms.WebBrowser= e.Form.Controls("WebBrowser1").baseControl

web.Document.GetElementById("kw").SetAttribute("Value", e.Form.Controls("TextBox1").Text)

web.Document.GetElementById("su").InvokeMember("Click")

好了，就是简单了点！还是可以看得，谢谢！！

我直接看看vb.net再研究一下！！不过如果bin老师有时间，最好将WebBrowser的属性，方法，事件介绍一下！

WebBrowser的属性，方法，事件可以到微软ＭＳＤＮ查．微软的东西到ＭＳＤＮ都能查，包括所有系统ＡＰＩ

lin_hailun 的帖子！

文档：http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument.aspx

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.foxtable.com")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

' 自己取数据
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("META")   '根据标签得到数据集合
For Each elem As System.Windows.Forms.HtmlElement In Elems
    Dim NameStr As String = elem.GetAttribute("name")   '得到属性
    If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
        If NameStr.ToLower().Equals("description") Then
            Dim ContentStr As String = elem.GetAttribute("content")
            MessageBox.Show("Document: " & web.Url.ToString() & vbCrLf & "Description: " & ContentStr)
        End If
    End If
Next

很好！！！我试了一个简单的网页，可以！我再试试复杂的网页！完后公布结果

主题：网页自动填写表单！【基本已解决】