QuickTest Professional(QTP)常用使用方法整理.docVIP

模拟键盘操作 WshShell.SendKeys应用 Set WshShell = CreateObject(WScript.Shell) WshShell.SendKeys(DOWN ARROW) WshShell.SendKeys(ENTER) Key Argument BACKSPACE {BACKSPACE}， {BS}， or {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL or DELETE {DELETE} or {DEL} DOWN ARROW {DOWN} END {END} ENTER {ENTER} or ~ ESC {ESC} HELP {HELP} HOME {HOME} INS or INSERT {INSERT} or {INS} LEFT ARROW {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN {PRTSC} RIGHT ARROW {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB} UP ARROW {UP} F1 {F1} F2 {F2} F3 {F3} F4 {F4} F5 {F5} F6 {F6} F7 {F7} F8 {F8} F9 {F9} F10 {F10} F11 {F11} F12 {F12} Extern.keybd_event 模拟键盘 键盘模拟函数，dec为虚拟键盘码 Public Sub keyBoard(dec) Extern.Declare micVoid, keybd_event, user32.dll, keybd_event, micByte,micByte,micDWord,micULong Extern.keybd_event dec,0,0,0 End Sub 调用函数，执行敲击空格键的效果 Call keyBoard(32) 自动截图，并将图片名称按当前系统时间命名 将当前系统时间转换成yyyymmddhhmmss格式 Dim s,t s=now t=replace(s,:,) 去掉“:”号 t=replace(t,-,) 去掉“-”号 t=replace(t, ,) 去掉空格 截取当前屏幕，并按照系统时间保存 desktop.CaptureBitmap D:\QTP测试结果\测试截图\项目明细表t.bmp,true 或者（有DataTable参数存在时） pictureName为 截图要显示的名字，parameterName为DataTable的列名 Public Sub pictureCapture (pictureName,parameterName) Dim a a=year(now)month(now)day(now) Hour(now)minute(now)second(now) Dim perName,dataName row=DataTable.GetCurrentRow获取DataTable当前活动的行 perName=_第row行 If parameterName= Then desktop.CaptureBitmap D:\QTP测试结果\测试截图\pictureNameperNamea.bmp,true else dataName为dataTable中当前单元格中的值 dataName=DataTable.GetSheet(Action1).GetParameter(parameterName).ValueByRow(row) If (instr(dataName,\) or instr(dataName,/) or instr(dataName,:) or instr(dataName,*) or instr(dataName,?) or instr(dataName,) or instr(dataName,) or instr(dataName,|) or instr(dataName,)) Then desktop.CaptureBitmap D:\QTP测试结果\测试截图\pictureNameperName【该特殊字符不能用于文件命名】a.bmp,true else desktop.CaptureBitmap D:\QTP测试结果\测试截图\pictureNameperName【dataName】a.bmp,true End If End If End Sub 使用： Call pictureCaptu