前辈贴的不需要tsr文件的QTP手写脚本

Call login(“http://10.10.14.101:30020/NASApp/iTreasury-settlement/IndexTest.jsp?istroy=isoftstone)

Function login(URL)

                   '关闭所有的IE窗口，避免出现问题

                   SystemUtil.CloseProcessByName "iexplore.exe"

                   '打开IE，进入站点

                   SystemUtil.Run "iexplore.exe"

                   Set browsDesc = description.create()

                   Set pageDesc = description.create()

                   Set curPage = Browser(browsDesc).Page(pageDesc)

                   curPage.Sync

                   Browser(browsDesc).Navigate URL

                   curPage.Sync

 
                   '输入用户名，登陆系统
    

curPage.WebEdit("name:=loginno").Set "用户名"

                curPage.WebEdit("name:=password").Set "密码"

       curPage.WebEdit("name:=loginno").Set DataTable("用户名",Sheet_Name)

      curPage.WebEdit("name:=password").Set DataTable("密码",Sheet_Name)

                   curPage.WebButton("name:=登 陆").Click
end function

以上脚本是前辈帮忙的，可是我还是不是很懂。不过，相信，不用tsr文件，一样可以手写QTP脚本了