|
 
- 帖子
- 1046
- 积分
- 1547
- 技术
- 112
- 捐助
- 0
- 注册时间
- 2010-4-30
|
s1 = "Set objFSO = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
"Set objTextStream = objFSO.OpenTextFile(""D:\ok.txt"", 8, True)" & vbCrLf & vbCrLf & _
"Set objIE = CreateObject(""InternetExplorer.Application"")" & vbCrLf & _
"objIE.Navigate ""d:\下载\index.htm""" & vbCrLf & _
"Do" & vbCrLf & _
" Wscript.Sleep 200" & vbCrLf & _
"Loop While objIE.Busy Or objIE.ReadyState <> 4" & vbCrLf & vbCrLf |
|
发表于 2014-1-1 09:21
|