ArdentMan

Dim Web, Arr, Str, Ok
Web = "www.sina.com,www.baidu.com,www.sohu.com"
Arr = Split(Web, ",")
For Each Str In Arr
  If Ok = vbNullString Then GetWeb Str
Next

Sub GetWeb(Url)
  Dim IE
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Navigate "http://" & Url
  IE.Visible = True
  WScript.Sleep 5000
  If IE.ReadyState <> 4 Then 
    IE.Quit
    Set IE = Nothing
    Else
    Ok = "ok"
  End If
End Sub
复制代码