QTP调用WindowsAPI实例集

例1:运行一个可执行文件 文件
[-p[2t{.S`4g1CZ0Extern.Declare micLong, "WinExec", "kernel32.dll", "WinExec", micString,micLong51Testing软件测试网'L,c,q [QP
Extern.WinExec "d:\1.exe ", 1

例2:Beep51Testing软件测试网#r M|Q'E
Extern.Declare micLong, "Beep", "kernel32.dll", "Beep", micLong  
1Bj w7gl-o:g0Extern.Beep 50051Testing软件测试网vE w:as7C;x
'它让我的机器在办公室里狂响不止！（不停的响暂不知如何中止，最好在虚拟机中试）51Testing软件测试网 ] @5e"Qt1cl7} ~h

 51Testing软件测试网h1J"U{'I%TqA

例3：QTP运行后锁键盘和鼠标。
r.N*|8?.l sCN!t/|0Extern.Declare micLong, "BlockInput", "user32.dll", "BlockInput", micLong 51Testing软件测试网_ t+R6W6i*A%t2U0r
' Use the following statement to lock keyboard and mouse input at the
-~6kKbJP9EG0Extern.BlockInput 1' beginning of the test:
$W \L1B.@/SA3}'c0wait(5)
QQ6h7S#GbK Y0A0' Use the following statement to unlock keyboard and mouse input at the51Testing软件测试网 fY.i;b wi
Extern.BlockInput 0 ' end of the test:51Testing软件测试网
|g!tB F8Z1s

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

'声明FindWindow方法51Testing软件测试网0B aB%Q*k:e%A v%t~7Q

Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString51Testing软件测试网y-Sdd t1Rl

'声明SetWindowText方法51Testing软件测试网,P!}f8~E K

Extern.Declare micLong, "SetWindowText", "user32.dll", "SetWindowTextA", micHwnd, micString51Testing软件测试网fKg/k Ws.A:hS.[9b

'获取记事本窗口的HWND51Testing软件测试网#M$u'|/f+JME

hwnd= Extern.FindWindow("Notepad", vbNullString)51Testing软件测试网QXHz|'f1A6@J

ifhwnd = 0 then51Testing软件测试网:F'?/{t#n/d3a

MsgBox "找不到记事本窗口"

endif

'更改记事本窗口的标题

res= Extern.SetWindowText(hwnd, "hukai")51Testing软件测试网r.P/_Tu6Tvs

 51Testing软件测试网H0h(S%dO V

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

Extern.Declare micInteger,"GetPrivateProfileStringA", "kernel32.dll","GetPrivateProfileStringA", micString, micString, micString, micString+micByRef, micInteger, micString51Testing软件测试网W,TP!?1`3S/YS%f

Dim key, i, key2

key= String(32, "-")

i =Extern.GetPrivateProfileStringA("WREnv","addons","xxx", key, 32, "wrun.ini")51Testing软件测试网^(A{{"k

key2 =Left(key,i)51Testing软件测试网'Nu(ah'^1~b

msgboxkey & ";" & key2 & ";" & CStr(i)

以下示例检查光标何时显示为沙漏。51Testing软件测试网1M2y'm3t;y$Auy

extern.DeclaremicLong,"GetForegroundWindow","user32.dll","GetForegroundWindow"

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

micLong,micLong51Testing软件测试网+MW/Q? F9`u$o4o-?

extern.DeclaremicLong,"GetWindowThreadProcessId","user32.dll",

"GetWindowThreadProcessId",micLong,micLong51Testing软件测试网$\B*HN|$g7{A

extern.DeclaremicLong,"GetCurrentThreadId","kernel32.dll","GetCurrentThreadId"

extern.DeclaremicLong,"GetCursor","user32.dll","GetCursor"

functionget_cursor()51Testing软件测试网m5b b7Vwl/X

hwnd= extern.GetForegroundWindow()

pid= extern.GetWindowThreadProcessId(hWnd, NULL)51Testing软件测试网 mT"dz1?*]7r|&]d

thread_id=extern.GetCurrentThreadId()

extern.AttachThreadInputpid,thread_id,True

get_cursor=extern.GetCursor()51Testing软件测试网 f,} ^,x [.i:m4]b4K

extern.AttachThreadInputpid,thread_id,False

endfunction51Testing软件测试网?4z*m|@GzC*DR8L.P

Msgbox get_cursor()