动态描述性编程实现计算器0~9这10个数字按钮的高亮显示并按下该键

''======================
'动态描述性编程，需要用到一个Description对象，为这个对象添加属性和值的集合，在使用
'时，直接在语句中输入对象的名称即可
'动态描述性编程实现0~9这10个数字按钮的高亮显示并按下该键
'========================
systemutil.Run "C:\WINDOWS\system32\calc.exe"
Set Mydes=Description.Create()'创建一个Description对象
Mydes("nativeclass").value="Button" '添加Description对象”nativeclass属性的值为”Button"
'Mydes("text").value=cstr(RandomNumber(0,9))
For i=0 TO 9
Mydes("text").value=cstr(i)  '添加Description对象”text"属性的值为”i"
set ButtonNumber=Window("regexpwndtitle:=计算器").ChildObjects(Mydes)  '创建具有以上两个属性的对象
Dim ButtonCount
ButtonCount=ButtonNumber.count  '取得对象的个数
print ButtonCount
ButtonNumber(ButtonCount-1).highlight  '第一个对象为ButtonNumber(0)
ButtonNumber(ButtonCount-1).Click
Next
Window("计算器").Close