新手学VB,碰到个小问题,请大虾检查下

来源:百度知道 编辑:UC知道 时间:2024/05/17 00:31:38
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 game As Long
Private gamezi As Long

Private Sub Timer1_Timer()
game = FindWindow("SciCalc", "计算器")
gamezi = FindWindowEx("计算器", "1", "SciCalc", "Edit")
Print game; gamezi
End Sub
问题:我想用findwindowex函数查找计算器的那个文本框控件的句柄,应怎么查找,帮我改一改,谢谢!

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 game As Long
Private gamezi As Long

Private Sub Timer1_Timer()
game = FindWindow("SciCalc", "计算器")
gamezi = FindWindowEx(game, 0, "Edit", "")
Print game; gamezi

End Sub