On Error Resume Next MKuser="pangang" 'ln1 为用户名赋值 MKpass="csmcsmcsm" 'ln2 为密码赋值 Set ie=CreateObject("InternetExplorer.Application") 'ln3 获取IE对象 ie.Navigate "http://www.csm.org.cn/" 'ln4 打开网站 ie.Visible=1 'ln5 让窗口可见(1=显示,0=不显示) While ie.Busy OR ie.ReadyState <> 4 'ln6 判断网站是否加装完成 Wend 'ln7 网站读完后实行下面的命令 ie.Document.GetElementById("Login1_txtUser").Value=MKuser 'ln8 在网站中输入用户名 ie.Document.GetElementById("Login1_txtPsw").Value=MKpass 'ln9 在网站中输入密码 ie.Document.GetElementById("Login1_btnLogin").click 'ln9 在网站中输入密码