怎样向另外一个程序中的窗体发出消息？

Question

以前在网上找到一个自动申请QQ的软件，其实也很简单，就是它能帮你点击
“上一步”和“下一步”，很有意思。我们该怎样向另外一个程序中的窗体发消息呢？

Answer 1

就是QQ申请上的 “上一步”和“下一步”按钮，它能自动点击（其实不用鼠标），可以空出时间做其他的事。现在的QQ申请改版了，不能用了，不过这种做法很有意思。

Answer 2

怎么设置，我说的另外一个程序不是我工程里的，我除了通过shell函数获得一个任务ID，
无法获得它的任何信息了。或许可以，看我不会啊。

Answer 3

用API函数给某个窗本发消息就行了.SENDMESSAGE函数就可以做这个工作了.或用VB的SENDKEY函数也可以的,但速度比SENDMESSAGE慢得多了!!所以建议用API来做这个工作!!

Answer 4

这样可以模拟Private Declare Sub mouse_event Lib "user32" _
    ( _
    ByVal dwFlags As Long, _
    ByVal dx As Long, _
    ByVal dy As Long, _
    ByVal cButtons As Long, _
    ByVal dwExtraInfo As Long _
    )'Option_Tag标示选择了哪一种模拟事件
Dim Option_Tag As Integer
'OnTest标示是否处于模拟状态，以便我们停止模拟
Dim OnTest As Boolean
'对API变量的定义
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10调用举例' mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Answer 5

提供另一种方法:
建一个 "模块"
在模块里声明全局变量
例如；global a as integer
在主窗体调用子窗体前，改变变量的值，然后在子窗体使用这个变量。
可以达到相同的效果

Answer 6

为什么不搜索帖子？不知道要说多少次自己去看这个：http://expert.csdn.net/Expert/topic/1580/1580945.xml?temp=.7235681原理一样