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. JavaScript中的闭包(closures)
  2. CRC批量校验工具——RapidCRC
  3. 吞噬者批处理编写器
  4. VBS中的Mod运算符与负数
  5. OpenWrt Dnsmasq DHCP MAC地址过滤

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

  1. prophetk说道:

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

留下回复