vba 如何访问操作网页求答

柠檬　发表于：2010-09-10 11:11:35 　

每日浏览于此，一日发现一贴,可自动登入网站,赞叹之美妙,随即想到学习之,为我所用,苦干数日,搜索网络,毫无进展,可惜儿童幼稚,才疏学浅,无能为力,徘徊于求救还是自救之间。自救--走不通；求救--碍于一老头自己种茶业于南山中、炒茶叶于北山下、煮茶于茅屋中、完了，我这白面书生白喝其茶实在有不学无术,游手好闲，只知喝茶，不知种茶之嫌。沉思良久，发现一观点，老者多寂寞，晚辈多闲谈即可，喝杯茶不必想太多！

一窗体内置打开网页，自动登入，自动点击我要发帖--- 源码--- 标题和内容赋值----提交类似发帖机只不过我这是私人用途绝不商用！

点击下载此附件

Top

柠檬发表于：2010-09-15 15:34:03

问题解决

代码如下

Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag As Object
Dim i As Integer
Set vDoc = WebBrowser0.Document
Dim nr As String
Dim ti As String

If Not (pDisp Is WebBrowser0.Object) Then Exit Sub
Set vDoc = WebBrowser0.Document
vDoc.all("subject").Value = Date & "超强签到" '主题名
vDoc.all("checkbox").Click '只须加这一句就成功了
vDoc.all("e_textarea").Value = "以下同机器人发言抢贴，请管理员删除，搞定!!" '正文内容
vDoc.all("postsubmit").Click '发送

Top

小魏发表于：2010-09-15 19:21:49

即然都解决了,那就分享一下啊

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

vba 如何访问操作网页 求答

vba 如何访问操作网页求答