利用QTP批量执行同样的操作

要处理的页面如下:


ip=1
For channel=508 to 600 step 1
Browser("Welcome").Page("Welcome").Frame("top").Link("增加").Click
Browser("Welcome").Page("Welcome").Frame("main").WebEdit("Name").Set channel
Browser("Welcome").Page("Welcome").Frame("main").WebEdit("StartTime").Set "0000"
Browser("Welcome").Page("Welcome").Frame("main").WebEdit("EndTime").Set "2359"
Browser("Welcome").Page("Welcome").Frame("main").WebEdit("CallSign").Set channel
Browser("Welcome").Page("Welcome").Frame("main_3").WebCheckBox("rate2M").Set "ON"
ipTmp = "224.222.1." & ip
Browser("Welcome").Page("Welcome").Frame("main_3").WebEdit("DestIP1").Set ipTmp
Browser("Welcome").Page("Welcome").Frame("main_3").WebEdit("DestPort1").Set "6000"
Browser("Welcome").Page("Welcome").Frame("main_3").WebButton("确认").Click
Browser("Welcome").Page("Welcome").Frame("main").WebEdit("Name").Set channel
    wait(1)
    ip = ip + 1
Next