注册页面自动选择accout plan和src下拉列表中的项

努力回忆着高中学过的几堂VB课的内容，外加努力在google查询资料，总算写出来了

Browser("title1").Page("title1").Image("button019").Click
Browser("title1").Page("title2").Image("icon010").Click
'取得Accout Plan长度
cnt=Browser("title1").Page("title2_2").WebList("selectType").GetROProperty("items count")
'随机在列表中取记录
Browser("title1").Page("title2_2").WebList("selectType").Select RandomNumber(0, cnt-1)
Browser("title1").Page("title2_2").WebList("src").Click
'取得src长度
cnt=Browser("title1").Page("title2_2").WebList("src").GetROProperty("items count")
Dim a,b
a=RandomNumber(0,cnt-1)
'随机在列表中取记录
Browser("title1").Page("title2_2").WebList("src").Select a
Browser("title1").Page("title2_2").WebList("src").Click
b=a
If b=11 Then
‘随机选择到other时，要填写相应内容，所以加上此条判断
Browser("title1").Page("title2_2").WebEdit("other").Set "haha"
End If