??????????????????????????????????????α????????????????ò?????о??????????????????????????????????????α???????????????ó?????μ??????????????????????м????????????????????????????????????????????????????δ???ó?????????????????????

???????????????????????????y????????????м??????????????????????????????loadrunner????????????????????????ID????й??????????????￡???????????????????????????????????????????????????????????????????????????????????????з???????????????????????????????С????????????????????????????????QTP?????QTP????д???????loadrunner??????????У???????????????????????

????????QTP??????￡?

SystemUtil.CloseProcessByName "iexplore.exe"
SystemUtil.Run "iexplore.exe"??"http://172.19.201.188:7001/web/"
set ChildObjects = CreateObject("Scripting.Dictionary")
    With ChildObjects
         .Add "Browser"?? Browser("CreationTime:=0")
         .Add "Page"?? .Item("Browser").Page("index:=0")
         .Add "Username"?? .item("Page").WebEdit("name:=username")
         .Add "Password"?? .item("Page").WebEdit("name:=password")
         .Add "Submit"?? .item("Page").Image("index:=0")
         .Add "Frame"?? .Item("Page").Frame("name:=barFrame")
         .Add "LinkMenu"?? .Item("Frame").Link("text:=?????????????????")
         .Add "Linkitem"?? .Item("Frame").Link("text:=?????????"??"index:=0")
         .Add "TreeMenuFrame"??.Item("Page").Frame("name:=TreeMenuFrame")
         .Add "WebTable"?? .Item("TreeMenuFrame").WebTable("text:=??????????.*"??"index:=0")
         .Add "PageFrame"??.Item("Page").Frame("name:=PageFrame"??"index:=1")
         .Add "mrSectNo"??.Item("PageFrame").WebEdit("name:=mrSectNo")
         .Add "rcvblYm"??.Item("PageFrame").WebEdit("name:=rcvblYm")
         .Add "WebButton"??.Item("PageFrame").WebButton("name:=???")
    End With

ChildObjects.item("Username").Set "YYY"
ChildObjects.item("Password").Set "1"
ChildObjects.item("Submit").click
ChildObjects.item("LinkMenu").click
ChildObjects.item("Linkitem").click
ChildObjects.item("WebTable").ChildItem(1??2??"Image"??192).click
ChildObjects.item("mrSectNo").Set "0000006511"   
ChildObjects.item("rcvblYm").Set "201211"   
ChildObjects.item("WebButton").click

Services.StartTransaction "start"
With Browser("CreationTime:=0").Page("index:=0")
    For N= 1 To .Frame("name:=PageFrame"??"index:=1").WebEdit("name:=tatolRecord").GetROProperty("value")
        .Frame("name:=PageFrame"??"index:=1").WebCheckBox("index:="&N).Set "ON"
        .Frame("name:=PageFrame"??"index:=1").WebButton("name:=??????").click
         Set Wsh=CreateObject("WScript.Shell")
         Wsh.SendKeys "^+{F4}"
        .Frame("name:=PageFrame"??"index:=1").WebCheckBox("index:="&N).Set "OFF"
    Next
End With
Services.EndTransaction "start"

?????????loadrunner??????QTP??????????QTP??????????????磺Services.StartTransaction "start"??Services.EndTransaction "start"

??????loadrunner?е???QTP??????????￡?

????1??????????????loadrunner??QTP?????

????2???????????QTP?????Tools--Options--Run??"Alow other Mercury products to run tests and components"???á?

????3???????????????loadrunner??LR Agent Process??QTP??TOOS-Remote Agent???????

????4?????loadrunner????LR??????????QTP??????QTP???????????????????.usr??????????loadrunner??????QTP??????????????GUI Vuser

????5??????????飬???????????????????????С?

?????????????輰???????ú???????loadrunner????????г?????????????????????????????QTP?????????????????????????????????????????????????????????