本帖最后由 ArdentMan 于 2011-7-2 21:21 编辑
- 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
复制代码
|