Taste drücken durch Programm ?

[Helmut]

Hi,

ich möchte mir ein Programm basteln, welches mir etwas an Zeit einspart.
Weiter unten erkläre ich, worum es im genauen geht.

Ich brauche dazu nur ein Programm was entweder ständig mausklicken macht (mausposition wird nicht verändert) oder in sekundenabständen die taste "k" drückt.

Damit will ich dieses DFÜ-Fenster steuern (siehe anhang).

_____

Erklärung:

Bei ISDN-XXL kann man sonntags kostenlos mit kanalbündelung surfen. Das Problem: die einwahlknoten sind überlastet. Das heisst: man muss mind. eine halbe stunde auf "aktivieren" klicken bis er die zweite verbidung aufbaut. Das programm soll automatisch solange auf aktivieren drücken bis die zweite verbindung aufgebaut ist oder solange "k" (aktivieren) drücken.

Wenn man aktivieren drückt und er kann sich nicht einwählen springt der button nach 1 1/2 sekunden wieder auf "aktivieren" zurück. Wenns geklappt hat bleibt der button mit der aufschrift "deaktivieren" stehen in dieser dfü-verbindung.

Glaubt ihr, das man das irgendwie realisieren kann?

[edit=Admin]Bild aus Beitrag entfernt. Es befindet sich ja im Anhang. Mfg, Daniel[/edit]

[City Light]

hallo

also ich denke mit einen Timer könnte man es versuchen
du mußt aber erst den Button der fremd anwendung ansteuern


Buttons fremder anwendungen drücken

Delphi-Quellcode:

//Zuerst ermittelt man das Fensterhandle mit folgender Anweisung:

FindWindow((Fensterklasse,wenn bekannt),Fenstertitel).

//Anschließend holt man das Fenster mit

SetForegroundWindow(Fensterhandle)nach vorn. //Dies ist jedoch nicht notwendig.

{Nun kann man mit keybd_event eine Tastenkombination an das Fenster schicken.
Wenn man mit FindWindowEx(ParentHandle, nil,nil,nil) rekursiv die entfernte
Anwendung nach dem gewünschten Button durchsuchen lässt, kann man hinterher
folgende Messages senden:
}

PostMessage(Handle.Kind,WM_LBUTTONDOWN,MK_LBUTTON,0);
PostMessage(Handle.Kind,WM_LBUTTONUP,0,0);

//Und schon wird der Button gedrückt.

[Christian Seehase]

Moin Zusammen,

also wenn man erst einmal das Handle des Button hat, wäre es einfacher diesen mit

Delphi-Quellcode:

SendMessage(ButtonHandle,BM_CLICK,0,0);

timergesteuert anzuklicken.

Dann muss das Fenster nicht mal sichtbar sein.

[Luckie]

So, jetzt mal mit dem Spiegel über die Schulter nach hinten gezielt mit dem Revolver:

Delphi-Quellcode:

procedure ClickIt;
var
  hWnd : Cardinal;
  hBtn : Cardinal;
begin
  hWnd := FindWindow(nil, 'verbunden mit XXL arcor');
  if hWnd = 0 then
  begin
    Messagebox(Handle, 'Fenster nicht gefunden', 'Fehler', MB_ICONSTOP);
    exit;
  end;
  hBtn := FindWindowEx(hWnd, 0, nil, 'Aktivieren');
  if hBtn = 0 then
  begin
    Messagebox(Handle, 'Knöppgens nicht gefunden', 'Fehler', MB_ICONSTOP);
    exit;
  end;
  SendMessage(hBnt, BM_CKLICK, 0, 0);
end;

Den Fenstertitel und den Buttontext könnte man als parameter übergeben, dann wird es etwas universeller.

[Christian Seehase]

Moin Luckie,

die Caption des Button müsste allerdings A&ktivieren sein ;-)

[Luckie]

Das spielt, glaube ich, keine Rolle. Wie gesagt, nur mit dem Spiegel über die Schulter. Dann hat die Jungfrau auf der rotierenden Scheibe eben einen kleinen Kratzer abbekommen. :mrgreen:

Ist der Kringel denn auch dabei, wenn ich mit WM_GETTEXT die Caption hole? :roll:

[Christian Seehase]

Moin Luckie,

sollte er auf jeden Fall.
Einer der Gründe, warum ich, nach Möglichkeit, lieber die ID nehme als den Text.

[Luckie]

Die müßte man sich dann erst mit Spy++ suchen.

[Helmut]

wow, wieviele antworten! :D

Hatte heute leider keine zeit mehr mich mit dem problem zu beschäftigen. Aber morgen oder übermorgen werd ich mir mal die einzelnen beispiele genauer ansehen.

