请教各位如何实现自动登陆网站的功能(50分)

  • 主题发起人 主题发起人 old_pan
  • 开始时间 开始时间
O

old_pan

Unregistered / Unconfirmed
GUEST, unregistred user!
各位,我现在需要实现一个应用,就是用Delphi实现自动登陆网站,比如要进入21cn的
邮箱,程序自动输入帐号和密码,并点击登陆按钮,进入后,如何把网页保存下来;
 
怎么没有回答啊,我在论坛里找到的这种方法不行,请指教;
var
v_web : Olevariant;
begin
webbrowser1.Navigate('http://gstar88.com');
Sleep(5000);
v_web := WebBrowser1.OleObject.document.all.item('username',0); //找到登录用户名的输入框
v_web.value := 'xxxx';
[red]//在这里对v_web赋值就出错了,因为v_web的值是$00000000[/red]
v_web := WebBrowser1.oleobject.document.all.item('uid',0); //找到登录密码的输入框
WebBrowser1.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交
 
各位,这个问题到底怎么解决啊,麻烦大家快点想想办法啊,ji
 
要等navigate过程结束

_web : Olevariant;
begin

v_web := WebBrowser1.OleObject.document.all.item('username',0); v_web.value := 'xxxx';
v_web := WebBrowser1.oleobject.document.all.item('uid',0); //找到登录密码的输入框
WebBrowser1.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交

把这些代码写在webbrowser空间的ondocumentComplete事件里面
 
to andy263;
谢谢你的答复,但是问题还是这样,不能解决,到底是不是网页里没有'UserName',
我用的是Delphi6,应该跟这没关系
 
到目前为止,本人还不能解决这个问题,哪位兄台知道具体的解决办法,请告知小弟,谢谢
 

Similar threads

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