51Testing软件测试论坛

标题: 告别QTP板块，临走吐点心血送给大家（知识是共享和堆积的，不是卖钱的，完全免费） [打印本页]

作者: yuandjing 时间: 2008-1-28 11:49
标题: 告别QTP板块，临走吐点心血送给大家（知识是共享和堆积的，不是卖钱的，完全免费）
我07年的帖子，现在还有那么多网友支持真是激动不已，现在我又回来做QTP了，也积累了更多更新的经验工作总结 - 请上E测中国站点我的博客，我在那边的用户名为wally，愿与大家一起学习进步！

大家好，由于换了新的工作环境，这里不再使用QTP了，所以我可能几年不上QTP这个板块了
临走吐点vbs脚本[attach]38775[/attach]出来送给大家，大家可以加到qtp的resource里去，就可以直接调用了，也欢迎大家以后加函数进去
（外部链接milo.jiang兄的数据库操作：http://bbs.51testing.com/viewthread.php?tid=118028&highlight=）
另外申明一下：
1.有部分函数改写了风过无息的blog的函数
2.有部分函数多余了，比如对于日期处理的函数vb本来就有自己的函数，大家可以用vb的函数
3.但是有部分vbs的函数不太好，被我改写了，比如vb的随机函数，发现使用起来相当不随机，我改写了这个函数，现在随机多了
4.附件的rar文件里有个excel的文件，包含了多这些函数的输入参数和输出参数的定义

希望大家多多交流，扩充这个底层脚本。也可以联系我提意见
这个板块成就了如今的我，所以我把我的这些脚本贡献出来，希望能让更多的人受益 Sharing will get in more
谢谢各位

