www.pudn.com > oicqspysrc.zip > FakeMsg.pas

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.