'##################################################################################
'################################################################################## Sub CloseWeb() ' Dim WinIe,Ie,i,m Set WinIe=descrīption.Create() WinIe("regexpwndtitle").value=" Microsoft Internet Explorer" Set Ie=desktop.ChildObjects(WinIe) m=Ie.count For i=1 to m Next End Sub '################################################################################## function TestVbs(format) end function '################################################################# '################################################################# '往文件里面写内容 '第一个参数 文件的路径 '第二个参数:写入的内容 '第三个参数:写入的格式("Appending/Writing") ' See also "FileSystemObject" Sub Write2File(FilePath,content,style) End Sub '################################################################# '################################################################# '################################################################# ' 连接 ' 第一个参数:根据数据库的类型,设计连接字符串(参见udl文件) ' 第二个参数:连接数据库之后,进行查询的相应语句 ' 第三个参数:查询记录返回到res Sub OpenDB(conn,sql,res) End Sub '################################################################# '################################################################# '################################################################# ' 关闭数据库的连接 sub CloseDB end sub '################################################################# 2. 菜单:Test-->Setting-->Resource 在“Associated Library Files” 添加入该文件 这里建议可以使用 相对路径,如..\TestVbs.vbs 3. 用“Run from steps”运行模式(专家视图 右键,第四个菜单项,脚本从光标处运行) 在QTP 中添加测试代码: CloseWeb() stop ' 调用外部函数 Write2File Write2File "c:\File.txt","Writhing a Line","Writing" Write2File "c:\File.txt","Appending a Line","Appending" Write2File "c:\File.txt","Appending a Line","Appending!" Write2File ".\vbs\File.txt","Appending a Line","Appending" stop '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' 设置连接数据库所需要的初始值,包括: ' conn :数据库连接字符串 ' sql:查询的SQL语句 ' res:查询的返回记录 Dim conn,sql,res c sql="select * from Orders" Set res=nothing ' 调用外部子程序 OpenDB 进行连接数据库 ' 调用外部子程序 CloseDB关闭数据库 |
QTP 经常要用到的程序和函数
最新推荐文章于 2021-11-30 00:21:31 发布