模板
教程
環境
性能
功能
管理
軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >
在軟件測試過程中有關QTP中的DeviceReplay對象的使用的介紹
DeviceReplay對象可用于在 軟件測試 工具 QTP 中直接操縱鼠標和鍵盤，例如單擊鼠標、發送鍵盤按鍵、輸入字符串等動作。 下面的腳本首先創建DeviceReplay對象，然后使用其SendString方法發送一段字符串，然后使用MouseMove方法移動鼠標，使用MouseClick方法單
DeviceReplay對象可用于在軟件測試工具QTP中直接操縱鼠標和鍵盤，例如單擊鼠標、發送鍵盤按鍵、輸入字符串等動作。
下面的腳本首先創建DeviceReplay對象，然后使用其SendString方法發送一段字符串，然后使用MouseMove方法移動鼠標，使用MouseClick方法單擊鼠標：
Dim devicereplay
word = \"Hello World!\"
Set devicereplay = CreateObject(\"Mercury.DeviceReplay\")
devicereplay.SendString(word)
devicereplay.MouseMove 200,200
devicereplay.MouseClick 200,200,LEFT_MOUSE_BUTTON
而下面的腳本將按下“SHIFT”鍵：
Dim devicereplay
VK_SHIFT = 42
Set devicereplay = CreateObject(\"Mercury.DeviceReplay\")
devicereplay.KeyDown(VK_SHIFT)
原文轉自：http://www.anti-gravitydesign.com
