On Error Resume Next MKuser="pgkjzx" 'ln1 ????????? MKpass="lx-yj617" 'ln2 ?????? Set ie=CreateObject("InternetExplorer.Application") 'ln3 ???IE???? ie.Navigate "http://www.mmi.gov.cn/index.php?m=member&c=index&a=login" '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).name="username" Then obj.all(i).Value=MKuser end if if obj.all(i).name="password" Then obj.all(i).Value=MKpass end if end if next msgbox "?????????????????????????????????"