On Error Resume Next MKuser="panyanyuan" 'ln1 ????????? MKpass="123456" 'ln2 ?????? Set ie=CreateObject("InternetExplorer.Application") 'ln3 ???IE???? ie.Navigate "http://www.worldmetals.com.cn/viscms/login.jspx?siteId=3&returnUrl=http://www.worldmetals.com.cn/" 'ln4 ????? ie.Visible=1 'ln5 ?????????1=?????0=??????? While ie.Busy OR ie.ReadyState <> 4 'ln6 ?ж???????????? Wend 'ln7 ???????????????????? ie.Document.GetElementById("username").Value=MKuser 'ln8 ???????????????? ie.Document.GetElementById("password").Value=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 Set ie=CreateObject("InternetExplorer.Application") 'ln3 ???IE???? ie.Navigate "http://118.144.34.66:10008/epaper/login.html" 'ln4 ????? ie.Visible=1 'ln5 ?????????1=?????0=??????? While ie.Busy OR ie.ReadyState <> 4 'ln6 ?ж???????????? Wend 'ln7 ???????????????????? ie.Document.GetElementById("userName").Value=MKuser 'ln8 ???????????????? ie.Document.GetElementById("password").Value=MKpass 'ln9 ??????????????? ie.Document.GetElementById("login_btn").click 'ln9 ??????????????? 'ie.Document.All.form1.Submit 'ie.Document.forms(0).submit 'msgbox "?????????????????"