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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网页自动填写表单！【基本已解决】

共有6923人关注过本帖树形打印复制链接主题：网页自动填写表单！【基本已解决】

gsnake

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

网页自动填写表单！【基本已解决】 发帖心情

Post By：2013/5/8 16:25:00 [显示全部帖子]

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg

像这样的表单，我们的FOXTABLE能自动填写吗？

假设我有100个用户，每点一下鼠标自动填写一个！然后提交

[此贴子已经被作者于2013-5-16 11:20:04编辑过]

gsnake

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

Post By：2013/5/8 17:01:00 [显示全部帖子]

好像狐表没法做到，要用到vb.net ,且需调用外部程序。

那位高手来个例子，如果大家都忙，来电思路！

gsnake

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

Post By：2013/5/8 17:20:00 [显示全部帖子]

vb.net中也有webbrowser控件，且可以采用htmldocument，来处理网页的表单问题！狐爸既然是继承了VB.NET2003 或VB2005。

为什么不直接用vb2010来编译 foxtable 或集成。

既然用VB 做平台，用C1做表格控件。也许应该开放更广泛的接口！让更多需要的人依附foxtable的易用性开发出更广阔的前景

gsnake

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

Post By：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的属性，方法，事件介绍一下！

gsnake

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00

Post By：2013/5/9 9:43:00 [显示全部帖子]

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

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

下一主题 >> << 上一主题

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