On Error Resume Next MKuser="pgyjy" 'ln1 为用户名赋值 MKpass="pgyjy2018" 'ln2 为密码赋值 Set ie=CreateObject("InternetExplorer.Application") 'ln3 获取IE对象 ie.Navigate "https://d.qianzhan.com" 'ln4 打开网站 ie.Visible=1 'ln5 让窗口可见(1=显示,0=不显示) While ie.Busy OR ie.ReadyState <> 4 'ln6 判断网站是否加装完成 Wend 'ln7 网站读完后实行下面的命令 msgbox "请点击【登录】,手动输入用户名:"+MKuser+";密码:"+MKpass 'ln9 在网站中输入密码 'set obj = ie.document 'for i=0 to obj.all.length-1 'if obj.all(i).tagname="INPUT" Then 'if obj.all(i).type="submit" then obj.all(i).click 'end if 'next 'ie.Document.All.form1.Submit 'ie.Document.forms(0).submit 'msgbox "请点击登录按钮完成登录!"