有没有办法得到,一个已知窗体上的所有对象的类名称啊....

Dim sText As String * 255
Dim TextObj As Long

TheWindow = GetForegroundWindow '获得当前窗口句柄

If TheWindow = 0 Then Exit Sub
TheWindow_Title = Left$(sText, GetWindowText(TheWindow, sText, 255)) '得到聊天窗口标题~

If InStr(TheWindow_Title, "聊天中") = 0 Then Exit Sub

接下来,我想得到当然QQ聊天窗口中,发送,和接受消息的文本框的类名称...怎么办?