|
Browser("name:=淘宝网 - 淘我喜欢!").Page("title:=淘宝网 - 淘我喜欢!").WebEdit("name:=TPL_username").Set "XXXXXXXXXX" ''用户名
Browser("name:=淘宝网 - 淘我喜欢!").Page("title:=淘宝网 - 淘我喜欢!").WebCheckBox("html id:=J_SafeLoginCheck").Set "OFF" ''取消使用控件登录
Browser("name:=淘宝网 - 淘我喜欢!").Page("title:=淘宝网 - 淘我喜欢!").WebEdit("name:=TPL_password").SetSecure "XXXXXXXXXXXXX" ''密码
''获取登录按钮
Set webbut=Description.Create()
webbut("name").value="登录"
set webbuts=Browser("name:=淘宝网 - 淘我喜欢!").Page("title:=淘宝网 - 淘我喜欢!").ChildObjects(webbut)
For i=1 to webbuts.Count()
If Instr(1,webbuts(i-1).GetROProperty("outerhtml"),"class=J_Submit tabIndex=5 type=submit")<>0 Then
webbuts(i-1).click
Exit for
End If
Next
试试我这种方法 |
|