求vb获取按钮句柄实现点击效果

[y564642865]

获取的是另外窗体不是自己写的，如果目标是系统自带的“计算器”，我下面的这段代码是可以实现的，但是对于一些却实现不了。请高手帮我看一下，是不是需要改哪里或者有别的更好更通用全面点的代码。请发代码，谢谢！

tWnd1 = FindWindow(vbNullString, "窗口句柄")
If tWnd1 <> 0 Then
tWnd2 = FindWindowEx(tWnd1, 0, vbNullString, "按钮句柄")

'程序上面可以运行，到这里后就在下面的判断没办法实现，也就是说句柄是获取到了，那个“按钮句柄”也有可能在获取不到，导致下面不能实现判断。但是没办法实现点击效果，同样的方法在系统的计算器却看实现，控制自己编译的别的vb程序中是按钮也可以实现

If tWnd2 <> 0 Then
SendMessage tWnd2, BM_CLICK, 0&, 0& '点击
End If
Else
tWnd2 = 0
End If

[孤独剑_LPZ]

"自带的“计算器”，我下面的这段代码是可以实现的，但是对于一些却实现不了"

哪些不能实现?如果那个控件不是按钮,类似标签的控件,是没有句柄的

[y564642865]

[Quote=引用 2 楼 asftrhgjhkjlkttttttt 的回复:]
"自带的“计算器”，我下面的这段代码是可以实现的，但是对于一些却实现不了"

哪些不能实现?如果那个控件不是按钮,类似标签的控件,是没有句柄的
[/Quote]

测试了一下，好像只有vb写的程序才可以控制，那是个普通的窗体按钮，用工具可以获取到句柄的。所以应该是我的代码需要带什么函数

[y564642865]

没有朋友帮我看下吗

[y564642865]

各位朋友帮我看看啊，这个问题困扰我很久了。

[y564642865]

别让帖子沉下去啊，各位真的没办法了吗？还是太简单不愿回复，拜托了，谢谢！

[y564642865]

感谢猴哥，方法可行。
这两天我也在想我的代码哪里不行，最后总结验证了，问题是出在等级跨越，获取窗体句柄后就直接搜索按钮句柄，其实中间还要再附别的句柄参数。

[chinaboyzyq]

以下以一個游戲修改器做測試成功。（計算機器也測試成功）

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
'鼠标按下
Const WM_LBUTTONDOWN = &H201
'鼠标弹出
Const WM_LBUTTONUP = &H202
'鼠标双击
Const WM_COMMAND = &H203

Private Sub Command1_Click()
Dim tWnd1 As Long, tWnd2 As Long

tWnd1 = FindWindow(vbNullString, "極品飛車全民公敵中文修改器 v2.45")
  If tWnd1 <> 0 Then
  tWnd2 = FindWindowEx(tWnd1, 0, vbNullString, "執行極品飛車全民公敵遊戲")
  
  If tWnd2 <> 0 Then
  SendMessage tWnd2, WM_LBUTTONDOWN, 0&, 0&
  SendMessage tWnd2, WM_LBUTTONUP, 0&, 0&
  
  End If
  Else
  tWnd2 = 0
  End If
End Sub