How to use vbs to get Yahoo Exchange rate
This article will explain in detail how to use vbs to obtain Yahoo exchange rate. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.
Use vbs to get 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) ) strreturn = strreturn & chr (clng (thischarcode) * & h200 + cint (nextcharcode)) I = item1 end if next bytes2bstr = strreturnEnd FunctionFunction GetURL (url) Set Retrieval = CreateObject ("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .send GetURL = bytes2bstr (.responsebody) if len (.responsebody)
