Office中国论坛/Access中国论坛

标题: 如何做自动访问网页的程序 [打印本页]

作者: Jeno 时间: 2006-4-27 01:00
标题: 如何做自动访问网页的程序
不知道ACCESS VBA能不能做到自动访问网页的功能?

现在有一个网站jlpt.etest.net.cn.是日语能力考试报名网站

想用ACCESS VBA做一个自动报名机.

请各位高手指导一下

下面上传一个别人做的[attach]17413[/attach]

作者: LucasLynn 时间: 2006-4-27 16:43
http://www.office-cn.net/forum.php?mod=viewthread&tid=31239

作者: Jeno 时间: 2006-4-27 18:53
谢谢!我研究一下.

作者: Jeno 时间: 2006-4-27 19:27
针对http://jlpt.etest.net.cn我应该如何改以下代码?

还在我要点击某个按钮代码应该如何写?

Private Sub Command7_Click()
Set objForm = objWB.Document.Forms(0)
objForm.all("username").Value = IIf(IsNull(UserName.Value), "", useridno.Value)
objForm.all("password").Value = IIf(IsNull(Password.Value), "", Password.Value)
objForm.submit
End Sub

作者: Jeno 时间: 2006-4-27 19:44
我这样改,但有一个出错"变量未定义",怎么回事啊?请高手指点

Option Compare Database
Option Explicit

Dim WithEvents objWB As WebBrowser
Dim WithEvents objForm As MSHTML.HTMLFormElement

Private Sub Command7_Click()
Set objForm = objWB.Document.Forms(0)
objForm.all("username").Value = IIf(IsNull(useridno.Value), "", useridno.Value)
objForm.all("password").Value = IIf(IsNull(userpwd.Value), "", userpwd.Value)
objForm.submit
End Sub

Private Sub Form_Load()
Set objWB = WebBrowser0.Object
objWB.Navigate "http://jlpt.etest.net.cn"
End Sub

作者: Jeno 时间: 2006-4-27 19:51
呵呵,知道怎么改了!

作者: Jeno 时间: 2006-4-27 20:51
如何判断网页已载入完成?

执行objForm.submit后登录成功,进入下一个网页.下一个网页上有一个submit3(按钮)

但我执行objForm.submit3时出错

为什么呢?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)