r515.cn r515.cn

欢迎光临
我们一直在努力
顶部
域名

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
    【声明】:本博客不参与任何交易,也非中介,仅记录个人感兴趣的主机测评结果和优惠活动,内容均不作直接、间接、法定、约定的保证。访问本博客请务必遵守有关互联网的相关法律、规定与规则。一旦您访问本博客,即表示您已经知晓并接受了此声明通告。
    发布内容
    -六神源码网 -六神源码网