Es ist auf jeden fall wichtig das nicht der button gedrückt wird, sondern die taste.
Denn wenn der button gedrückt wird und die verbdingung hergestellt wurde, trennt man ja die verbindung nach einem erneuten klick auf den button (weil die caption dann ja deaktivieren ist). Aber das sollte kein problem sein mit dem captionauslesen.
Nagut, wie gesagt, morgen oder übermorgen mach ich mich an die arbeit. Dürfte ja dank euren super erklärungen nicht sehr schwierig sein, auch für mich anfänger :D

Vielen dank für die schnelle hilfe! Was wär ich bloss ohne euch und das delphi-praxis-forum! :dancer: :dancer:

mfg
Helmut

[nailor]

wenn man den Button entsprechend der Caption sucht, sollte es ja kein Problem sein, ihn nur so lange zu drücken, wie nötig...

[Luckie]

Zitat:

Zitat von Helmut

Es ist auf jeden fall wichtig das nicht der button gedrückt wird, sondern die taste.

:wiejetzt:

Wo ist bei dir jetzt der Unterschied zwischen Button und Schalter?

[Helmut]

ja, hab mir halt noch nicht alles durchgelesengehabt :)
Das an ausversehen drückt wenn die verbdingung aufgebaut ist, ist ja desshalb schon nicht gegeben weil man ja nach dem namen aktivieren sucht.

Hab deinen Quelltext genommen, und der klappt super.
Werd das ganze jetzt nurnoch in eine schleife einbauen, und ein paar sachen noch hinzufügen.

Dann poste ich das programme hier :)

danke!

[Helmut]

So, hab das Programm erstmal im grundkonzept fertig.

Es gibt einen knopf (button2, button 1 spielt jetzt noch keine rolle) auf den man klickt, dann wird der 2. kanal aktibiert.
In dem edit1-feld sollte man den namen des fensters angeben, allerdings funktioniert das nur manchmal. Ich glaube das liegt an der konvertierung von String zu PChar. Selbst wenn man den richtigen namen eingibt kommt "fenster nicht gefunden".

Und eine zweite sache funktioniert auchnochnicht:
er gibt keine meldung aus wenn er den button nicht findet oder wenn die verbindung aufgebaut ist (wollte das so machen das wenn nach 5 durchläufen alle mal "deaktivieren" gefunden wurde, ist die verbindung aufgebaut).

Ich muss heute nachmittag nochmal suchen was da falsch ist, auf die schnelle fällts mir nämlich nicht auf.. :roll:

Hier mal der gesamte quellcode:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure clickit(name_: PChar);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  test : integer;
  fenstername: PChar;
  error: boolean;

implementation

{$R *.dfm}

procedure Tform1.ClickIt(name_: PChar);
var
  hWnd : Cardinal;
  hBtn : Cardinal;
begin
  hWnd := FindWindow(nil, 'Verbunden mit XXL arcor');
  if hWnd = 0 then
  begin
    timer1.Enabled:=false;
    Messagebox(Handle, 'Fenster nicht gefunden', 'Fehler', MB_ICONSTOP);
    button1.enabled:=true;
    button2.Enabled:=true;
    error:=true;
    exit; 
  end;
  hBtn := FindWindowEx(hWnd, 0, nil, 'A&ktivieren');
  if hBtn = 0 then 
  begin
    hBtn := FindWindowEx(hWnd, 0, nil, '&Deaktivieren');
    if hBtn = 0 then
    begin
     //showmessage('Der Knopf wurde nicht gefunden. Schalten sie eventuell die Details ein.');
     Messagebox(Handle, 'Der Knopf wurde nicht gefunden. Schalten sie eventuell die Details ein.', 'Fehler', MB_ICONSTOP);
     button1.Enabled:=true;
     button2.Enabled:=true;
     timer1.enabled:=false;
     exit;
    end;
    test:=test+1;
    if test>5 then
    begin
     timer1.enabled:=false;
     showmessage('2.Kanal aktiviert!');
    end;
    exit;
  end;
   test:=0;
   SendMessage(hBtn, BM_CLICK, 0, 0);
end; 


procedure TForm1.Button2Click(Sender: TObject);
begin
error:=false;
timer1.tag:=1;
button1.Enabled:=false;
button2.Enabled:=false;
fenstername:=PChar(edit1.text);
timer1.enabled:=true;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (test>5) or (error=true) then
 begin
  timer1.Enabled:=false;
  timer1.tag:=0;
  test:=0;
  if error<>true then showmessage('2. Kanal aktiviert!');
  button1.Enabled:=true;
  button2.Enabled:=true;
  exit;
 end
 else
 begin
  if timer1.tag=1 then clickit(fenstername);
 end;
