Question

想通过VBS获取指定网页中的文本，例如时间、天气等元素。

例如获取http://open.baidu.com/special/time/网页中的北京时间，用msgbox输出

Answer 1

URL = "https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/special/time"
set ie = CreateObject("InternetExplorer.Application")
ie.Navigate URL
ie.Refresh
while ie.Busy OR ie.ReadyState <> 4
wend
msgbox "北京时间:" & ie.document.getElementById("time").innerHTML
ie.Quit
将上面的代码保存成【.VBS】结尾的文件，若有空白行，删除空白行，然后双击运行就可以了。

Answer 2

Const ForReading = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("help")
Set tf = fso.OpenTextFile("a.txt",1)
Do while tf.AtEndOfStream = false

fso.CopyFile Trim(Split(tf.readline,"：")(1)) , ".\help\"
loop
tf.close

追问

这是什么意思，和我问的没关系吧~