DynamicWrapper.dll 间接调用windows api工具 打包下载 附一些例子 下载-

DynamicWrapper,用于间接调用windows api. 非常不错的功能但官方已经停止了更新。
和vbscript等语言搭配实现一些比较不错的功能。
下面是一些简单的例子。
vbs操作窗口
例1：

Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
WindowHandle = Wrap.FindWindow("", "无标题 - 记事本")
If WindowHandle=0 then
MsgBox "发现窗口"
Else
MsgBox "没发现"
End If

例2： 这个是用来检测是否有相应的已运行程序的标题，有则提示关闭。
strWindowTitle="QQ2009;计算器;a.txt - 记事本" '要关闭的窗口标题多个用;分隔开
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
strWindowTitles=Split(strWindowTitle,";")
For Each strTitle In strWindowTitles
If colTasks.Exists(strTitle) Then
strAnswer=MsgBox("发现指定窗口【"&strTitle&"】是否关闭？",vbYesNo+vbQuestion,"")
If strAnswer=vbYes Then colTasks(strTitle).Close
End If
Next
objWord.Quit