url = "http://yu2n.sinaapp.com"  ' 要采集的网址
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
  ' Configure the IE window
  .RegisterAsDropTarget = False
  .statusbar = False : .toolbar  = False : .menubar   = False : .addressbar = False
  .Resizable = False : .Visible = True : .Navigate(URL)
  Do While .Busy Or .ReadyState <> 4 : WScript.Sleep 200 : Loop  ' 等待完全载入
  .width = 600     : .height = 400   ' 宽度与高度
  .left = .document.parentWindow.screen.width \ 2 - 300  ' 居中显示
  .top  = .document.parentWindow.screen.height\ 2 - 200

  ' Test for IE 7 - cannot remove 'chrome' in that version
  nVersion  = CSng(replace(split(_
          .document.parentWindow.navigator.appVersion, " ")(3)_
          , ";", ""))
  if nVersion < 7.0 Then .FullScreen = True

  ' Create the body document
  With .document
  
    .getElementById("corpVccId").focus() 
    .getElementById("corpVccId").value = "123456"
	
    .getElementById("user_name").focus() 
    .getElementById("user_name").value = "yu2n"
	
    .getElementById("password").focus() 
    .getElementById("password").value = "yu2n"
	
    .getElementById("cin_verifyCode").focus()
    .getElementById("cin_verifyCode").value = InputBox("请输入验证码：", WScript.ScriptName, "yu2n")
	
    .getElementById("corpVccId").disabled = True
    .getElementById("user_name").disabled = True
    .getElementById("password").disabled = True
    .getElementById("cin_verifyCode").disabled = True
    
    WScript.Sleep 1000
    
	REM 登陆按钮1
    REM .getElementById("Button").focus() 
    REM .getElementById("Button").click()
	
    REM 登陆按钮2
    REM .getElementsBytagname("form1").submit
    REM .forms(0).submit
    
    Do While objIE.Busy Or objIE.ReadyState <> 4 : WScript.Sleep 200 : Loop  ' 等待完全载入
    .getElementById("Button").disabled = True
    sHtml = .body.innerHTML  ' 将结果赋值给变量 str，以HTML格式返回数据
    
  End With
  
  WScript.Sleep 1000

  .Visible = False
  .quit
End With
复制代码