返回列表 发帖
ArdentMan

Rank: 5Rank: 5

帖子
288 
积分
924 
技术
70  
捐助
0  
注册时间
2011-7-1 
1楼 跳转到 »
发表于 2011-7-2 21:13 | 显示全部帖子
本帖最后由 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
一路飘过的鸟~~~

TOP

返回列表