本帖最后由 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 SubCOPY |
| 
发表于 2011-7-2 19:40
| 
发表于 2011-7-2 23:07
| 