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

unit NukeInfo; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, Spin; 
 
type 
  TNukeInfoDlg = class(TForm) 
    Label1: TLabel; 
    edSendId: TEdit; 
    Label3: TLabel; 
    edFaceNo: TSpinEdit; 
    edSendNum: TSpinEdit; 
    Label8: TLabel; 
    Label6: TLabel; 
    edMsg: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    class function Execute(var SrcId:string;var FaceNo,Cnt:DWORD;var msg:string):Boolean; 
  end; 
 
implementation 
 
{$R *.DFM} 
 
{ TNukeInfoDlg } 
 
class function TNukeInfoDlg.Execute(var SrcId: string; var FaceNo, Cnt: DWORD; 
    var  msg: string): Boolean; 
var 
n:integer; 
s:string; 
begin 
with TNukeInfoDlg.Create(Application) do 
    begin 
    Result:=(ShowModal=mrOk); 
    SrcId:=edSendId.Text; 
    FaceNo:=edFaceNo.Value; 
    Cnt:=edSendNum.Value; 
    msg:=edMsg.Text; 
    if(Length(msg)<1024)then 
        begin 
        for n:=0 to (1200 div Length(msg)) do 
            begin 
            s:=s+msg; 
            end; 
        msg:=s; 
        end; 
//    ShowMessage(IntToStr(Length(msg))); 
    Free; 
    end; 
end; 
 
end.