QTP能否调用API函数

梦醒十分

这是Testcomplete调用API一段：
Sub StopKeyMouse  
    Set Def_DLL = DLL.DefineDLL("USER32")  
    Def_Proc = Def_DLL.DefineProc("BlockInput", vt_b1, vt_b1)   
    Set Lib = DLL.Load("USER32.DLL", "USER32")  
    Lib.BlockInput(True)
End Sub
它的作用是锁住键盘和鼠标。DLL是它内置的对象。

我想知道QTP能否调用API函数，来做一些按键上的操作，如能，请给些例子。
我找了QTP/Lib好像没发现什么？

xiaonan

如何在QTP中使用API?
'声明FindWindow方法
Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString
'Declare SetWindowText method
Extern.Declare micLong, "SetWindowText", "user32.dll", "SetWindowTextA", micHwnd, micString

梦醒十分

谢谢版主，这个能在帮助查到吗？
能写些实例来看看吗？

xiaonan

在帮助里是有关于的API的内容的,你可以看一下

梦醒十分

谢谢版主。
在Test forum找到一个贴子：QTP运行后锁键盘和鼠标。
Extern.Declare micLong, "BlockInput", "user32.dll", "BlockInput", micLong

' Use the following statement to lock keyboard and mouse input at the
' beginning of the test:
Extern.BlockInput 1
wait(5)
' Use the following statement to unlock keyboard and mouse input at the
' end of the test:
Extern.BlockInput 0

*******************************
'自己写了两个：
'例1:运行一个exe文件
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
'它让我的机器在办公室里狂响不止！

接下来要研究关于Click同时按下Ctrl键是否能用API来解决成功。

amwggyy504

哦，真好，还能写函数。不错。

xiaonan

呵呵,强烈支持,让大家一起来分享你的研究成果.