Demon

5# Demon
兄弟何必如此较真呢，能解决问题才是关键，你以为呢？
batman 发表于 2011-7-2 22:38

我以为别人问的是“判断网页延迟批处理”。

batman

5# Demon
兄弟何必如此较真呢，能解决问题才是关键，你以为呢？

Demon

vbs本来就可以用批生成，能解决问题就好，万法归宗哈
batman 发表于 2011-7-2 21:51

exe也可以用批处理生成，照这样说的话批处理什么问题不能解决

batman

vbs本来就可以用批生成，能解决问题就好，万法归宗哈

Demon

VBS什么时候变成批处理了

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
复制代码