QTP Tips

QTP Tips

1. 生成随机数的函数

Function makeNUMstring(inputlength)
 If IsNumeric(inputlength) Then
  For I = 1 To inputlength
    'A数组中可放入你想随机产生的任何字符串中的字符
   A = Array("1","2","3","4","5","6","7","8","9")
   Randomize
   x=RandomNumber (0,8)
   B = A(x)
   makeNUMstring =makeNUMstring +B
  Next
 else
  msgbox (inputlength&"不是一个数字！！")
 End If
End Function

 

2. 修改Excel中的数据

set srcData = CreateObject("Excel.Application")
srcData.Visible = true
on error resume next

Set DefalutXls = srcData.Workbooks.Open("C:\Default.xls")
DefalutXls.Worksheets("sheet1").Activate
DefalutXls.Worksheets("sheet2").Cells(3,2).Value = trim(DataTable("Para2", dtLocalSheet))
DefalutXls.Worksheets("sheet2").Cells(3,3).Value = DataTable("Para2", dtLocalSheet)
DefalutXls.Save
srcData.Quit
Set srcData= Nothing

' Cells(x,y)  x: 行，y:列

3. 修改Word文档

Set oWord = CreateObject("Word.Application")
oWord.documents.open "c:\temp.doc",ForWriting, True
Set oDoc = oWord.ActiveDocument
Set oRange = oDoc.content
oRange.insertafter "test"
Set oRange = Nothing
Set oDoc = Nothing
Set oWord = Nothing

4. 关闭所有IE浏览器

SystemUtil.CloseProcessByName("IEXPLORE.EXE")



5. 打开制定URL

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", http://192.168.1.2/



6. 修改readonly的属性以适应自动化测试

Browser("Browser").Page("Page").WebFile("myFile").object.outerhtml = "<INPUT type=file size=50 value=C:\MyFuctions.vbs name=myFile unselectable= "&"off " & ">"       
然后再使用Set方法赋值就可以了

posted on 2007-06-29 14:55  Ernestine 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/Ernestine/archive/2007/06/29/800243.html