（共42个函数，这里举隅一二，详细请见rar附件）
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''上海(保密一下)软件有限公司  开发部''''''''''''''''''''''''''''''''''''
'''''函数功能：Quick 和 Robot 常用库函数'''''''''''''''''''''''''''''
'''''说明：1.以QTP_开头的函数只适用于QuickTest'''''''''''''''''''''''
'''''    2.以Robot_开头的函数只适用于Robot'''''''''''''''''''''''''
'''''    3.除以上外，QuickTest和Robot都适用''''''''''''''''''''''''
'''''作者：俞戴龙''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''开始编撰日期：2007-8-17'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''
'''测试用调用函数'''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''以下为QuickTest和Robot都适用函数''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'随机函数生成
'输入值：生成值范围 i～j
'返回值：随机数
Public Function Get_RandNum(fromNum,toNum)
      If (fromNum<0) Or (toNum<0) Then
            MsgBox "只接受大于零的输入"
      ElseIf fromNum>toNum then
            MsgBox "起始值必须小于结束值"
      Else
            Dim RunTime
            Randomize
            RunTime = Int((10 * Rnd) + 1)
            Dim MyValue,i
            For i = 1 To RunTime
                     Randomize
                     MyValue = Int(((toNum - fromNum + 1) * Rnd) + (fromNum))
            Next
         Get_randNum=MyValue
      End If
End Function

'去掉字符串中的重复项
Function NoRepeat(Inp,Sp)
Dim aa,flag,words,length,i,j,k,sp1,sp2,cc
      aa = Inp
      Do
            flag = False
            words = Split(aa,Sp)
            length = UBound(words)
            For i = 0 To (length -1)
                     sp1 = words(i)
                     For j = (i+1) To length
                              sp2 = words(j)
                              If sp1 = sp2 Then
                                    flag = True
                                    aa = ""
                                    For k = 0 To (j-1)
                                             aa = aa & words(k) & sp
                                    Next
                                    For k = (j + 1) To length
                                             aa = aa & words(k) & sp
                                    Next

                                    cc = Len(aa)
                                    aa = Left(aa,(cc - 1))
                              End If
                     Next
                     If flag = True Then
                              Exit For
                     End if
            Next
      Loop Until flag = false
      NoRepeat = aa
End Function

'按ASCII码值冒泡排序
Function BubbleSort(VString,Spl,Func)
      Dim Str,StrLength,i,j
      Str = Split(VString,Spl)
      StrLength = UBound(Str) + 1
      For i = 1 To (StrLength-1)
            For j = (i+1) To StrLength
                     If Func = 1 then
                              If Asc(Str(i-1)) < Asc(Str(j-1)) Then
                                    Call Swap(Str(i-1),Str(j-1))
                              End If
                     Else
                              If Asc(Str(i-1)) > Asc(Str(j-1)) Then
                                    Call Swap(Str(i-1),Str(j-1))
                              End If
                     End If
            Next
      Next
      j = ""
      For i = 1 To StrLength
            j = j & Str(i-1) & Spl
      Next
      j = Left(j,(StrLength * 2 -1))
      BubbleSort = j
End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''以下为仅QuickTest适用函数'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'让QTP运行时保持最小化
Public Sub QTP_Small()
      Dim objQTPWin
      Set objQTPWin = GetObject("" , "QuickTest.Application")
      objQTPWin.WindowState = "Minimized"
      Set objQTPWin = Nothing
End Sub

'恢复QTP窗口
Public Sub QTP_Big()
      Dim objQTPWin
      Set objQTPWin = GetObject("" , "QuickTest.Application")
      objQTPWin.WindowState = "Restored"
      Set objQTPWin = Nothing
End Sub

'定时停留弹出框函数
Sub QTP_Msgbox(Value,waitTime,Title)
      Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup Value, waitTime, Title
Set WshShell = nothing
End Sub

'改变Excel的单元格颜色
Public Function QTP_Change_Color(pathway,sheetname,x,y,color)
      Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
      set srcData = CreateObject("Excel.Application")
      srcData.Visible = True
      set srcDoc = srcData.Workbooks.Open(pathway)
      srcDoc.Worksheets(sheetname).Activate
      If color = "red" Then
            srcDoc.Worksheets(sheetname).Cells(x,y).Interior.color=vbred
      ElseIf color = "green" Then
            srcDoc.Worksheets(sheetname).Cells(x,y).Interior.color=vbgreen
      Else
            MsgBox "输入的颜色参数不正确，只接收""red""和""green"""
      End If

      Dim WshShell
      Set WshShell=CreateObject("Wscript.Shell")
      WshShell.SendKeys "^s"
      wait(1)

      srcData.Workbooks.Close
      Set srcDoc = nothing
      Window("text:=Microsoft Excel").Close
End Function

'写Excel文件元素并保存退出
Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
      Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
      set srcData = CreateObject("Excel.Application")
      srcData.Visible = True
      set srcDoc = srcData.Workbooks.Open(pathway)
      srcDoc.Worksheets(sheetname).Activate
      srcDoc.Worksheets(sheetname).Cells(x,y).value = content

      Dim WshShell
      Set WshShell=CreateObject("Wscript.Shell")
      WshShell.SendKeys "^s"
      wait(1)

      srcData.Workbooks.Close
      Set srcDoc = nothing

      Window("text:=Microsoft Excel").Close
End Function

[ 本帖最后由 yuandjing 于 2009-11-5 18:03 编辑 ]

作者: yuandjing 时间: 2008-1-28 11:52
本帖最后由 yuandjing 于 2011-10-17 11:15 编辑

发现在这个网页上显示的不怎么规整，大家可以用这个板块的一个工具“vbsedt33”来查看和编辑脚本
从来没坐过沙发，今天顺便享受一下先

欢迎关注我的新浪微博：http://weibo.com/quicktest

作者: 51mobile 时间: 2008-1-28 12:50

非常不错，

作者: lantianwei 时间: 2008-1-28 13:43
感谢LZ的无私奉献!

作者: nestanesta 时间: 2008-1-28 14:01
经典的东西，顶你

作者: ppent 时间: 2008-1-28 14:40
谢谢以后常回家看看

作者: threeg 时间: 2008-1-28 15:21
标题: 顶
LZ好人啊，

作者: frankwangzy1103 时间: 2008-1-28 15:22
谢谢，论坛就需要多一点你这样的人

作者: wzdoxu 时间: 2008-1-28 15:28
谢谢楼主分享这么好的东东！

作者: yuandjing 时间: 2008-1-28 15:37

原帖由 frankwangzy1103 于 2008-1-28 15:22 发表
谢谢，论坛就需要多一点你这样的人

呵呵，多些夸奖，常看国外的论坛发现国内的人老喜欢吧自己的心包起来，这就像手帕包BT一样，最终只能越包越小
分享很重要，分享的越多学习到的也越多
一个苹果换一个苹果，每个人只有一个苹果
一份知识换一份知识，每个人将有两份知识
加油，同志们，51testing是个测试人才汇集的地方，我们国家的软件行业不能落后！

作者: waiverson 时间: 2008-1-28 16:04
非常感谢~ 搂主的一手资料相信能让更多人对QTP的实际应用更上一层楼

作者: 今天有雾 时间: 2008-1-28 16:49
感谢楼主，希望楼主还是能经常回来看看好了

作者: xiaoyaoke 时间: 2008-1-28 16:54
楼主的资料真的很不多，希望楼主可以在新的领域一帆风顺，然后和大家分享经验
感谢楼主的无私奉献

作者: yanzs0120 时间: 2008-1-28 17:17
真是谢谢啦。正在学习中~~~~~~~~~~

作者: jxt 时间: 2008-1-29 11:53
谢谢!

作者: you力 时间: 2008-1-29 11:58
这样的好贴越来越少了

作者: thloong 时间: 2008-1-29 12:16
这样的好人真是不多,LZ常回来看看啊

作者: coomon2001 时间: 2008-1-29 12:29
多谢楼主，受益匪浅啊

作者: wuyu702 时间: 2008-1-29 14:15
谢谢楼主无私奉献..hoho

作者: language_fw 时间: 2008-1-29 14:18
多谢楼主，虽然我关注QTP的时间不是太长，但是你的第一手资料确实让我受益匪浅。祝你在以后工作的道路上越走越顺。

作者: cyrusmm 时间: 2008-1-29 14:53
谢谢楼主啊！
真的是好东西！

作者: zycdele 时间: 2008-1-29 15:25
谢谢！学习中

作者: lvxdoo 时间: 2008-1-29 17:16
要顶的，很不错，谢谢lz

作者: zgp_roby 时间: 2008-1-29 17:34
类似的函数库也写了很多。LZ奉献的先收下了，哪一天正好调用，就节约俺们的工夫了。
同LS，LSS....对LZ表示感谢！

作者: lf0026 时间: 2008-1-29 18:03
楼主啊啥话都不说了以后记得回来瞄瞄就好
祝福你

作者: mickey-311 时间: 2008-1-29 18:12
一个苹果换一个苹果，每个人只有一个苹果
一份知识换一份知识，每个人将有两份知识

不错，非常感谢搂主，希望大家在这里可以更好的分享测试精华，谢谢！

作者: tdj602 时间: 2008-1-29 19:42
标题: 谢谢
谢谢以后常回家看看,

作者: zhan_gqian 时间: 2008-1-29 23:47
LZ的无私值得我们所有人学习！
希望能在这里看到越来越多测试的知识和精华，让我们团结一致，为测试事业贡献自己的力量！

作者: eightants 时间: 2008-1-30 04:11
Thanks a lot!

作者: BenjaminCheung 时间: 2008-1-30 14:00
谢谢楼主。51测试网请你当版主真好。

作者: karolin 时间: 2008-1-30 23:52
真心感谢楼主1

作者: fyf1871 时间: 2008-1-31 09:52
支持开源~~支持免费！！！

作者: kanebluba 时间: 2008-1-31 10:10
Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")

            toNum = InputBox("输入结束数")
               step = InputBox("输入间隔")


            If (fromNum < 0 Or toNum < 0) Then
            MsgBox ("不能小于0")
            sign = 1
            Else

               temp1 = toNum - fromNum
               If (temp1 < 0) Then
               MsgBox ("起始数小于结束数")
               sign = 1
               Else
               If (temp1 <= 10) Then

                  Randomize
                  MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
            Print MyValue
                     sign = 1
                  Else




                  If (temp1 >= 10) Then


               temp = (toNum - fromNum) / step - 1
               End If
               End If
               End If
            End If


               For i = 1 To temp
      Randomize
      MyValue = Int(step * Rnd) + fromNum
            fromNum = fromNum + 8
               Print MyValue

            Next i

               '补最后一次
               If (sign = 0) Then
            Randomize
      MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
      Print MyValue

            End If

End Sub

是LZ的同学,看到他写了,帮他再完善一下吧,这个是随机函数的另一个版本.
它可以做到根据你想要随机的范围和密度进行调节,有兴趣的人可以自己试试.

作者: sunqiang1024 时间: 2008-1-31 10:11
谢谢楼主的无私奉献啊，楼主的帖子给使用QTP的同僚一个莫大的帮助啊，向你致敬！

作者: yuandjing 时间: 2008-1-31 10:40

原帖由 kanebluba 于 2008-1-31 10:10 发表
Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")
...

呵呵，小朱来了我顶你一下
估计你以前是用标准VB或者VBA的吧，QTP用VBS的，所以代码调不通，我改了一下，但是没测试过你的代码，不知道功能是不是实现，以下你的代码可以调的通：

'Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")

            toNum = InputBox("输入结束数")
               step = InputBox("输入间隔")


            If (fromNum < 0 Or toNum < 0) Then
            MsgBox ("不能小于0")
            sign = 1
            Else

               temp1 = toNum - fromNum
               If (temp1 < 0) Then
               MsgBox ("起始数小于结束数")
               sign = 1
               Else
               If (temp1 <= 10) Then

                  Randomize
                  MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
            Print MyValue
                     sign = 1
                  Else




                  If (temp1 >= 10) Then


               temp = (toNum - fromNum) / step - 1
               End If
               End If
               End If
            End If


               For i = 1 To temp
      Randomize
      MyValue = Int(step * Rnd) + fromNum
            fromNum = fromNum + 8
               Print MyValue

            Next

               '补最后一次
               If (sign = 0) Then
            Randomize
      MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
      Print MyValue

            End If

End Sub

另外这样的话会更好：
1.定义变量最好在函数体里面的
2.代码要保持队形(锯齿形结构)
3.多余的空行最好删除，代码要容易阅读，可以参考一下林锐的《高质量C++编程》，我还是很推崇的，是关于代码规范的书，加油

[ 本帖最后由 yuandjing 于 2008-2-1 12:15 编辑 ]

作者: shiyi1022 时间: 2008-1-31 10:49
51最需要的就是这样的人才

作者: mystufo 时间: 2008-1-31 11:37
多谢楼主能无私的奉献

作者: hehemeimei 时间: 2008-1-31 14:09
Thank you Yuanding , 我现在也不用QTP了，收藏了，学习以下。

作者: kanebluba 时间: 2008-1-31 14:41
LZ你没测试过?我是测试过放出来的,基本没什么问题.
大家有新的想法也可以贴出来的

作者: daneil2007 时间: 2008-1-31 15:19
楼主走好

谢谢了

作者: 雨加雪 时间: 2008-1-31 16:02
谢谢学习了

作者: edwardguo 时间: 2008-1-31 22:08
唯有不断创造和分享，知识才能不断积累。谢谢楼主的贡献，以后也要自己做点东西共享出来呀，哈哈！！
看到有的是操作EXCEL文件的，这个还没有尝试过，以后准备要去试试－－－>

[ 本帖最后由 edwardguo 于 2008-1-31 22:10 编辑 ]

作者: fish_yy 时间: 2008-1-31 22:30
真的挺好，支持一下！

作者: kanebluba 时间: 2008-1-31 23:20
这是我重新编写LZ的去重复字段的代码,可能我不是用VBS的缘故,我直接用VB编译器的,不过应该做相应的小改动就可以了.
有两种方式,先介绍第一种,这种是用户指定重复字段
Private Sub Form_Activate()

Dim i As Integer
Dim str As String
Dim s As String
Dim sign As Integer
Dim ArrayStr() As String, n As Integer, repeat As String

'str 为原始字符串，之后为修改后的字符串
'repeat为指定的需要去除的重复字符串
'ArrayStr为字符串数组为中间变量

str = InputBox("请输入初始字符串")
repeat = InputBox("请输入想要去掉的重复的字符或字符串")
ArrayStr = Split(str, repeat)

For i = 0 To UBound(ArrayStr)
Next i

str = ArrayStr(0) + repeat
For i = 1 To UBound(ArrayStr)
str = str + ArrayStr(i)
'str为最终处理后的字符串
Next i
Print str

End Sub

作者: kanebluba 时间: 2008-1-31 23:21
以下是第二种自动检测重复字符的
Private Sub Form_Activate()

Dim str As String
Dim s As String
Dim ArrayStr() As String, n As Integer, repeat As String, length As Integer, tempstr As String

'此程序是带自检重复字段的程序，但自检的只能是单个字符，重复字符段检查可以再此程序上再完善，有兴趣的朋友可以自己试试
'str 为原始字符串，之后为修改后的字符串
'repeat为指定的需要去除的重复字符串
'ArrayStr为字符串数组为中间变量
'tempstr 是中间字符串变量

str = InputBox("请输入初始字符串")
tempstr = str
length = Len(str)

For n = 1 To length

repeat = Left(tempstr, 1)
tempstr = Right(tempstr, length - n) '返回字符串右边总长减n个字符

ArrayStr = Split(str, repeat)

str = ArrayStr(0) + repeat
For i = 1 To UBound(ArrayStr)
str = str + ArrayStr(i)
Next i

Next n

Print str

End Sub

作者: bingdu520 时间: 2008-2-1 11:16
标题: 支持楼主！！！！
支持楼主！！！！

有这种境界才能又好的发展前途啊！

作者: apoi 时间: 2008-2-1 11:33
无私的人!好人

作者: testkant 时间: 2008-2-1 13:41
谢LZ咯！祝工作顺利！！

作者: 5555 时间: 2008-2-2 18:32
感谢~

作者: vickywong 时间: 2008-2-4 15:53
汗颜啦，正在学习中，还不会用，下了还不懂怎么用，

希望结识一些，懂了的，或者正在懂的，学习的，或是打算学习的朋友，共同学习互帮互助啊。

我的QQ：290425670

作者: kanebluba 时间: 2008-2-5 11:54
不要只是拿来主义阿，有什么新的想法贴一贴阿，比方说再优化一下什么的

作者: wq0909 时间: 2008-2-5 17:33
先挂个单，他日用时再看

作者: kanebluba 时间: 2008-2-7 16:16
LZ的ASC2 码是冒泡排序，下面这段是选择排序法，感兴趣的可以自己看看。
Private Sub Form_Activate()
Dim str As String, n As Integer, arrayStr() As String, lenth As Integer, fStr As String, compareStr As String, j As Integer, exChange As Integer
str = InputBox("请输入想要排序的字符串")

lenth = Len(str)

For n = 1 To lenth - 1
fStr = fStr + Left(str, 1) + ","
str = Right(str, lenth - n)

Next n
fStr = fStr + Right(str, 1)

arrayStr = Split(fStr, ",")

For n = 0 To UBound(arrayStr)
compareStr = arrayStr(n)
For j = n To UBound(arrayStr)
   If (Asc(arrayStr(j)) < Asc(compareStr)) Then
                     exChange = j
                  compareStr = arrayStr(j)
                     arrayStr(exChange) = arrayStr(n)
                     arrayStr(n) = compareStr
   End If
   Next j


   Next n

   For n = 0 To UBound(arrayStr)
   Print arrayStr(n)
   Next n

End Sub

作者: Frankwang 时间: 2008-2-10 11:03
标题: 现在才开始学QTP
我是个初学者，很高兴能在这里认识你哦，虽然我不知道你说的是什么东西，但是我知道这是你呕心之作！
别的不说了，顶下先！

作者: 1qazse4 时间: 2008-2-11 12:11
多谢楼主奉献,祝新年快乐,心想事成!

作者: ivon1020 时间: 2008-2-13 14:38
学习中，感谢LZ 的分享！

作者: heqingbluesky 时间: 2008-2-14 15:19
LZ要常回家看看。

作者: WillTerner2 时间: 2008-2-15 15:32
聚沙成塔,集腋成裘,感谢LZ

作者: Lola1123 时间: 2008-2-18 11:15
标题: 收藏收藏
谢谢LZ

作者: denisye 时间: 2008-2-18 11:42
谢谢分享，呵呵

作者: leilei222 时间: 2008-2-19 15:31
谢谢楼主无私奉献

作者: vivianlemon 时间: 2008-2-19 17:16

作者: qicyt1812 时间: 2008-2-20 11:05

作者: atao 时间: 2008-2-20 14:53
多谢分享~

作者: 小雨不停 时间: 2008-2-20 16:57
谢谢楼主无私奉献的精神

作者: walker1020 时间: 2008-2-28 23:13
不错的资料，值得学习！

作者: feidifd 时间: 2008-3-4 11:48
多谢楼主

作者: vickiren 时间: 2008-3-11 11:29
标题: 回复 1# 的帖子

发展的越来越好

作者: ljh 时间: 2008-3-13 01:19
Thanks!

作者: xinyu2119 时间: 2008-3-21 09:47
很不错~~支持一下！！

作者: momang 时间: 2008-3-21 10:31
感谢LZ 无私。。。

作者: sweetone 时间: 2008-3-22 10:44
太感谢了.太有用了..

作者: cxm027 时间: 2008-3-25 15:05
谢谢LZ！

作者: whshen 时间: 2008-3-30 10:41

非常不错,多谢!

作者: yuco 时间: 2008-3-31 10:27
谢谢哈，刚开始学习使用QTP，还不知道怎么用，留下研究先

作者: 今天有雾 时间: 2008-3-31 10:56
感谢楼主的经验分享呀

作者: yuqingannie 时间: 2008-4-10 12:44
标题: 宝贝啊!
好久没来了, 一来就抓到宝贝了!谢谢!

作者: gggwavj 时间: 2008-4-17 15:03
楼主真是好心人

作者: wwlih 时间: 2008-5-13 16:01
非常感谢，

作者: hpsun 时间: 2008-6-13 10:21
没得说，好虾一只罗

作者: czh84063149 时间: 2008-6-16 15:17
还没认真看过，不过还是感谢LZ

作者: iori 时间: 2008-6-16 15:35
顶

作者: hzieezyf 时间: 2008-6-19 11:05
多谢lz无私奉献

作者: leetitan 时间: 2008-6-26 15:48
感谢LZ的无私奉献

作者: luckxiaot 时间: 2008-6-26 17:03
顶，非常感谢

作者: luckxiaot 时间: 2008-6-26 17:05
顶，非常感谢

作者: suiyingliunian 时间: 2008-6-27 16:46
感谢分享！

作者: 小露宝 时间: 2008-6-28 14:58
感谢你的分享

作者: flashdna 时间: 2008-7-2 09:54
标题: 非常感谢
学习中&

作者: ym_wei 时间: 2008-7-2 15:41
谢谢

作者: 落叶寒蝉 时间: 2008-7-8 09:50
f现在发现以前根本对QTP就是一窍不通

作者: centurystone 时间: 2008-7-11 15:57
评你爱心大使了

作者: centurystone 时间: 2008-7-11 17:02
东东很不错，再来顶一下

作者: wslf 时间: 2008-8-26 17:31

这么好的东东，一定有用，感谢你的无私奉献！

作者: babyfeir 时间: 2008-8-28 11:34

感谢楼主的无私奉献，向你学习

作者: Helen_px 时间: 2008-8-28 15:55
最近要研究QTP，要深入了解还学要不断学习

作者: mine_03 时间: 2008-9-5 14:08
工作的地方不用qtp自己自学好没动力，5555，还是菜鸟的菜鸟。现在才来下lz的资料，都已经是半年多前的事了。。。。。

作者: jenney 时间: 2008-9-12 16:55
真正的好人，无私的奉献。非常感谢！！

作者: lijunhu 时间: 2008-9-16 13:23
LZ太好了，谢谢啊。

作者: xiaoan_2131 时间: 2008-9-16 16:58
感谢LZ无私奉献～

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)