这个密码框用webbrowser如何填写,在线等(300)

  • 主题发起人 主题发起人 lytianshi
  • 开始时间 开始时间
L

lytianshi

Unregistered / Unconfirmed
GUEST, unregistred user!
https://www.alipay.com/user/login.htm密码框为什么填不上内容呢。只有300分了。全拿出来了。本人比较菜,请高手指点。本人QQ1005254321
 
汗.....他的密码框是个activex控件......
 
要怎么填呢
 
再顶。。。。。。。。
 
窗口上放一个TWebBrowser控件 命名为Browser。在uses节加入MSHTML引用放一个TButton,单击事件里写var Doc:IHTMLDocument2; PasswordObj:IHTMLObjectElement; V:OleVariant;begin Browser.Navigate('https://www.alipay.com/user/login.htm'); while Browser.ReadyState<>4 do Application.ProcessMessages; Doc:=Browser.Document as IHTMLDocument2; (Doc.all.item('_fmu.l._0.e',varEmpty) as IHTMLInputElement).value:='帐户'; PasswordObj:=Doc.all.item('Password_Edit',varEmpty) as IHTMLObjectElement; V:=PasswordObj.object_; v.PasswordMode:=True; v.SecurityMode:=False; V.TextData:='密码'; (Doc.all.item('Submit',varEmpty) as IHTMLElement).Click; //点击登录按钮end;
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
851
DelphiTeacher的专栏
D
后退
顶部