' Create WSH object
Set WshShell = CreateObject("WScript.Shell")
' Launch IE browser
SystemUtil.Run "iexplore", "baidu.com"
Browser("index:=0").Sync
' Type in WebEdit through "SendKeys"
Browser("index:=0").Page("index:=0").WebEdit("name:=wd").FireEvent "onfocus"
WshShell.SendKeys "A"
wait 2
' Choose element in dropdown list
For i = 1 To 2
WshShell.SendKeys "{DOWN}"