用findwindow找到窗口句柄(如下图),如何用postmessage选择"确定"?不要关闭,要点"确定"啊,-----------------------
|选择框 |
-----------------------
| ------ ------ |
| |确定| |取消 | |
| ------ ------ |
-----------------------
|选择框 |
-----------------------
| ------ ------ |
| |确定| |取消 | |
| ------ ------ |
-----------------------
解决方案 »
- 谁会做XP风格的菜单的,请与我联系,qq:599183369
- 在VB里有什么方法可以使单据套格打印脱离源代码,用户自己可随意设置?
- 求一个小程序的代码:有1到20这样20个数,任意组合其中的数得到19这个数
- 如何在限制text1.text只能够输入数字。
- 高手啊,高手,你在哪?进来指点一下啊!有关打印机字体打印的问题.
- VB6+Access2000 使用 LIKE 查询 出现内存溢出 请各位高手进来瞅瞅
- VB下怎样让程序出现在系统工具条中?
- 挑战自已 看能不能实现 大家都来讨论啊
- 由汉字得到拼音缩写码!!!
- 想找一套醫院收費管理系統用以學習研究參考,
- vb有像office一样的object library吗?
- 想做一个每日一帖,用什么控件?
d = FindWindowEx(t, ByVal 0&, "Button", "确定")
=============
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Sub Timer1_Timer()'定时器,每1秒检测一次
frmHwnd = FindWindow(vbNullString, "Outlook Express")
If frmHwnd <> 0 Then
FindWindowEx frmHwnd, ByVal 0&, "Button", "发送(&s)"
End If
End Sub
=================
可是它怎么知道我单击哪一个按钮?