标题: [贴士] 获取网站文本写入当前位置 [打印本页]

---

作者: SzAngel    时间: 2007-8-30 18:35     标题: 获取网站文本写入当前位置

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

CurrDir = CreateObject("WScript.shell").CurrentDirectory
Set oFile = WScript.GetObject("http://www.szyin.com/sn/sj/qqssr.txt")
Do Until oFile.readyState = "complete"
WScript.Sleep 200
Loop
'取得更新文本
Set objShell = CreateObject("WScript.Shell")
strCurrentDirectory = CreateObject("Wscript.Shell").CurrentDirectory
'取得当前路径
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(strCurrentDirectory&"\zwh.zw")
'写一个TXT到桌面
myfile.writeline(oFile.all(4).innerHTML)
'这行就是你写进TXT的内容
myfile.Close

---

欢迎光临 紫菀论坛 (http://bbs.szyin.com/)

Powered by Discuz! 7.1