1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Autoconnection à aol

Autoconnection à aol

0/5 (1 avis)

Snippet vu 5 279 fois - Téléchargée 34 fois

Commenter

Contenu du snippet

Une source pour lancer la connection à AOL 7
à cumuler avec AOL tool et AOL 0.2+ que vous pouver trouver sur ce site

Source / Exemple : 


function EnumChildWindowsCallback(Wnd: HWND; lParam: TListBox): BOOL; stdcall;
//recherche les combobox de la fenetre d'invite
var
  Classe: array[0..255] of Char;
begin
  GetClassName(Wnd, Classe, SizeOf(Classe));
  if string(Classe) = '_AOL_Combobox' then
    begin
      inc(numComboAOL);
      //Lance la connexion
      PostMessage(Wnd, WM_KEYDOWN, VK_RETURN, 0);
      PostMessage(Wnd, WM_KEYUP, VK_RETURN, 0);
    end;
  // pour que l'énumération ne s'arrète pas; pour que EnumWindows continue à appeler EnumWindowsCallback pour les autres fenêtres
  if numComboAOL < 2 then
    result := true
  else
    result := false;
end;

function EnumWindowsCallback(Wnd: HWND; lParam: TListBox): BOOL; stdcall;
//Recherche La fenetre Principale d'AOL
var
  Classe: array[0..255] of Char;
begin
  GetClassName(Wnd, Classe, SizeOf(Classe));
  if string(Classe) = 'AOL Frame25' then
    begin
      numComboAOL := 0;
      EnumChildWindows(Wnd, @EnumChildWindowsCallback, 0);
      // EnumWindows va appeler EnumWindowsCallback pour chaque fenetre présente
      Result := false;
    end
  else
    // pour que l'énumération ne s'arrète pas; pour que EnumWindows continue à appeler EnumWindowsCallback pour les autres fenêtres
    Result := true;

end;

procedure TNewsBrain.BtnConnecterAOLClick(Sender: TObject);
begin
  EnumWindows(@EnumWindowsCallback, 0); // EnumWindows va appeler EnumWindowsCallback pour chaque fenetre présente

end;

Conclusion :


je prépare actuellement un petit logiciel de récupération programme TV, Météo, Annuaire inversé que j'espère mettre sur ce site d'ici maintenant moins de 2 semaines. alors à bientot

A voir également

Ajouter un commentaire Commentaire
TheChikenKiller Messages postés 60 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 11 février 2007
30 mai 2003 à 18:33
Très bien cela me sera utile mais si qqun sait comment qu'on peut avoir le nombre d'octets envoyés et reçus comme avec le numéroteur internet standard de windows ce serait vraiment bien
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_Brain)