VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 9227|回复: 4

[求助] 用vb自动填写并提交网页表单请高和赐教

[复制链接]
 楼主| 发表于 2006-7-22 14:33:00 | 显示全部楼层 |阅读模式
用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

请高和帮忙解决这一问题谢谢了~~~~~~~~~~~~~~
发表于 2006-7-22 16:22:25 | 显示全部楼层
你确定TextArea的文字属性是Value而不是Text吗?
不过你的代码太死板了,不能应付千变万化的Html语言。
回复 支持 反对

使用道具 举报

发表于 2006-9-10 14:52:34 | 显示全部楼层
可有高手愿意提供一个用vb.net写好的,自动填写网页表格的例子?
回复 支持 反对

使用道具 举报

发表于 2006-9-11 19:55:59 | 显示全部楼层
WebBrowser1.Document.getElementById("co").Value = text1.text
co 是TextArea名字,TEXT1.text 是写发言内容
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-5-24 17:56

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表