vbs获取程序窗体句柄_请问VB如何获取某窗体的句柄,并向该窗口发送后台按键信息?...

匿名用户

1级

2019-01-07 回答

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Private Function GetWinText(ByVal hwnd As Long) As String

GetWinText = String(1024, Chr(0))

GetWindowText hwnd, GetWinText, Len(GetWinText)

GetWinText = Left$(GetWinText, InStr(GetWinText, Chr(0)) - 1)

End Function

Private Sub Command1_Click()

Dim i As Long, j As Long, s As String

i = GetWindow(hwnd, 0&)

Do Until i = 0

If IsWindowVisible(i) Then

s = Trim(GetWinText(i))

If instr(s,"Client Ver :") Then

'这时候i就是该程序的句柄,你可以在此发送按键消息了

'或者你也可以把这个i记录下来,然后在timer中向该窗口定时发送按键消息

exit sub

End If

End If

i = GetWindow(i, 2&)

Loop

End Sub

  • 0
    点赞
  • 3
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论

打赏作者

weixin_39686048

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值