想自动登录税务局的网。每天要操作,现在用户名也可以,密码也可以到方框里,不知验证码是如何取得,及登录按钮如何写,谢谢。Sub 登录()Dim sUser As String
Dim sPwd As StringDim objie1 As ObjectSet objie1 = CreateObject("InternetExplorer.Application")
With objie1
.Visible = False.Navigate "http://www.gdltax.gov.cn/wssw/jsp/login.htm"
Do Until .ReadyState = 4
DoEvents
Loop
sUser = "" '使用者名称
sPwd = "" '使用者密码
.document.all("username").Value = sUser
.document.all("password").Value = sPwd
.document.all("code").Value = .document.all("r1").Value ,这一句不会.
.document.all.onsubmit_check.Click,这一句不会.End WithExit SubEnd Sub