① 程序自动点击网页按钮,自动填写网页表单。使用VB.NET编程。有哪位VB大侠会。 在线等。
需要引用:Microsoft HTML Object Library
在webbrowser的状态为ready的时候,执行:
'取得要填写的表单名腔旦友迟悉称,并定义为一个html元素变量text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")
'给表单元素text赋值
text.InnerHtml = “张伍槐三”
'找到提交按钮
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")
'执行点击动作
btnSubmit.InvokeMember("click")
② 如何实现VB自动填写网页上需要填写的内容
在VB里面使用Webbrowser
再Webbrowser1.document.
这样用DHTML修改在Webbowser打开的网雹简昌页里面的元素的值(Value)就可以了源扒
有DHTML两个方法是好用的
Webbrowser1.document.getelementsbyname("元素名")'返回元素
Webbrowser1.document.getelementbyid("元素ID"咐雹)'返回元素数组
注:元素名和元素ID可以通过分析页面的代码来得到
比如<INPUT id="这里就是元素ID" name="这里就是元素名">
验证码的取得:
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add WebBrowser1.Document.getelementbyid("验证码元素的ID")
CtrlRange.execCommand ("Copy")
[存放验证码图像的容器].Picture = Clipboard.GetData
③ 如何用vb实现网页表单的自动填充并提交
自动打开网页的BAT:
start
http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main_c.asp
自动填写表单需要用VB或者VBA来写。
用自动键入数字和按钮的方法。
参看下面的贴子:
http://topic.csdn.net/u/20080312/12/4080a95c-87f9-41a6-85d3-72e69e3fd9b1.html
这个不容易做,本来打算用OLE的,但是发觉很难实现。我给你个思路:
1、用VB程序自动打开网页(调用那个BAT就可以了);
2、自动按下数字键1;
3、自动按下ENTER键
④ 如何用vb6.0做个窗体,自动向网页填写表单信息
我以前做过,不过是将网页放在vb窗体里,用伏唤鼠标点击窗体里的键盘输入的。
用一个时钟将焦点,时钟保正厅让持在网页的输入框中举局。看看是否对你有帮助
Private
Sub
Timer2_Timer()
On
Error
Resume
Next
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Or
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Then
If
UCase(CStr(doc.activeElement.Type))
=
"TEXT"
Or
UCase(CStr(doc.activeElement.Type))
=
"PASSWORD"
Then
YOUKB
End
If
End
If
If
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
UCase(CStr(doc.activeElement.Class))
=
"INPUT"
Then
YOUKB
End
If
End
If
Else
NOKB
End
If
End
Sub
⑤ vb程序自动填充功能
PrivateSubList1_Click()
IfList1.ListIndex>=0Then
Text1.Text=List1.List(List1.ListIndex)
EndIf
EndSub'历兄返选项填充到文本框中
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=Asc(vbCrLf)AndText1.Text<>""ThenList1.AddItemText1.Text
EndSub‘文本尘弊框按回车肢饥加到列表中
⑥ 想用VB6.0做个自动输入的软件 例如按1键 在文本文档里输入1234 按2键输入5678 怎么做
关键按键的搜庆KEY值 如果按歼绝下的是1 就输入1234
if 按下氏漏姿的key=1 then
输入
endif
⑦ VB自动填写网页表单的问题
1、新建工程
2、加入控件WebBrowser1和按钮command1
3、在command1的click事件中加入如下代码
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = webBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '看看是不是我们需要的
Select Case vTag.Name
Case "subject" '写标题,不同的网页表单,vTag.name的值不同,要查看网页源码
并根据实际更改。下同。
vTag.Value = "你的文章标题"
End Select
If vTag.Type = "textarea" Then'写发言内容,textarea表示文本区域
Select Case vTag.Name
Case "body"'body是文本区域的name,从网页源码轿裂中查知。
vTag.Value = "你的文章内容"
End Select
If vTag.Type = "submit" And vTag.Value = "发表" Then '找到发表按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提竖坦交了,一切都OK了
End If
End If
End If
End If
Next i
End Sub
在form1的load事件中是如下代码:
Private Sub Form_Load()
WebBrowser1.Navigate "http://goal28.ziqu.com/fcgi-bin/addboard.f...bookname=250006" '软件一启
动就导航到这个地址
End Sub
运行软件,点击command1,即自动填表并提交。
问题是:vb可以自动填写文章标题,并提交。但不能填写文本区域发言内容。估计问题出在这个代码
vTag.Value="你的文章内容"
这句代码应该怎么写,才能让vb自动填写发言内容?或者vTag后面应是什么属性?
请问高手怎么样才能将填写好的内容发表到textarea文本区域中呢
以上代码是不是有误,
我想这里 If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签 有问题还有:
If vTag.Type = "textarea" Then'写发言内容,textarea表示文本区域
Select Case vTag.Name
Case "body"余帆桐'body是文本区域的name,从网页源码中查知。
vTag.Value = "你的文章内容"
End Select
⑧ vb.net webBrowser 自动填写选择列表表单
调芦虚用控件的事件隐拦呢:WebBrowser1.Document.All.commendStatus.Click
先填写,再灶哗胡调用事件
⑨ vb怎样用webbrowser自动填表
这要看你网页的代码的,以第四个为例轮租,网页代码为
<input name="check1" id="text1" value="" type="textbox">
那么vb中要则桐岩在WebBrowser1中输入[email protected]的代码
Private Sub Command1_Click()
WebBrowser1.Document.All("text1").Value = "孙御[email protected]”"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate App.Path & "\1.htm"
End Sub
别的原理也是一样的
⑩ 如何VB.net实现浏览的网页自动填单
让网页自动填写表单操作步骤:
打开浏览器设置,点击打开【枯前野没喊Internet选项】
在Internet选项卡上选择【内容悔陪】,点击自动完成下面的【设置】
在自动完成设置中勾选希望自动完成功能用于哪些方面,勾选前面的复选框即可
点击确定完成