Other systems

Development Platform:

Delphi

FakeMsg.pas：Code Content

							unit FakeMsg;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, ComCtrls, Buttons;
type
  TFakeMsgDlg = class(TForm)
    Label1: TLabel;
    edSendId: TEdit;
    Label2: TLabel;
    edRecvId: TEdit;
    Label3: TLabel;
    edFaceNo: TSpinEdit;
    Label4: TLabel;
    NowDate: TDateTimePicker;
    NowTime: TDateTimePicker;
    Label5: TLabel;
    Label6: TLabel;
    edMsg: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label7: TLabel;
    edRecvIP: TEdit;
    Label8: TLabel;
    edSendNum: TSpinEdit;
    Label9: TLabel;
    edDestPort: TSpinEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    class procedure Execute(ip,id:string;port:WORD);
  end;
implementation
{$R *.DFM}
uses data;
{ TFakeMsgDlg }
class procedure TFakeMsgDlg.Execute(ip, id: string;port:WORD);
var
i:Integer;
begin
with TFakeMsgDlg.Create(Application) do
    begin
    edRecvId.Text:=id;
    edRecvIp.Text:=ip;
    edDestPort.Value:=port;
    if(ShowModal=mrOk)then
        begin
        for i:=0 to edSendNum.Value do
            begin
            SendFakeMsg(edSendId.Text,IntToStr(edFaceNo.value),edRecvId.Text
                ,edRecvIp.Text,edDestPort.Value,edMsg.Text,NowDate.Date,NowTime.Time);
            end;
        end;
    Free;
    end;
end;
procedure TFakeMsgDlg.FormCreate(Sender: TObject);
begin
NowDate.Date:=Date;
NowTime.Time:=Time;
end;
end.

						