帮忙解释一段代码。多谢！

帮忙解释一段代码。谢谢！！
Sub test()
With CreateObject("InternetExplorer.Application")
  .Visible = True
  .navigate "http://www.sephora.cn/?rsour=baidu&rmeth=brandzone&rterm=title&rcamp=title&_sv_code=36_1938477_134848278|{creative}|{domain}"
  DoEvents
  While .busy
  DoEvents
  Wend
  With .Document
  .GetElementById("username").Value = "hyangyang0613"
  .GetElementById("password").Value = "hyy379509"
  .GetElementById("loginsubmit").Click
  End With
End With
End Sub


[解决办法]

VB code

Sub test()With CreateObject("InternetExplorer.Application") '创建IE对象  .Visible = True                           '可见  .navigate "http://www.sephora.cn/?rsour=baidu&rmeth=brandzone&rterm=title&rcamp=title&_sv_code=36_1938477_134848278|{creative}|{domain}"                        '浏览这个网页       DoEvents                                  '执行这个事件  While .busy                                '反复执行  DoEvents  Wend  With .Document  .GetElementById("username").Value = "hyangyang0613"   '给用户名的文本框的值赋值  .GetElementById("password").Value = "hyy379509"       '密码  .GetElementById("loginsubmit").Click                  '点击登陆按钮  End WithEnd WithEnd Sub