|
原帖由 three116 于 2007-12-26 13:40 发表
能介绍下 怎么搞定吗?
这个是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
End Function |
|