使用vbs获取雅虎汇率

日期:2016/5/5 17:16:00 来源:本网整理 阅读:34
s">

使用vbs获取雅虎汇率

投稿:hebedich 字体:[增加 减小] 类型:转载 时间:2015-09-13 我要评论

这篇文章主要介绍了使用vbs获取雅虎汇率的相关代码及思路,需要的朋友可以参考下
dy("art_up")
">

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

  • 本文相关:
  • 使用vbs删除host文件域址内容
  • VBS中解决带空格路径的三种方法
  • VBS实现查询服务的制造商
  • VBS实现截图功能
  • VBS中Run和Exec的区别
  • VBS获取GZIP压缩的HTTP内容的实现代码
  • VBS实现将当前时间转换成UTC时间
  • VBS显示当前标准时间
  • VBScript中On Error语句用法小结
  • VBScript获取CPU使用率的方法
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2015 www.zgxue.com All Rights Reserved