這篇文章將為大家詳細(xì)講解有關(guān)如何使用vbs獲取雅虎匯率，小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

10年積累的成都做網(wǎng)站、成都網(wǎng)站建設(shè)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶(hù)對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶(hù)得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站制作后付款的網(wǎng)站建設(shè)流程，更有金壇免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

使用vbs獲取雅虎匯率

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

關(guān)于“如何使用vbs獲取雅虎匯率”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。

當(dāng)前標(biāo)題：如何使用vbs獲取雅虎匯率-創(chuàng)新互聯(lián)
網(wǎng)頁(yè)網(wǎng)址：http://www.weahome.cn/article/ecido.html