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. VBS统计网络流量
  2. 此版本之魔兽争霸III需要特定语言版本之Windows
  3. VBS练习题——计算1到100的和
  4. VBS转EXE工具:Exe From Vbs
  5. 115网盘真实下载地址解析工具及其原理(VBS版)

一条评论 发表在“VBS SendMessage”上

  1. prophetk说道:

    感觉不错 不过如果没有安装word 那不是没用了

prophetk 留下回复