Sujet Précédent Sujet Suivant

Probleme

thone08 Messages postés 58 Date d'inscription dimanche 19 janvier 2003 Statut Membre Dernière intervention 9 mars 2005 - 22 mars 2003 à 20:36
cs_Bestiol Messages postés 833 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 3 novembre 2005 - 23 mars 2003 à 15:38
voila ma source mais kand ej lanc ele prog il palnte en cotninuan a marhce

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, wininet, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function IsUserOnline:Boolean;
var
Connect_status : dword ;
begin
connect_status := 1;
result := InternetGetConnectedState (@connect_status,0);
end;

procedure x ;
begin
repeat

begin
begin
while IsUserOnline = true do
sleep(4)

end;

showWindow(FindWindow('AOL frame25',nil),SW_MINIMIZE);
showWindow(FindWindow('AOL frame25',nil),SW_NORMAL);
keybd_event(VK_RETURN,0,1,0); //touche enfoncé
keybd_event(VK_RETURN,0,2,0); //touche relevé
keybd_event(VK_RETURN,0,1,0); //touche enfoncé
keybd_event(VK_RETURN,0,2,0); //touche relevé
sleep(40000);

end;

until FindWindow('AOL Frame25',nil)=0
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

WinExec (PChar ('Rasdial.exe aol'), SW_SHOWNORMAL);
sleep(5000);
keybd_event(VK_RETURN,0,1,0); //touche enfoncé
keybd_event(VK_RETURN,0,2,0); //touche relevé
sleep(40000);
x;
end;

end.
si qq un pouV m'aider meric d'avance

1 réponse

Réponse 1 / 1
cs_Bestiol Messages postés 833 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 3 novembre 2005 1
23 mars 2003 à 15:38
"voila ma source mais kand ej lanc ele prog il palnte en cotninuan a marhce"
"si qq un pouV m'aider meric d'avance"
Veux-tu qu'on t'aide à écrire en Français ?!

Sinon, tu pourrais au moins nous dire où ça plante... Si ça ne te donne pas un ligne précise avec Delphi, essaye de voir avec une exécution Pas à pas...

Bonne prog' !!
[mailto:bestiol@cario.fr Bestiol.]
0
Rejoignez-nous