VB向其他程序发送消息问题？help me!

hongkvip 发表于 2008-11-27 00:45:38

刚发现这个好地方～～
咨询个问题。。。
 
 
想做个VB小东西,向程序发送动作：
 
动作是：打开缩小在任务栏的程序，并双击或者右键单击连接
程序如图：
<img src="http://p13.freep.cn/p.aspx?u=v20_p13_p_0811270047124727_0.jpg"/>
[此贴子已经被作者于2008-11-27 0:47:57编辑过]

马大哈 发表于 2008-11-27 01:00:53

还不睡啊.
 
发点击消息倒是简单:
 
CALL PostMessage(hwnd, WM_LBUTTONDBLCLK, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
 
其中HWND是LISTVIEW控件的句柄,MX与MY是要点击的相对座标,单位为象素,LISTVIEW控件的左上角为0,0.

hongkvip 发表于 2008-11-27 01:28:21

呵呵～～马哥一样啊。。夜猫子。。。
 
我试试再睡～～

hongkvip 发表于 2008-11-27 01:35:15

第一次弄这个，麻烦马哥再指点下
用spy++查了...
 
 
<img src="http://p13.freep.cn/p.aspx?u=v20_p13_p_0811270131384560_0.jpg"/>
 
<img src="http://p11.freep.cn/p.aspx?u=v20_p11_p_0811270133539415_0.jpg"/>
<img src="http://p11.freep.cn/p.aspx?u=v20_p11_p_0811270205489220_0.jpg"/>
 
 
1~
CALL PostMessage(hwnd, WM_LBUTTONDBLCLK, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
 
具体该如何呢？
2~PostMessage的声明如下正确么？
 
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) as long
 
3~HWND是LISTVIEW控件的句柄，用Spy++直接获得如上图，这个是句柄固定不变的么？
 
4~MX与MY是要点击的相对座标，这个坐标如何取得呢?
 
[此贴子已经被作者于2008-11-27 2:06:41编辑过]

hongkvip 发表于 2008-11-27 01:56:11

获得LISTVIEW控件的句柄为001802BA
 
如下代码不能能发送成功：
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Private Sub Command1_Click() Dim xyz As Long xyz = 1573562 Call PostMessage(xyz, WM_LBUTTONDBLCLK, 0, (20 And &HFFFF) + (20 And &HFFFF) * &H10000) End Sub 
[此贴子已经被作者于2008-11-27 2:07:31编辑过]

马大哈 发表于 2008-11-27 15:28:51

<div class="msgheader">QUOTE:</div><div class="msgborder">Option Explicit
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _      ByVal lpClassName As String, _      ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _      ByVal hWnd1 As Long, _      ByVal hWnd2 As Long, _      ByVal lpsz1 As String, _      ByVal lpsz2 As String) As Long Private Const WM_LBUTTONDBLCLK As Long = &H203
Private Sub Command1_Click()     Dim tWnd1 As Long, tWnd2 As Long         tWnd1 = FindWindow(vbNullString, "你程序的标题,iNode什么的")     If tWnd1 = 0 Then         MsgBox "未找到iNode!", vbOKOnly Or vbInformation         Exit Sub     End If     tWnd2 = FindWindowEx(tWnd1, ByVal 0&, "SysListView32", vbNullString)        '只有一个SysListView32就可以这样做     If tWnd2 = 0 Then         MsgBox "未找到SysListView32!", vbOKOnly Or vbInformation         Exit Sub     End If     Call PostMessage(tWnd2, WM_LBUTTONDBLCLK, 0, ByVal (187 And &HFFFF) + (47 And &HFFFF) * &H10000)             '187,47,是从你那图里得到的,即鼠标当前坐标(515,353)减去SysListView32的左上角坐标(328,306)             '这是一个相对坐标. End Sub</div>
 
用这个代码试一下.
 
句柄在每次对象建立时都是临时申请的,因此两次运行得到相同句柄的机率接近0.
 
