使用vbs获取雅虎汇率

使用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