发布新日志

  • 利用sendkeys实现对记事本的操作

    2009-11-26 22:34:38

        下面一段代码是利用sendkeys方法实现对记事本输入一段文字,然后保存并关闭的功能。


    Dim WsObj
    Dim path
    path="C:\WINDOWS\system32\notepad.exe"   '将要运行的软件的路径

    Set WsObj=CreateObject("wscript.shell")  '创建一个shell对象
    WsObj.Run path                           '运行软件

    WsObj.AppActivate "无标题 - 记事本"      '将记事本激活
    WScript.Sleep 2000                      
    WsObj.SendKeys"Hello everyone"           '利用sendkeys方法代替键盘输入字符
    WsObj.SendKeys "^s"                      '按下Ctrl+S键

    WsObj.SendKeys "D:\quttyTest.txt"        '将文本保存为 quttyTest.txt
    WsObj.SendKeys "{ENTER}"                 ' 按下Enter键确认保存
    WsObj.SendKeys "%{F4}"                   '按下ALT+F4键将记事本关闭
    Set WsObj=nothing

  • Bug 的商业价值

    2009-11-22 21:10:10

    很多人会觉得测试人员找出的bug越多越好,就我感觉,这不一定。这要看这些bug到底具不具有实用性,到底有没有其商业价值。测试人员找bug是需要时间的,特别是那种隐藏很深或者步骤比较奇特的bug,更是要花上更多的时间,而开发人员修改bug也是要花上一定的时间。如果这些bug产生的步骤在真正的业务逻辑上是根本不会发生的,那么为了修复这种bug而花费的人力资源和时间就都是浪费了,特别是对于那些进度比较赶的项目来说,此类的bug会在一定的程度上拖延了产品的发布时间。所以,并不是找出的bug越多越好,应该是找出具有商业价值的bug越多越好,这样就把测试资源和开发资源都用在道上了,减少了很多不必要的浪费,在一定的程度上加快了产品发布的时间,更早地占有市场。

  • 最浪漫的事 - 谨以此献给一年一度的七夕

    2008-08-07 17:36:47

    背靠着背坐在地毯上
    听听音乐聊聊愿望
    你希望我越来越温柔
    我希望你放我在心上
    你说想送我个浪漫的梦想
    谢谢我带你找到天堂
    哪怕用一辈子才能完成
    只要我讲你就记住不忘
    我能想到最浪漫的事
    就是和你一起慢慢变老
    一路上收藏点点滴滴的欢笑
    留到以后坐着摇椅慢慢聊
    我能想到最浪漫的事
    就是和你一起慢慢变老
    直到我们老的哪儿也去不了
    你还依然把我当成手心里的宝

       

  • QTP中几个截取字符串的函数

    2008-08-07 17:36:47

    QTP中几个截取字符串的函数

     

    Left 函数(Right函数就是从右边开始算起)
    返回指定数目的从字符串的左边算起的字符。Left(string, length)
    参数
    string:字符串表达式,其最左边的字符被返回。如果 string 参数中包含 Null,则返回 Null。
    Length:数值表达式,指明要返回的字符数目。如果是 0,返回零长度字符串 ("");如果大于或等于 string 参数中的字符总数,则返回整个字符串。
    例子:
    Dim MyString, LeftString
    MyString = "VBscrīpt"
    LeftString = Left(MyString, 3) ' LeftString contains "VBS".
    ***********************************
    Mid 函数
    从字符串中返回指定数目的字符。
    Mid(string, start[, length])
    参数:
    string:字符串表达式,从中返回字符。如果 string 包含 Null,则返回 Null。
    Start:string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("")。
    Length:要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到字符串结束的所有字符。
    例子
    Dim MyVar
    MyVar = Mid("VB scrīpt is fun!", 4, 6) ' MyVar contains "scrīpt".
    ********************
    InStr函数(InStrRev函数相反从最后向前起)
    返回指定的字符串在另一字符串中最先出现的位置。
    InStr([start, ]string1, string2[, compare])
    参数:
    start:起始位置,默认从第一位
    string1:主体字符串,从左向右查找。如果string1为 Null,则返回 Null。
    string2:查找的字符串,如果string2为 Null,则返回 Null。找不到就返回0。
    compare:0是二进制比较,1是文本比较。0为缺省值。个人感觉区别就是在大小写。
    例子
    Dim SearchString, SearchChar, MyPos
    SearchString ="XXpXXpXXPXXP"   ' String to search in.
    SearchChar = "P"   ' Search for "P".
    MyPos = Instr(4, SearchString, SearchChar, 1)   ' A textual comparison starting at position 4. Returns 6.
    MyPos = Instr(1, SearchString, SearchChar, 0)   ' A binary comparison starting at position 1. Returns 9.   
    MyPos = Instr(SearchString, SearchChar)   ' Comparison is binary by default (last argument is omitted). Returns 9.
    MyPos = Instr(1, SearchString, "W")   ' A binary comparison starting at position 1. Returns 0 ("W" is not found).
    ******************
    Split 函数
    在指定的 delimiter 参数出现的所有位置断开 String 对象,将其拆分为子字符串,然后以数组形式返回子字符串。
    Split(expression[, delimiter[, count[, compare]]])
    参数
    expression:主体字符串,也就是要被拆分处的字符或字符串。
    delimiter:拆分元素,默认是(" ")
    count:Number [可选] 要放入数组中的项目数。
    compare:0是二进制比较,1是文本比较。0为缺省值。
    例子
    Dim MyString, MyArray, Msg
    MyString = "VBscrīptXisXfun!"
    MyArray = Split(MyString, "x", -1, 1)
    ' MyArray(0) contains "VBscrīpt".
    ' MyArray(1) contains "is".
    ' MyArray(2) contains "fun!".
    Msg = MyArray(0) & " " & MyArray(1)
    Msg = Msg   & " " & MyArray(2)
    MsgBox Msg
Open Toolbar