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实现获取电脑硬件信息的脚本_最新版
- 用VBS控制鼠标的实现代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
- 获取外网IP并发送到指定邮箱的vbs代码[已测]
- vbs 获取当前目录的实现代码
- VBS获取当前目录下所有文件夹名字的代码
- vbs获取当前时间日期的代码
- vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
- vbs中获取脚本当前路径的2个方法
- 通过vbs获取远程host文件并保存到指定目录
- VBScript获取CPU使用率的方法
