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判断无BOM头的文件是否UTF-8编码
  2. OpenWrt配置IPv6之6to4隧道
  3. JavaScript的Trim函数有12种写法,你可知道么?
  4. MS-DOS 7.1与GNU GPL协议
  5. Chrome新标签页无法打开问题的解决

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

  1. prophetk说道:

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

留下回复