Home > Web Front-end > JS Tutorial > Get Yahoo exchange rates using vbs

Get Yahoo exchange rates using vbs

高洛峰
Release: 2017-01-16 09:38:19
Original
1467 people have browsed it

Use vbs to obtain Yahoo exchange rate

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
&#39;========以上为自定义函数========
  
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
Copy after login

For more articles related to using vbs to obtain Yahoo exchange rate, please pay attention to the PHP Chinese website!

Related labels:
Statement of this Website
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
Popular Tutorials
More>
Latest Downloads
More>
Web Effects
Website Source Code
Website Materials
Front End Template