求邮箱自动登录代码

覆手年华

想实现点击按钮直接登录邮箱（默认浏览器中登录） 求代码

aminghanhua

太荣幸了 ~~~~  可是我还是不太明白  给个完整的例子 好不?

鱼哥厉害
刚自己弄了个简单的 不知道楼主是这个意思不 源码也上传了

procedure TForm1.Button1Click(Sender: TObject);
Var
UserName,Password,LoginUrl:String;
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('请完整输入账号、密码！')
else
begin
UserName:=Edit1.text;
Password:=Edit2.Text;
if ComboBox1.ItemIndex=0 then
begin
LoginUrl:='http://reg.163.com/logins.jsp?type=1&url=http://entry.mail.126.com/cgi/ntesdoor?&username='+ UserName + '@126.com&password='+Password;
Shellexecute(0,'open','iexplore.exe',Pchar(LoginUrl),'',SW_SHOWNORMAL);
end;  
if ComboBox1.ItemIndex=1 then
begin
LoginUrl:='https://reg.163.com/logins.jsp?username='+UserName+'&password='+Password+'&url=http://fm163.163.com/coremail/fcg/ntesdoor2';
Shellexecute(0,'open','iexplore.exe',Pchar(LoginUrl),'',SW_SHOWNORMAL);
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Edit2.PasswordChar:=#0
else
Edit2.PasswordChar:='*';
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
  Shellexecute(0,'open','iexplore.exe',Pchar('http://328783896.qzone.qq.com'),'',SW_SHOWNORMAL);
end;

邮箱登陆.rar (177.24 KB, 下载次数: 11, 售价: 1 鱼币)

2012-12-22 22:10 上传

点击文件名下载附件
邮箱登陆源码

小甲鱼

data := TIdMultiPartFormDataStream.Create; 
  ResponseStream := TMemoryStream.Create;
  try
    IdHttp1.Request.ContentType := data.RequestContentType;
    data.AddFormField('tbUserName','username'); 
    data.AddFormField('tbPassword','******'); 
    data.PrepareStreamForDispatch;
    data.Position := 0;
    IdHTTP1.Post(edtHost.Text, data, ResponseStream);
  finally
    data.Free;
    ResponseStream.Free;
  end;

覆手年华

小甲鱼 发表于 2012-12-22 17:12

                               
登录/注册后可看大图

太荣幸了 ~~~~  可是我还是不太明白  给个完整的例子 好不?:P

覆手年华

aminghanhua 发表于 2012-12-22 22:11

                               
登录/注册后可看大图

鱼哥厉害
刚自己弄了个简单的 不知道楼主是这个意思不 源码也上传了

非常感谢 代码也很简练实用 但是我用不了  可能是我没有说明白，我的意思是自动获取密码框与登录框然后输入，这个我就什么邮箱都等登录了 ，望回复~~~感激涕零:'(

451223449

小甲鱼 发表于 2012-12-22 17:12

                               
登录/注册后可看大图

在win7 64位里  用  delphi7 找不到  TIdMultiPartFormDataStream  怎么回事啊