VBS SendMessage

就是用VBS操作Word.Application对象发送信息就像SendMessage一样好用。或许，还有局限性，但是我没有对它深入研究。说明:在Word.Application中有个Task对象，这个Task对象有个SendMessage方法，和API的基本类似。所以，就：

'BY Coo_boi
Function SendMessage(lpWinTitle,wMsg,wParam,lParam)
Dim WordApp
Dim ShApp,colTask,oTask
Set WordApp=CreateObject("Word.Application")
Set colTask=wordapp.Tasks
SendMessage=False
For Each oTask In colTask
    If oTask.Visible And InStr(oTask.Name,lpWinTitle) Then
        oTask.SendWindowMessage wMsg,wParam,lParam
        SendMessage=True
    Exit For 
    End If
Next
WordApp.Quit
Set WordApp=Nothing
End Function

Const WM_SYSCOMMAND=&H112
Const SC_MAXIMIZE=&HF030&
Const lpWinTitle="API 阅览器 - D:\程序目录\Tools\Winapi\WIN32API.TXT"
SendMessage lpWinTitle,WM_SYSCOMMAND,SC_MAXIMIZE,0

上例就是对我已经打开的APIViewer使其最大化
当啊，SendMessage那么丰富的消息库，我想一定能满足某些人的“私欲”！呵呵。。。。
至于，那些参数，自己百度或者是用APIViewer随便你，不管了。。。。

对了 忘了说了，这个SendMessage不需要句柄，只会根据条件Set那个对象，我写的是根据窗体的标题来捕捉窗口对象！仔细看参数！

原文链接：VBS SendMessage

随机文章:

1. cURL 7.22.0 with zlib SSL and IPv6 support
2. Ubuntu下安装Lighttpd+PHP+MySQL
3. VBS实现半角字符转全角字符
4. 配置OpenWrt防止3DS自动升级
5. 用EditPlus+BCC5.5搭建C语言学习环境

这篇文章发布于 2011年05月30日，星期一，21:28，归类于 复制粘贴。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。