|
9#
楼主 |
发表于 2007-9-6 14:38:25
|
只看该作者
dim i,j,k,x,y
i=Browser("i-Techpartner Network").Page("i-Techpartner Network_5").WebTable("Action").RowCount
For j=2 To i
k=Browser("i-Techpartner Network").Page("i-Techpartner Network_5").WebTable("Action").GetCellData(j,2)
x=Browser("i-Techpartner Network").Page("i-Techpartner Network_5").WebTable("Action").ChildItem(j,1,"Image",1).GetROProperty("abs_x")
y=Browser("i-Techpartner Network").Page("i-Techpartner Network_5").WebTable("Action").ChildItem(j,1,"Image",1).GetROProperty("abs_y")
If k=TechReques Then
Browser("i-Techpartner Network").Page("i-Techpartner Network_2").Image("abs_x:="&x,"abs_y:="&y).Click
wait(1)
'Browser("i-Techpartner Network").Page("i-Techpartner Network_2").Image("ctl00$ContentPlaceHolder1$Tech").Click 8,8
End If
还是我自己解决了 |
|