自动化测试培训：qtp脚本获取获取汇率数据

poptest(www.poptest.cn)致力于测试开发工程师的培训，以培养能胜任做测试工具开发，完成自动化测试，性能测试，安全性测试等工作能力为目标。自8月份成立2个月内中针对企业在职人员的能力提升连续开设了2个自动化测试班，1个性能测试班，覆盖了阿里巴巴、腾讯、百度、去哪网、滴滴、京东、乐视网、携程网、网易、美团、奇虎360、艺龙网、58同城、搜狐、搜狗、赶集网、聚美优品、唯品会、世纪佳缘、美丽说等共计78家企业公司员工共150名学员。年底公司准备出国玩，呵呵，在这里写个小脚本看看汇率情况~_~!!!!!

Functionbytes2bstr(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 = "sorry！"

            Call LogToFile(strContent,1)

        response.end

        end if

    End With

    Set Retrieval = Nothing

End Function

Xmlhttp是一种浏览器对象， 可用于模拟http的GET和POST请求。qtp可以用该对象开发脚本后，通过和loadrunner整合，进行性能测试。我们在loadrunner和qtp的课程中覆盖如何做端到端的性能测试的内容。

 

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