QTP调用WindowsAPI实例集

最新推荐文章于 2017-11-15 21:19:00 发布

原创最新推荐文章于 2017-11-15 21:19:00 发布 · 930 阅读

1 ·

CC 4.0 BY-SA版权

QTP测试工具专栏收录该内容

77 篇文章

订阅专栏

本文介绍如何通过QTP调用Windows API实现自动化操作，包括运行可执行文件、改变窗口标题、读取INI文件及检查光标状态等。这些示例展示了如何利用API进行更高级的自动化任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

例1:运行一个可执行文件文件
Extern.Declare micLong, "WinExec", "kernel32.dll", "WinExec", micString,micLong
Extern.WinExec "d:\1.exe ", 1

例2:Beep
Extern.Declare micLong, "Beep", "kernel32.dll", "Beep", micLong
Extern.Beep 500
'它让我的机器在办公室里狂响不止！（不停的响暂不知如何中止，最好在虚拟机中试）

例3：QTP运行后锁键盘和鼠标。
Extern.Declare micLong, "BlockInput", "user32.dll", "BlockInput", micLong
' Use the following statement to lock keyboard and mouse input at the
Extern.BlockInput 1 ' beginning of the test:
wait(5)
' Use the following statement to unlock keyboard and mouse input at the
Extern.BlockInput 0 ' end of the test:

以下示例使用 Extern.Declare 和 Extern.<已声明的方法> 方法更改记事本窗口的标题。

'声明 FindWindow 方法

Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString

'声明 SetWindowText 方法

Extern.Declare micLong, "SetWindowText", "user32.dll", "SetWindowTextA", micHwnd, micString

'获取记事本窗口的 HWND

hwnd = Extern.FindWindow("Notepad", vbNullString)

if hwnd = 0 then

MsgBox "找不到记事本窗口"

end if

'更改记事本窗口的标题

res = Extern.SetWindowText(hwnd, "hukai")

以下示例使用 GetPrivateProfileString 从外部 INI 文件中检索信息，并将该信息用于测试。注意，如果使用 micByRef 标志，则表示为输出参数。

Extern.Declare micInteger,"GetPrivateProfileStringA", "kernel32.dll","GetPrivateProfileStringA", micString, micString, micString, micString+micByRef, micInteger, micString

Dim key, i, key2

key = String(32, "-")

i = Extern.GetPrivateProfileStringA("WREnv","addons","xxx", key, 32, "wrun.ini")

key2 = Left(key,i)

msgbox key & ";" & key2 & ";" & CStr(i)

以下示例检查光标何时显示为沙漏。

extern.Declare micLong,"GetForegroundWindow","user32.dll","GetForegroundWindow"

extern.Declare micLong,"AttachThreadInput","user32.dll","AttachThreadInput",micLong,

micLong,micLong

extern.Declare micLong,"GetWindowThreadProcessId","user32.dll",

"GetWindowThreadProcessId",micLong,micLong

extern.Declare micLong,"GetCurrentThreadId","kernel32.dll","GetCurrentThreadId"

extern.Declare micLong,"GetCursor","user32.dll","GetCursor"

function get_cursor()

hwnd = extern.GetForegroundWindow()

pid = extern.GetWindowThreadProcessId(hWnd, NULL)

thread_id=extern.GetCurrentThreadId()

extern.AttachThreadInput pid,thread_id,True

get_cursor=extern.GetCursor()

extern.AttachThreadInput pid,thread_id,False

end function

Msgbox get_cursor()

FindWindow函数用于查找窗体
函数原型
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
lpWindowName是要查找窗体的标题，即这里的“无标题 - 记事本”。
如果找到窗体，函数返回该窗体的句柄；如果找不到，函数返回空值或者零。