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

自动化测试培训：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