按鈕類名同樣,但是妳去遍歷的時候它的次序始終是固定的。通過id不可靠,有些有id但是有些id是0。
clswindow類,裏面有個函數etElementHwndByClassName,可以得到指定的次序按鈕。加入妳要處理的按鈕是在第二個次序,類名為Button,那麽就用:GetElementHwndByClassName("Button",2),即可,
具體代碼:
Private Sub Command6_Click()
Dim w As New clsWindow
Dim i%
If w.GetWindowHwndByTitleEx("自動化操作框架") > 0 Then
i = i + 1
Do While w.GetElementHwndByClassName("ThunderCommandButton", i) > 0'按次序遍歷
MsgBox w.GetElementHwndByClassName("ThunderCommandButton", i)'得到當前次序按鈕的句柄
w.SetElementTextByClassName "ThunderCommandButton", "次序" & i, i'設置按鈕文本
i = i + 1
Loop
End If
End Sub