|
|
DllCall的使用
[翻译转帖]列表当前所有窗体-使用DllCall--大家一起学习一下
这个程序可以遍历当前窗体，并查找其标题，用消息框显示出来。
子程序是Larry大师的作品，可以做为功能子程序来调用。
尤其值得大家学习的是使用了DllCall，它的使用对我们还比较新鲜，请仔细学习。
AutoItSetOption("WinTitleMatchMode", 4);2 = Match any substring in the title
$h = GetWindowHandles()
$dataout=""
For $i = 1 to $h[0]
$title=WinGetTitle("handle="&$h[$i])
$dataout=$dataout&$h[$i]&"--->"&$title& @CRLF
Next
MsgBox(1,"Windows",$dataout)
Func GetWindowHandles()
$GW_HWNDNEXT = 2
$GW_CHILD = 5
Dim $List[1]
$List[0]=0
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
if @error Then Return $List
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x[0],"int",$GW_CHILD)
if @error Then Return $List
While 1
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x[0],"int",$GW_HWNDNEXT)
if @error Then ExitLoop
If String($x[0]) = "00000000" Then ExitLoop
If BitAnd(WinGetState($x[0]),2) Then
$ub = Ubound($List)
Redim $List[$ub+1]
$List[$ub]=$x[0]
$List[0]=$ub
EndIf
WEnd
Return $List
EndFunc
下面是另一个调用这个程序的应用，对所有当前窗体设置透明度。
注意使用这个程序后，自己修改透明度好再恢复。
$h = GetWindowHandles()
For $i = 1 to $h[0]
WinSetTrans($h[$i],"", 100)
Next
Func GetWindowHandles()
$GW_HWNDNEXT = 2
$GW_CHILD = 5
Dim $List[1]
$List[0]=0
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
if @error Then Return $List
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x[0],"int",$GW_CHILD)
if @error Then Return $List
While 1
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x[0],"int",$GW_HWNDNEXT)
if @error Then ExitLoop
If String($x[0]) = "00000000" Then ExitLoop
If BitAnd(WinGetState($x[0]),2) Then
$ub = Ubound($List)
Redim $List[$ub+1]
$List[$ub]=$x[0]
$List[0]=$ub
EndIf
WEnd
Return $List
EndFunc
DllCall命令，是调用dll动态连接库里已有的功能函数。其格式是
DllCall ( "dll文件", "返回值类型", "功能", "参数类型", 参数 )
虽然帮助文件里在介绍格式时，没有说明是否可以有省略的参数，但从上面的例子中一句
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
可以看出，在特定使用时，可以省略后两项。
DllCall的使用是要看具体的dll和dll中具体的功能及使用方法来定的。我没有研究我user32.dll里的功能，但从上面的例子来看，可以简单解释一下。
在user32.dll中，有函数GetDesktopWindow和GetWindow
GetDesktopWindow的功能是取得桌面的句柄
GetWindow的功能是取得窗体的句柄，其中，在赋整形值5时，返回第一个窗体的句柄；在赋整形值2时，返回下一个窗体的句柄。这点比较类型FileFindFirstFile和FileFindNextFile
用循环的方式取得所有窗体的句柄，直到String($x[0]) = "00000000"。
并非所有窗体都是可见的，我们需要的只是可见的，所以BitAnd(WinGetState($x[0]),2)，过滤出可见的窗体。
最后用$title=WinGetTitle("handle="&$h[$i])取得可见窗体的标题。 |
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2008-5-10 12:25:29
.gif)
.gif)
