vb获取已知句柄窗体的控件的句柄,请老师用findwindowex和enumchildwindow举个例子,
展开全部
声明 ,Getwindowsa是可以自定义的:
Private Declare Function Getwindowsa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
按钮1的代码(command1):
Private Sub Command1_Click()
Dim windows As Long ‘windows也是自定义的
windows = Getwindowsa(vbNullString, "QQ的窗口名。。不知道是什么,替换这个字符串") ‘赋值给windows
If windows = 0 Then ’这里是判断找到木有
MsgBox "对不起,没有找到窗口句柄"
Else
MsgBox "已找到窗口句柄,窗口句柄为:" & windows
End If
End Sub
Private Declare Function Getwindowsa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
按钮1的代码(command1):
Private Sub Command1_Click()
Dim windows As Long ‘windows也是自定义的
windows = Getwindowsa(vbNullString, "QQ的窗口名。。不知道是什么,替换这个字符串") ‘赋值给windows
If windows = 0 Then ’这里是判断找到木有
MsgBox "对不起,没有找到窗口句柄"
Else
MsgBox "已找到窗口句柄,窗口句柄为:" & windows
End If
End Sub
追问
这只是查找窗口句柄,我是想查找窗口里面控件的句柄!不过还是谢谢!
展开全部
我有个现成的例子。715863053
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Text1_Change()
WebBrowser1.Document.getElementById("kw").Value = Text1.Text
End Sub
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Text1_Change()
WebBrowser1.Document.getElementById("kw").Value = Text1.Text
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询