如何用vb实现网页表单的自动填充并提交

如题所述

举报该文章

相关建议 2014-06-19

如果你电脑的的默认输入语言如果是五笔的话，下面的代码能实现运行后，打开hao123.com网页，并在百度一下的输入栏中写上“幸福一生”四个字。供你参考吧！ Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Dim ie Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate " http://www.hao123.com/" Set WshShell = CreateObject("wscript.shell") Sleep 500 WshShell.SendKeys "fupy" Sleep 500 WshShell.SendKeys "ggtg" Sleep 500 WshShell.SendKeys " " End Sub vb实现网页表单的自动填充并提交这个真的好难，本人水平有限只能做到这点了，如有不足请指出，也希望我们大家共同来探讨！

温馨提示：内容为网友见解，仅供参考

当前网址：https://aolonic.com/aa/ank5dwd451wg4dw33aw.html

其他看法

第1个回答 2018-08-05

搜网页表单批量自动填写助手。

试试这款即可。

第2个回答 2014-06-19

这个因网页HTML代码而定如登陆126邮箱 Private Sub Form_Load() WebBrowser1.Navigate " www.126.com " End Sub Private Sub Command1_Click() Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 aa = UCase(vDoc.All(i).tagName) If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then Select Case vTag.Name Case "user" vTag.Value = "帐号" Case "password" vTag.Value = "密码" End Select ElseIf vTag.Type = "submit" Then vTag.Click End If End If Next i End Sub

如何用vb自动填写,选择下拉框选项并提交网页表单
使用webbrowser控件打开当前网页，然后 set vdoc=webbrowser1.document vdoc.all.你的id.value="你要的内容“ 使用这样的格式就可以自动填上你的网页了

如何用vb实现网页表单的自动填充并提交
如果你电脑的的默认输入语言如果是五笔的话，下面的代码能实现运行后，打开hao123.com网页，并在百度一下的输入栏中写上“幸福一生”四个字。供你参考吧！ Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Dim ie Set ie = CreateObject("interne...

VB编写程序问题?怎么填写网页中的表单
首先要用 webbrowser控件,打开 www.baidu.com,然后根据源文件查找到框子的名字的ID,比如百度这个框是: ,那么id就是 kw,然后在VB 里使用 webbrowser1.Document.getElementById("kw").Value=text1.text 然后再触发那个　百度一下，代码是：webbrowser1.Document.getElementById("su").Click 因为那个...

VB做一个可以用Excel内容批量提交到网页表单提交一份后再回到填写网页的...
Private Sub FILL_ListView()Connect ListView1.ListItems.Clear Dim n, m, ct As Integer Dim sql As String sql = "select * from ygb order by bh"rs.Open sql, cn ct = rs.Fields.Count - 1 If rs.BOF = False Then rs.MoveFirst m = 1 While rs.EOF = False ListView1.ListIt...

用vb如何实现在搜索框中自动输入内容并点击查找按钮?
1、如果你是用webbrowser控件，假设控件name为wb：wb.document.all.q.value="输入内容" '或者 wb.document.getelementbyid("q").value="输入内容" '或者 wb.form1.q.value="输入内容" 'form1为表单的namewb.form1.submit()2、使用ie对象：set wb=createobjet("internetexplorer.application")...

vb.net 网页提交表单
发送页面：用get传值如点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）在接受页面：用Request.QueryString["canshu"].toString（）；这样就接受到textbox里的值了。然后根据这个值到数据库里查询就行了。

vb关于后台操作webbrowser,模拟键盘填写表单的问题(需要按方向键和tab...
其他表单元素可以用上述类似的方法逐一赋值。最后，找到submit按钮执行click方法即可提交表单了。如果submit按钮有id或name就最好办了，比如表单上的submit按钮是这样的：那么VB中可以这样：WebBrowser1.document.getElementById("submit1").Click 如果没有id或name就稍微复杂一些：Dim objs As Object, obj...

如何用VB让页面在提交表单后检查表单是否填完,填完了再跳转页面_百度知 ...
st_phone=request.form("phone")st_qq=request.form("qq")if st_store="" or st_name="" or st_add="" or st_phone="" or st_qq="" then response.write "" & chr(13) & "alert('请您填完所有信息！")');" & "history.back()" & ""Response.End else response.Redirect "...

用VB的WebBrowser 来自动填表
我的VB6不知道怎么WebBrowser不能用,我用.NET写了下测试没问题,你自己改成VB6代码吧 Dim Html As Windows.Forms.HtmlDocument Dim Tag As Windows.Forms.HtmlElement Dim I As Integer Html = WebBrowser1.Document For I = 0 To Html.All.Count - 1 Tag = Html.All(I)If Tag.TagName = "...

程序自动点击网页按钮,自动填写网页表单。使用VB.NET编程。有哪位VB大 ...
'取得要填写的表单名称，并定义为一个html元素变量text Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")'给表单元素text赋值 text.InnerHtml = “张三”'找到提交按钮 Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")'执行点击动作...

相似回答

大家正在搜