关于自动登陆的问题

banghack 2007-12-30 05:44:09
<form name="STLogins" method="post" action="login.php">

<a href="javascript:document.STLogins.submit();"><img src="images/login02.gif" width="82" border="0"></a>(login02.gif是登陆的图标)

这个是网页的代码

请问下怎么用delphi实现自动登陆

用户名 username 密码password
...全文
36 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
banghack 2007-12-30
额! 为什么给edongxu 20分怎么也给不了

斑竹来帮我转20分给他可以不?
回复
banghack 2007-12-30
可以了,自己调试成功了 谢谢edongxu 提醒
回复
banghack 2007-12-30
Olevariant((WebBrowser1.Document as IHTMLDocument2).all.item('STLogins',0)).submit();
直接加进去一下子可以登陆

一下子又不可以登陆 - -!
回复
banghack 2007-12-30
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
userinputelement,pwdinputelement:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('username',0) as ihtmlinputelement);
userinputelement.value:=edit1.text;
pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);
pwdinputelement.value:=edit2.text;
end;

登陆那段代码怎么写?
回复
banghack 2007-12-30
大侠 能否写个完整的自动登陆源码
回复
edongxu 2007-12-30
这样就ok了
Olevariant((WebBrowser1.Document as IHTMLDocument2).all.item('STLogins',0)).submit();
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1565

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告