這篇文章主要介紹了使用vbs獲取雅虎匯率的相關(guān)代碼及思路,需要的朋友可以參考下

使用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 = "遠(yuǎn)程通訊故障！" 
23. Call LogToFile(strContent,1) 
24. response.end 
25. end if 
26. End With 
27. Set Retrieval = Nothing 
28. End Function 
29. '========以上為自定義函數(shù)======== 
30.  
31. s1 = INPUTBOX("原始貨幣代碼：","請(qǐng)輸入原始貨幣代碼","USD") 
32. s2 = INPUTBOX("目標(biāo)貨幣代碼：","請(qǐng)輸入目標(biāo)貨幣代碼","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