QTP调用系统user32.dll —— FindWindow

上一篇 / 下一篇 2007-01-10 13:02:37 / 个人分类：测试技术

查看( 1306 ) / 评论( 0 ) / 评分( 0 / 0 )

用QTP调用自己写的DLL失败，不顺利。

现在来调用 Windows 自带的，代码如下：

Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString//声明 FindWindow 方法

Extern.Declare micLong, "SetWindowText", "user32.dll", "SetWindowTextA", micHwnd, MicString'声明 SetWindowText 方法

P)S [;yX8dSH%y0hwnd = Extern.FindWindow( "notepad","无标题 - 记事本")'获取记事本窗口的 HWND

if hwnd = 0 then51Testing软件测试网5@kh9r?

MsgBox "找不到指定窗口"51Testing软件测试网v BPl[0Dh4V

else51Testing软件测试网 V+^e&T`p

.C5@$Qrq%N0msgbox hwnd

6M6s1nLF }0res = Extern.SetWindowText(hwnd, "Set Title") '在此也可看出SetWindowText的用法了 '更改记事本窗口的标题

lm!~h:IJn;q#F NW0end if

FindWindow函数用于查找窗体
函数原型
HWND FindWindow(
5G hK.y3WR'T sa@_:C0LPCTSTR lpClassName,// pointer to class name
LPCTSTR lpWindowName// pointer to window name
)vB:c8a[i"[0);
0g?.x2r%BR0lpWindowName是要查找窗体的标题，即这里的“无标题 - 记事本”。
i$l~%H,W+P7iZ)v0如果找到窗体，函数返回该窗体的句柄；如果找不到，函数返回空值或者零。51Testing软件测试网Q;zd~9]k8g
51Testing软件测试网h6Lp iFn