使用vbs獲取雅虎匯率
更新時(shí)間:2015年09月13日 16:38:36 投稿:hebedich
這篇文章主要介紹了使用vbs獲取雅虎匯率的相關(guān)代碼及思路,需要的朋友可以參考下
使用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) * &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 = "遠(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
您可能感興趣的文章:
- 用vbs實(shí)現(xiàn)獲取電腦硬件信息的腳本_最新版
- 用VBS控制鼠標(biāo)的實(shí)現(xiàn)代碼(獲取鼠標(biāo)坐標(biāo)、鼠標(biāo)移動(dòng)、鼠標(biāo)單擊、鼠標(biāo)雙擊、鼠標(biāo)右擊)
- 獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測(cè)]
- vbs 獲取當(dāng)前目錄的實(shí)現(xiàn)代碼
- VBS獲取當(dāng)前目錄下所有文件夾名字的代碼
- vbs獲取當(dāng)前時(shí)間日期的代碼
- vbscript獲取文件的創(chuàng)建時(shí)間、最后修改時(shí)間和最后訪問(wèn)時(shí)間的方法
- vbs中獲取腳本當(dāng)前路徑的2個(gè)方法
- 通過(guò)vbs獲取遠(yuǎn)程host文件并保存到指定目錄
- VBScript獲取CPU使用率的方法
相關(guān)文章
vbs實(shí)現(xiàn)只復(fù)制比目標(biāo)文件更新的文件
有時(shí)候我們需要時(shí)候備份一些文件,只有當(dāng)這個(gè)文件被修改了并且不是空的時(shí)候才復(fù)制2014-04-04IE瀏覽器增加“復(fù)制圖像地址”的右鍵菜單的vbs代碼
在網(wǎng)絡(luò)上共享照片,常需要復(fù)制上傳到某站點(diǎn)的照片的鏈接地址,部分瀏覽器提供了比較快捷的右鍵菜單來(lái)復(fù)制該地址,如Maxthon、Firefox等2008-12-12VBS教程:函數(shù)-IsObject 函數(shù)
VBS教程:函數(shù)-IsObject 函數(shù)...2006-11-11改進(jìn)后的mkw3site.vbs(創(chuàng)建虛擬目錄)
改進(jìn)后的mkw3site.vbs(創(chuàng)建虛擬目錄)...2007-03-03