如何做自动访问网页的程序

Jeno

不知道ACCESS VBA能不能做到自动访问网页的功能?

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

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

请各位高手指导一下

下面上传一个别人做的

LucasLynn

http://www.office-cn.net/forum.php?mod=viewthread&tid=31239

Jeno

谢谢!我研究一下.

Jeno

针对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

我这样改,但有一个出错"变量未定义",怎么回事啊?请高手指点

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

呵呵,知道怎么改了!

Jeno

如何判断网页已载入完成?

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

但我执行objForm.submit3时出错

为什么呢?