Autoconnection à aol

Soyez le premier à donner votre avis sur cette source.

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

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
Messages postés
60
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
11 février 2007

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

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.