所以要使用窗体名+类名来定位你的SysListView32,然后再发送双击消息.
 
以上代码仅是思路,具体需要你自己调试,但已经差不了多少了.

hongkvip 发表于 2008-11-27 23:52:54

现在才有空来看了。。。谢
 
按马哥上面给出的代码调试了，不知道原因，发送左键双击不成功。
我在上面的代码后加入了
 If PostMessage(tWnd2, WM_LBUTTONDBLCLK, 0, ByVal (39 And &HFFFF) + (43 And &HFFFF) * &H10000) = 0 Then             MsgBox "发消息失败!"             End If
并没有提示失败，但发送的双击消息没有任何反应。。。
不过倒是明白了两个api的用法，FindWindow是找主窗体句柄，FindWindowEx是找类句柄的。
----------------------------------------------------------------------------
很疑惑一点：
这个相对坐标不会变么？窗口的位置不同，这个坐标不就变了，因为这个相对坐标是鼠标当前坐标减去SysListView32的左上角坐标得来的，这两个坐标都是会变的。
要是把iNode程序移动了，那消息不就发不出去了，这段Call PostMessage(tWnd2, WM_LBUTTONDBLCLK, 0, ByVal (187 And &HFFFF) + (47 And &HFFFF) * &H10000) 就没有通用性了。。。
[此贴子已经被作者于2008-11-28 0:10:42编辑过]

马大哈 发表于 2008-11-30 19:40:39

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用hongkvip在2008-11-27 23:52:54的发言： 
现在才有空来看了。。。谢<img title="dvubb" alt="图片点击可在新窗口打开查看" src="http://www.m5home.com/bbs/images/emot/em50.gif" onload="imgresize(this);" align="middle" border="0"/>
 
按马哥上面给出的代码调试了，不知道原因，发送左键双击不成功。
我在上面的代码后加入了
 If PostMessage(tWnd2, WM_LBUTTONDBLCLK, 0, ByVal (39 And &HFFFF) + (43 And &HFFFF) * &H10000) = 0 Then             MsgBox "发消息失败!"             End If
并没有提示失败，但发送的双击消息没有任何反应。。。
不过倒是明白了两个api的用法，FindWindow是找主窗体句柄，FindWindowEx是找类句柄的。
----------------------------------------------------------------------------
很疑惑一点：
这个相对坐标不会变么？窗口的位置不同，这个坐标不就变了，因为这个相对坐标是鼠标当前坐标减去SysListView32的左上角坐标得来的，这两个坐标都是会变的。
要是把iNode程序移动了，那消息不就发不出去了，这段Call PostMessage(tWnd2, WM_LBUTTONDBLCLK, 0, ByVal (187 And &HFFFF) + (47 And &HFFFF) * &H10000) 就没有通用性了。。。
<div align="right">[此贴子已经被作者于2008-11-28 0:10:42编辑过]</div></div>
你是向LISTVIEW发送了点击消息,因此只要知道它的句柄即可.
 
这种情况下,其内部相对坐标是不变的.
 
就好比"用砖拍脑袋",被拍的人在哪里都没问题,因为我只需要找到脑袋,一砖拍上去就行.....
 
至于不行的原因,你最好把你实际的相对坐标计算出来,看看我是如何计算出来的.
 
这代码我是测试后才发上来的,只有坐标问题了.

马大哈 发表于 2008-11-30 23:43:20

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用tonycasablanca在2008-11-30 10:53:21的发言： 
如何listview中有垂直滚动条，没有被直接显示的项目
 
他们相对于屏幕的坐标又怎么计算呢</div>
 
未显示的就应该无法计算吧.....我不清楚 
 
要想操作LV里未显示的项,可能还需要再深入研究一下
 
毕竟项未显示,我们也无法直接操作,还不是得拉出来显示了才行!

页: [1]

紫水晶编程技术论坛 - 努力打造成全国最好的编程论坛's Archiver

VB向其他程序发送消息问题？help me!