这个是ouou的。google的跟这个有点区别
TestList "a"
Public Function TestList(cString)
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","dv.ouou.com","C:\Documents and Settings\Administrator","open"
Browser("视频-偶偶视频").Page("视频-偶偶视频").Sync
Browser("视频-偶偶视频").Page("视频-偶偶视频").WebEdit("textfield").Click
Set WshShell=CreateObject("Wscript.Shell")
WshShell.SendKeys cString
Set Desc=Description.Create()
Desc("micclass").value="WebElement"
Desc("class").value="autoMouseout"
Set Objs=Browser("视频-偶偶视频").Page("视频-偶偶视频").ChildObjects(Desc)
'Objs(3).click
For i=0 to Objs.count-1
Msgbox Objs(i).ToString
Next
Set WshShell=Nothing
search = "Quick" 'any string you want to search...
arrsearch = SplitString(search)
For i = 0 to UBound(arrsearch) - 1
Browser("Google").Page("Google").WebEdit("q").Set arrsearch(i)
Browser("Google").Page("Google").WebEdit("q").FireEvent "onkeyup"
Wait(1)
Next
Dim value1,value2
rcount=Browser("Google").Page("Google").WebTable("index:=1").RowCount
For i=0 to rcount-1
value1=Browser("Google").Page("Google").WebTable("index:=1").GetCellData(i,1)
value2=Browser("Google").Page("Google").WebTable("index:=1").GetCellData(i,2)