|
5#
楼主 |
发表于 2006-4-27 19:44:00
|
只看该作者
我这样改,但有一个出错"变量未定义",怎么回事啊?请高手指点
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
|
|