使用vbs获取雅虎汇率
作者:WeekendLife
时间:2026-06-28
来源:互联网
浏览:0
通过VBS脚本调用YahooFinance接口获取实时汇率,包含bytes2bstr和GetURL两个核心函数。运行时用户只需依次输入原始与目标货币代码,即可自动抓取实时汇率并以消息框展示结果,无需任何额外依赖,非常适合Windows环境下的快速汇率查询。
通过VBS脚本调用Yahoo Finance接口来获取实时汇率,是一种轻量且实用的做法。下面这段代码包含了两个核心函数:bytes2bstr负责将远程返回的字节流正确处理成可读字符串,GetURL则负责发起GET请求并返回数据。运行后,会依次弹出两个输入框——先输入原始货币代码(例如USD),再输入目标货币代码(例如CNY),程序便会自动拼接URL并抓取对应的汇率,最后以消息框的形式展示结果。整个过程无需额外依赖,非常适合在Windows环境下快速查询汇率。

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
作者最新文章
华强北手机全线涨价:涨幅400-1500元,存储成本推高售价
2026-09-08 19:22
PDF转XML操作步骤与在线工具使用指南
2026-09-03 10:06
如何把多个PPT转成PDF?批量转换PDF的方法有哪些?
2026-09-02 19:32
CorelDRAW 2021图片虚化与边缘处理教程
2026-09-02 15:44
软件教程怎么学更高效:从功能认知到真实任务练习
2026-09-02 11:43
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多
Windows 10
Windows
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式
Windows/macOS/Linux
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















