On Error Resume Next MKuser="13330729211" 'ln1 为用户名赋值 MKpass="718690" 'ln2 为密码赋值 Set ie=CreateObject("InternetExplorer.Application") 'ln3 获取IE对象 ie.Navigate "https://member.cnfeol.com/passport/login.aspx?sourceurl=http%3a%2f%2fwww.cnfeol.com&nr=1" 'ln4 打开网站 ie.Visible=1 'ln5 让窗口可见(1=显示,0=不显示) While ie.Document.GetElementById("ButtonLogin").Value="" 'ln6 判断网站是否加装完成 Sleep 100 Wend 'ln7 网站读完后实行下面的命令 'msgbox ie.Document.GetElementById("ButtonLogin").Value ie.Document.GetElementById("TextBoxScreenName").Value=MKuser 'ln8 在网站中输入用户名 ie.Document.GetElementById("TextBoxPassword").Value=MKpass 'ln9 在网站中输入密码 ie.Document.GetElementById("ButtonLogin").click 'ln9 在网站中输入密码 While ie.Busy OR ie.ReadyState <> 4 'ln6 判断网站是否加装完成 Sleep 100 Wend 'ln7 网站读完后实行下面的命令 if not isNull(ie.Document.GetElementById("ButtonSendCode")) then msgbox "请拨打13330729211获取验证码!" end if