komisch hier mal nen source schnippsel :
Delphi-Quellcode:
procedure TForm1.OnlineTimerTimer(Sender: TObject);
begin
if InternetCheckConnection(PChar('http://www.heise.de'),1,0) then
begin
icqClient1.Login;
icqClient1.SendMessage(UIN,Message);
IcqClient1.Disconnect;
end
else
blabalal...
end;
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.UIN:=strToInt(edit1.Text);
ICQClient1.Password:='xxxxxx';
ICQClient1.Login;
ICQClient1.SendMessage(strtoint(edit3.Text),edit4.text);
ICQClient1.Disconnect;
end;
einloggen tut er sich , ich sehe meinen 2 account online gehen, aber ne message kommt nich an