QTP基础代码收集《一》

1、 将 bug 添加到QC
    Dim TDConnection
    Set TDConnection = CreateObject("TDApiOle.TDConnection")
   
    TDConnection.InitConnection "http://yovav/tdbin" ' URL for the DB
    TDConnection.ConnectProject "TD76","bella","pino" ' Valid login information
   
    If TDConnection.Connected Then
    MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName _
    + chr (13) +"Project " + TDConnection.ProjectName )
    Else
    MsgBox("Not Connected")
    End If
   
    'Get the IBugFactory
    Set BugFactory = TDConnection.BugFactory
   
    'Add a new empty bug
    Set Bug = BugFactory.AddItem (Nothing)
   
    'fill the bug with relevant parameters
    Bug.Status = "New"
    Bug.Summary = "Connecting to TD"
    Bug.Priority = "4-Very High" ' depends on the DB
    Bug.AssignedTo = "admin" ' user that must exist in the DB's users list
    Bug.DetectedBy = "admin" ' user that must exist in the DB's users list
   
    'Post the bug to DB ( commit )
    Bug.Post
2、 文件操作函数集:
' Creates a specified file and returns a TextStream object that can be used to read from or write to the file.
    ' Example of usage
    ' Set f = CreateFile("d:\temp\beenhere.txt", True)
    ' f.WriteLine Now
    ' f.Close
    Function CreateFile(sFilename, bOverwrite)
    Set fso = CreateObject("scrīpting.FileSystemObject")
    Set CreateFile = fso.CreateTextFile(sFilename, bOverwrite)
    End Function
   
    ' Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
    ' iomode: 1 - ForReading, 2 - ForWriting, 8 - ForAppending
    ' Example of usage
    ' Set f = OpenFile("d:\temp\beenhere.txt", 2, True)
    ' f.WriteLine Now
    ' f.Close
Function OpenFile(sFilename, iomode, create)
    Set fso = CreateObject("scrīpting.FileSystemObject")
    Set ōpenFile = fso.OpenTextFile(sFilename, iomode, create)
    End Function
   
    ' Appends a line to a file
    ' Example of usage
    ' AppendToFile "d:\temp\beenhere.txt", Now
    Function AppendToFile(sFilename, sLine)
    Const ForAppending = 8
    If sFilename = "" Then
    sFilename = Environment("SystemTempDir") & "\QTDebug.txt"
    End If
    Set f = OpenFile(sFilename, ForAppending, True)
    f.WriteLine sLine
    f.Close
    End Function
   
    ' Writes a line to a file.
    ' Destroys the current content of the file!
    ' Example of usage
    ' WriteToFile "d:\temp\beenhere.txt", Now
    Function WriteToFile(sFilename, sLine)
    Const ForWriting = 2
    If sFilename = "" Then
    sFilename = Environment("SystemTempDir") & "\QTDebug.txt"
    End If
    Set f = OpenFile(sFilename, ForWriting, True)
    f.WriteLine sLine
    f.Close
    End Function
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值