QTP Practice - RadioGroup

http://bbs.51testing.com/viewthread.php?tid=166279&pid=1327453&page=1&extra=page%3D1#pid1327453
 
想练习RadioGroup，于是写了个练习，project的名字就叫RadioGroup，在test目录下的。
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","","open"
Browser("title:=about\:blank").Navigate ("http://music.sogou.com/singer/81/detailSinger_2009%BF%EC%C0%D6%C5%AE%C9%F9.html")
这个我就写了半天，注意写法。先打开ie，然后在当前打开的browser输url。
 
然后，我原本写的是：
Browser("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").Page("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").WebEdit("query").Set "江映蓉"
Browser("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").Page("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").WebRadioGroup("class").Select "#2"
Browser("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").Page("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").WebButton("搜狗搜索").Click
后来发现，这样会出现要阻止active X控件之类，所以要像如下用法：
Set bjShell = CreateObject("WScript.Shell")
objShell.SendKeys "{Enter}"
 
当然，我还做了个练习是为了practise描述性编程的：
Set desc = Description.Create
desc("micclass").value =  "WebRadioGroup"
Set wcbs = Browser("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").Page("2009快乐女声歌曲mp3试听下载_2009快乐女声最新专辑").ChildObjects(desc)
wcbs(0).Select "#2"