Chatsend aol

Commenter

Contenu du snippet

Ce code permet l'envoi de messages dans les salons d'aol (toutes versions).
Il vous faudra creer un bouton et une Editbox pour le tester.

-------------------------------
Merci aux codeurs de VBFrance.com, ce code n'est en fait qu'une conversion VB-> Delphi d'un source posté la bas par je ne sais plus qui.. navré.

Sylvain

Source / Exemple : 


var
  Form1: TForm1;
  room,waol , mdi , child, rich : Hwnd;
  list , echange, aolicon : THandle;
  test : integer;
  texte : string ;

implementation
  Procedure ChatSend(Texte: string)  ;
  Begin
  waol := FindWindowEx(0, 0, 'AOL Frame25', nil); //'on cherche waol
  mdi := FindWindowEx(waol, 0, 'MDIClient', nil);// 'on cherche la 2 eme parti de waollist := waol;
  child := FindWindowEx(mdi, 0, 'AOL Child', nil);// '1 ere fenetre
  rich := FindWindowEx(child, 0, 'RICHCNTL', nil);// 'ou on ecrit
  list := FindWindowEx(child, 0, '_AOL_Listbox', nil);// 'la liste des pseudo
  echange := FindWindowEx(child, 0, 'RICHCNTLREADONLY', nil);// 'ou tout le monde parle
  aolicon := FindWindowEx(child, 0, '_AOL_Icon', nil);// 'comme son nom l'indique

If (rich <> 0) And (list <> 0) And (echange <> 0) And (aolicon <> 0) Then //'tout est la ?
  begin
    room := child ;//'si oui

    If room = 0 Then Exit ;// 'on a pas trouvé
    rich := FindWindowEx(room, 0, 'RICHCNTL',nil) ;//'ou on ecrit

    SendMessage(rich, WM_SETTEXT, 0, THandle(texte) );// 'on met le texte
    SendMessage(rich, WM_CHAR, VK_RETURN, 0);// 'on appuie sur entrée
  End;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
       ChatSend(Edit1.text);
end;
end.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_TriTri6)