当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 使用vbs获取雅虎汇率

使用vbs获取雅虎汇率

2017年12月01日  | 移动技术网IT编程  | 我要评论

邪魅蛇王惹不得,黑龙法则,湖南卫视7月节目表

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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网