set?WshShell?=?WScript.CreateObject("WScript.Shell")?
Set?fso?=?CreateObject("Scripting.FileSystemObject")
Set?ts?=?fso.OpenTextFile("D:\url.txt"?,?1)?'url.txt?放在?D盤
Do?Until?ts.AtEndOfStream
s?=?ts.ReadLine
if?len(s)?>?1?then?'非空行
'msgbox?s
url_tmp?=?Trim(s)?'去兩端空格
'msgbox?url_tmp
date_str?=?get_url(url_tmp)
'msgbox?date_str
export_str?url_tmp?&?"?"?&?date_str?&?chr(13)?&?chr(10)
end?if
loop
ts.Close
set?WshShell?=?nothing
set?fso?=?nothing
set?ts?=?nothing
msgbox?"運行結束!"
Function?get_url(url)
Dim?/1.txt
Set?http?=?CreateObject("Msxml2.ServerXMLHTTP")
http.open?"GET",?url_str,?False
http.send
if?http.status?<>?200?then
get_url?=?"error"'獲取失敗
else
get_url?=?http.responseText
end?if
Set?http?=?nothing
End?Function
Sub?export_str(str_e)
dim?fs,exp_File
set?fs?=?createobject("scripting.filesystemobject")
Set?exp_File?=?fs.opentextfile("d:\url_date.txt",8,true)?'結果也在D盤
exp_File.write?str_e
exp_File.close
set?fs?=?nothing
Set?exp_File?=?nothing
End?Sub