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. 使用正确版本的XMLHTTP
2. 快捷方式都以IE打开的解决方法
3. 字符编码详解
4. Dr.Batcher 2.3.3 注册码
5. 禁用Windows系统的临时IPv6地址

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