On Error Resume Next MKuser="13330729211" 'ln1 ????????? MKpass="pgyjyCBC" 'ln2 ?????? Set ie=CreateObject("InternetExplorer.Application") 'ln3 ???IE???? ie.Navigate "http://vip.cbcie.com/loginnew.aspx" 'ln4 ????? ie.Visible=1 'ln5 ?????????1=?????0=??????? While ie.Busy OR ie.ReadyState <> 4 'ln6 ????????????? Sleep 100 Wend 'ln7 ???????????????????? ie.Document.GetElementById("txtloginname").Value=MKuser 'ln8 ???????????????? ie.Document.GetElementById("txtloginpass").Value=MKpass 'ln9 ??????????????? 'ie.Document.GetElementById("loginbutton").click 'ln9 ??????????????? msgbox "?????????????"