怎么写邮箱注册器

Question

大侠们：
    你们好，小弟我现在想写一个关于邮箱注册器这样的程序，想用delphi写，但不知道怎么去写，因为没有写过，也不知道思路。请那位大侠赐教一下。最好能带一下源码。

Answer 1

找一下用TIdHttp或者TWebBrowser怎么提交变单，经常有人问题类似的问题

Answer 2

使用IDhttp模拟发送数据包
或者用webbrowser模拟填表单
前者速度快,但是实现起来比较麻烦,参数都得自己去整理
你可以先试着用webbrowser实现
用getelementByID,getElementByName, getElementsByTagName等获得表单对象,然后给他们赋值

Answer 3

当然可以，我直接贴在这里吧unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Label1: TLabel;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var o,o1,o2,o3,o4,o5,o6:Olevariant ;
ncs:string;
begin
//webbrowser1.Navigate('http://reg.email.163.com/mailregAll/reg0.jsp?from=163');
o:=webbrowser1.OleObject.document.all.item('inp_uname',0);
o.value:='abcuoiuo12121';
//o.value:=memo1.Lines.Strings[0]+'03tt12';    //用户名
o1:= webbrowser1.OleObject.document.all.item('password',0);
o1.value:='123456789';   //密码第一次
o2:= webbrowser1.OleObject.document.all.item('passwordconfirm',0);
o2.value:='123456789'  ;
webbrowser1.OleObject.document.getElementById('secproblem').selectedIndex := 1; //选择密码找回问题
o3:= webbrowser1.OleObject.document.all.item('secanswer',0)  ;
o3.value:='就是不告诉你';     //密码找回问题填写答案
webbrowser1.OleObject.document.getElementById('rd1').checked := True;//男rd1，女rd2
o4:= webbrowser1.OleObject.document.all.item('year',0)  ;//出生年
o4.value:='1989';
o5:= webbrowser1.OleObject.document.all.item('month',0)  ; //月
o5.value:='10';
o6:= webbrowser1.OleObject.document.all.item('day',0)  ;
o6.value:='21' ;
label1.Caption:='填写表单完成 请输入验证码 点击提交      '   ;
label4.Caption:='注册邮箱名 已复制到剪贴板  请粘贴      '    ;
label4.Caption:='复制联系人地址 粘贴即可 账户已添加到剪贴板  '
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.Navigate('http://reg.email.163.com/mailregAll/reg0.jsp?from=163');
end;end.