首页 / 编程脚本 / 使用vbs获取雅虎汇率

Function bytes2bstr（vin）strreturn = ""for i = 1 to lenb（vin）thischarcode = ascb（midb（vin,i,1））if thischarcode < &h80 thenstrreturn = strreturn & chr（thischarcode）elsenextcharcode = ascb（midb（vin,i+1,1））strreturn = strreturn & chr（clng（thischarcode） * &h100 + cint（nextcharcode））i = i + 1end ifnextbytes2bstr = strreturnEnd FunctionFunction GetURL（url）Set Retrieval = CreateObject（"Microsoft.XMLHTTP"）With Retrieval.Open "GET", url, False.SendGetURL = bytes2bstr（.responsebody）if len（.responsebody）<2 thenstrContent = "远程通讯故障！"Call LogToFile（strContent,1）response.endend ifEnd WithSet Retrieval = NothingEnd Function"========以上为自定义函数======== s1 = INPUTBOX（"原始货币代码：","请输入原始货币代码","USD"）s2 = INPUTBOX（"目标货币代码：","请输入目标货币代码","CNY"）s = s1&s2url = "http://download.finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s="&s&"=x"if s1<>"" and s2<>"" Thenhuilv = GetURL（url）MsgBox huilvEnd if