提取了一个窗口里的所有子窗口的句柄到List1.List
如何逐行提取查询类名和窗口名
List1.List里的句柄为
8324244
3147294
2491942
2295300
3212656
13829148
3343960
13304938
13567238
18810170
3147148
2426490
9504076
18285814
12584044
7865454
1508794
9766116
2754046
10617936
16123074
11011358
11863168
9897282
14812284
12125360
1508798
9700454
2754016

代码为
Private Sub Command3_Click()
Dim M As String
Dim step As Integer


step = List1.ListCount '获取List1.List总行数

For step = 1 To step
 M = List1.List(step - 1)
      
   

Dim lpclassnameM As String
Dim BiaoTiM As String
lpclassnameM = Space(255)
GetClassName M, lpclassnameM, 255’获取句柄类名
List2.AddItem lpclassnameM
BiaoTiM = Space(256)
GetWindowText M, BiaoTiM, 256 ’获取窗口名
List3.AddItem BiaoTiM


Exit For

Next step
End Sub
只能提取第一个句柄的类名和窗口名，如何才能根据句柄提取所有句柄的类名和窗口名。。。谢谢各位帮忙看看


[ 本帖最后由 mayong123 于 2011-10-9 16:28 编辑 ]

改成这样就可以了，不过执行到一半红色字段提示“实时错误13，类型不匹配。。。”不知是啥问题
Private Sub Command3_Click()
Dim M As String
Dim step As Integer

Dim lpclassnameM As String
Dim BiaoTiM As String

step = List1.ListCount

For step = 1 To step

 M = List1.List(step)
      
 


lpclassnameM = Space(256)
GetClassName M, lpclassnameM, 256
List2.AddItem lpclassnameM
BiaoTiM = Space(256)
GetWindowText M, BiaoTiM, 256
List3.AddItem BiaoTiM



Next step
End Sub

GetClassName clng(var( M)), lpclassnameM, 256

已经解决，谢谢楼上版主，因为M有可能到最后一行出现空值，所以报错。加上判断就好了。。谢谢。。
还有GetClassName不能取得某些控件的名称，所以改用SendMessage取名称了。。谢谢了。。

'List2.Clear
List4.Clear
RichTextBox1.Text = ""
Dim M As String
Dim step As Integer

'Dim lpclassnameM As String

Dim Txt(64000) As Byte

step = List1.ListCount
Text4.Text = step
For step = 0 To step

 M = List1.List(step)
      
 



If M = "" Then
Text5.Text = List4.ListCount
'Text6.Text = List2.ListCount


Command3.Value = True

Else
'lpclassnameM = Space(10000)
'GetClassName M, lpclassnameM, 10000

SendMessage M, &HD, 64000, Txt(0)   '获得窗口标题(也可使用 API 函数:GetWindowText,但效果不佳)

RichTextBox1.SelText = vbCrLf & StrConv(Txt, vbUnicode)
'List2.AddItem M & "-" & lpclassnameM '获取类名
List4.AddItem M & "-" & StrConv(Txt, vbUnicode)
End If

Next step
Exit Sub