使用vbs获取雅虎汇率

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

使用vbs获取雅虎汇率

1. Function bytes2bstr(vin) 
2. strreturn = "" 
3. for i = 1 to lenb(vin) 
4. thischarcode = ascb(midb(vin,i,1)) 
5. if thischarcode < &h80 then 
6. strreturn = strreturn & chr(thischarcode) 
7. else 
8. nextcharcode = ascb(midb(vin,i+1,1)) 
9. strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) 
10. i = i + 1 
11. end if 
12. next 
13. bytes2bstr = strreturn 
14. End Function 
15. Function GetURL(url) 
16. Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
17. With Retrieval 
18. .Open "GET", url, False 
19. .Send 
20. GetURL = bytes2bstr(.responsebody) 
21. if len(.responsebody)<2 then 
22. strContent = "远程通讯故障！" 
23. Call LogToFile(strContent,1) 
24. response.end 
25. end if 
26. End With 
27. Set Retrieval = Nothing 
28. End Function 
29. '========以上为自定义函数======== 
30.  
31. s1 = INPUTBOX("原始货币代码：","请输入原始货币代码","USD") 
32. s2 = INPUTBOX("目标货币代码：","请输入目标货币代码","CNY") 
33. s = s1&s2 
34. url = "http://download.finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s="&s&"=x" 
35. if s1<>"" and s2<>"" Then 
36. huilv = GetURL(url) 
37. MsgBox huilv 
38. End if