end;
end.

[BrainCode]

Hat nicht jemand vielleicht eine Idee, wie man die Kanalbündelung via API-Aufruf ein- und ausschalten kann? Dann könnte man sich den ganzen Stress mit dem Drücken "fremder" Knöpfe sparen.

[Helmut]

ok, das programm klappt jetzt soweit.

Leider konnte ich diesen fehler nicht beheben:

der code

Code:

hWnd := FindWindow(nil, 'Verbunden mit XXL arcor');

klappt,

Wenn ich jetzt allerdings ein edit-feld habe, worin

Code:

Verbunden mit XXL arcor

steht und dieses an die PChar-variable "fenstername" übergebe

(

Code:

fenstername:=PChar(edit1.text);

)

und dann den Code so ändere:

Code:

hWnd := FindWindow(nil, fenstername);

findet er das Fenster nicht.

Aber es ist doch beides genau das gleiche, oder shee ich das Falsch?

Im Forum konnte ich nicht besonders viel zu PChar finden, aber ich hab irgendwo gelesen das es Probleme gibt beim umrechnen von String zu PChar.
Gibt es keine Möglichkeit den Fensternamen variabel zu nutzen? (sonst klappt das ja nur wenn der Anwender genau diesen namen hat :( )

[Helmut]

ah, habs,

musste den text aus dem edit-feld erst an einen string übergeben und den dann mit PCHAR(string) umwandeln anstatt direkt.

[Luckie]

Versuch mal:

Code:

FindWindow(nil, Edit1.Text);

Eventuell noch einen Cast mit PChar machen.

[Helmut]

So, das hab das programm soweit fertig.
Die richtigen programmierer werden vielleicht lachen, aber es erfüllt für meine zwecke seine aufgaben super.

Es kann nur den 2. kanal einer beliebigen DFÜ-Verbindung aktivieren, auch wenn diese erst nach 50 oder 100 versuchen aufgebaut werden kann

download:
http://command01.bei.t-online.de/fil...oconnector.exe

Ich poste es nicht in der Programm-Test-Rubrik, weils ja kein richtiges Programm ist, mehr so ein script oder so :D

Danke an euch für die Hilfe. Die Tipps kann ich bestimmt auch noch für andere Programme gebrauchen.

mfg
Helmut

[Luckie]

Seit wann kann man mit Delphi Scripte erstellen? Und was wäre für dich ein richtiges Programm?

[Helmut]

Ein richtiges Programm wäre für mich umfangreicher.

Du hast natürlich recht... alles was man in delphi macht ist ein programm.

[Luckie]

Also wäre ShowErrorMessage von meiner Seite auch kein richtiges Programm für dich?

Wird zwar langsam Off-Topic, aber da ja sowieso alles gelöst ist in diesem Thread, wird Chefchen wohl nichts dagegen haben. :mrgreen:

[Helmut]

nein, ihr habt doch alle richtige programme :lol:

Ich hab das doch bloss so gesagt, um abwärtend über mein programm zu sprechen. Weil das nur eine kleine klickfunktion macht, deren script ich noch nichtmal komplett selber geschrieben hab.

Aber ich möchte mich mit dir natürlich auchnicht streiten:

also das wa sich gemacht habe ist definitiv ein programm! :dancer2: :mrgreen:

[Pyr0cracker]

wenn du eine dfüverbindung machst kommt doch ein fenster wo du deinen namen und passwort eingeben kannst, auf jeden fall bei win xp, in den eigenschaften kannst du die wahlwiederholung einstellen

[Pyr0cracker]

kannst du nicht mal das ganze prog+source anhängen?
wär nett, ich brauch nämlich sowas ähnliches und bin delpianfänger :coder:

PS:was is eigentlich mit den 4 dicken smilies(rot,grün,grün mit flamme und gelb los?

[Helmut]

Hi Pyr0cracker,

1.: ich hab win98, da gibts keine wahlwiederholung (nur wenn man IE-explorer nimmt) Und der 2. kanal geht nicht mit wahlwiederholung, auch nicht mitm IE. Deswegen kann mein prog nur den 2. kanal aktivieren.

2.: kann ich machen, ich hoffe das ich nicht zu wenig anhenge, ich vergess immer wleche dateien das sein müssen.
Sorry das ich deinen post erst so spät gelesen hab.

Ist ne selbstentpackende rar-exe. Da sind die pas, dpr und dfm datei drin.