QTP tips(2)

　　特定字符的零次或多次匹配 ( * )

　　特定字符的一次或多次匹配 ( + )

　　特定字符的零次或一次匹配 ( ? )

　　对正则表达式进行分组 ( ( ) )

　　匹配几个正则表达式中的一个表达式 ( | )

　　在一行的开始进行匹配 ( ^ )

　　在一行的结尾进行匹配 ( $ )

　　匹配包括下划线在内的任一字母数字字符 ( \w )

　　匹配任意非字母数字字符 ( \W )

　　11、如何判断Excel进程是否存在?

　　如何判断Excel进程是否存在?如果存在则关闭Excel进程。

　　SystemUtil.CloseProcessByName "excel.exe"

　　On error resume next

　　Dim Obj

　　Set Obj = GetObject(,"Excel.Application")

　　If Not Obj Is Nothing Then

　　Obj.Quit

　　Set Obj = Nothing

　　End If

　　或者：

　　' To kill excel application

　　CreateObject("WScript.Shell").Run "taskkill /f /im excel.exe"

　　'To check if excel is running use this function

　　msgbox "Excel is Running:" & FindProcess("EXCEL.EXE")

　　Function FindProcess(ByVal ProcessName)

　　FindProcess= False

　　Set Shell = CreateObject("WScript.Shell")

　　Set ShellResult = Shell.Exec("TaskList")

　　While Not ShellResult.StdOut.AtEndOfStream

　　If Instr(UCASE(ShellResult.StdOut.ReadLine),UCASE(ProcessName)) Then

　　FindProcess = True

　　Exit Function

　　End If

　　Wend

　　End Function

　　12、如何在浏览器对象的指定位置按右键?

　　hwnd = Browser("Browser").GetROProperty("hwnd")

　　window("hwnd:=" & hwnd).Click 12,6,micRightBtn

原文转自：http://www.ltesting.net