我要评论使用vbs获取雅虎汇率
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
function geturl(url)
set retrieval = createobject("microsoft.xmlhttp")
with retrieval
.open "get", url, false
.send
geturl = bytes2bstr(.responsebody)
if len(.responsebody)<2 then
strcontent = "远程通讯故障！"
call logtofile(strcontent,1)
response.end
end if
end with
set retrieval = nothing
end function
'========以上为自定义函数========
s1 = inputbox("原始货币代码：","请输入原始货币代码","usd")
s2 = inputbox("目标货币代码：","请输入目标货币代码","cny")
s = s1&s2
url = "http://download.finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s="&s&"=x"
if s1<>"" and s2<>"" then
huilv = geturl(url)
msgbox huilv
end if
发表评论