在自动化测试领域，QuickTest Professional（QTP）是一款广受欢迎的工具，用于功能测试和回归测试。QTP基于Visual Basic Script (VBS)语言，允许用户编写脚本来控制应用程序的行为并进行测试。在这个主题中，我们将深入探讨QTP中自定义的常用函数，特别是与FTP操作和测试报告相关的部分。
FTP（File Transfer Protocol）是网络上用于传输文件的标准协议。在QTP中，我们可能需要自定义函数来执行FTP操作，如上传、下载文件或检查服务器上的文件状态。这通常通过VBS中的Winsock控件或者MSXML组件实现。例如，我们可以创建一个函数`FTPUpload(fileLocal, fileRemote)`，它接受本地文件路径和远程文件路径作为参数，然后使用FTP命令将文件从本地系统传输到FTP服务器。
```vbs
Function FTPUpload(fileLocal, fileRemote)
Dim oFtp
Set oFtp = CreateObject("WScript.Shell")
oFtp.run "ftp -s:" & Quote(FTPScriptPath & "upload.txt")
' 在upload.txt中写入FTP命令，如 "open server", "user username", "pass password", "put " & fileLocal, "quit"
End Function
```
在上述代码中，我们使用了批处理文件`upload.txt`来存储FTP命令，这样可以避免在脚本中直接暴露敏感的用户名和密码信息。
接下来，我们讨论测试报告的自定义函数。在QTP中，虽然提供了内置的测试报告功能，但有时我们需要根据特定需求定制报告格式或内容。这可以通过编写自定义函数来实现，例如`GenerateCustomReport(testName, results)`，该函数接收测试名称和测试结果作为输入，并生成详细的HTML或XML报告。
```vbs
Function GenerateCustomReport(testName, results)
Dim oFSO, reportFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
reportFile = "C:\Reports\" & testName & ".html"
Open reportFile For Output As #1
WriteReportHeader 1, "测试报告"
WriteResultSection 1, "测试结果", results
WriteReportFooter 1
Close #1
End Function
' 写入报告头部
Sub WriteReportHeader(fileNum, title)
Print #fileNum, "<html><head><title>" & title & "</title></head><body>"
End Sub
' 写入结果部分
Sub WriteResultSection(fileNum, header, data)
Print #fileNum, "<h2>" & header & "</h2><ul>"
For Each item In data
Print #fileNum, "<li>" & item & "</li>"
Next
Print #fileNum, "</ul>"
End Sub
' 写入报告尾部
Sub WriteReportFooter(fileNum)
Print #fileNum, "</body></html>"
End Sub
```
以上代码展示了如何使用VBS创建一个简单的HTML测试报告。你可以根据实际需求扩展这个函数，添加更多的统计信息、图表或者错误截图。
总结来说，在QTP中，自定义函数是增强测试脚本灵活性和复用性的重要手段。通过FTP相关的函数，我们可以轻松地管理文件传输任务，而自定义的测试报告函数则帮助我们按照自己的格式展示测试结果。理解并熟练运用这些自定义函数，对于提升测试效率和质量至关重要。在实际工作中，还应结合具体的项目需求，不断优化和完善这些函数，以达到最佳的自动化测试效果。
function_1.rar （1个子文件） 
function_1.mts 7KB
souchy2014-10-23好东西！不过后面还有2个要下载！
