Hilfe bei If then else

[DeddyH]

Setz doch einmal einen Breakpoint und schau Dir den Inhalt der Variablen an. Evtl. liegt es nur an Groß- oder Kleinschreibung oder etwas in der Art.

[Asatru]

erste durchlauf OK
zweiterdurchlauf hinter else stoppt er und es wird mir als Wert angezeigt 'Private'#0

[DeddyH]

Dann versuch es mal mit trim().

[edit] Btw: Handelt es sich um Controls in einer Fremdanwendung? [/edit]

[Asatru]

Ok da habsch mich oben net richtig ausgedrückt ja es ist eine fremde anwendung!

MFG

Edit: Kann es sein das ich den Wert aus GetWIntext wieder löschen muss nach jeden Loop? oder ist das automatisch?

[mleyen]

Gibst du der Anwendung überhaupt Zeit alles abzuarbeiten?
Poste doch mal den kompletten Code mit evtl. der Fremdanwendung, dann müssen wir nicht mehr rumraten.

[Asatru]

ja delay sind drin

Delphi-Quellcode:

var
   Text: String;
Begin
   Text:= 'Private';

{andere Anweisungen}

  if RadioButton2.Checked then  //Private
    begin
      for i := 1 to 10 do
        begin
          handle1 :=  FindWindow('wxWindowClassNR', PCHar(Edit1.Text));
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_PANEL1');
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClass', 'ID_LISTBOOK1');
          handle1 :=  FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_SCROLLEDWINDOW6');
          handle4 :=  GetDlgItem(handle1, 428);
          handle3 :=  GetDlgItem(handle1, 430);
          handle2 :=  GetDlgItem(handle1, 426);

          if (handle1 <> 0) and (handle2 <> 0) then
                begin
                  if trim(GetWintext(handle4)) = Text then
                    begin
                      showmessage(Getwintext(handle4));
                      if EscPressed('Anwendung abbrechen ?') then Break;
                      delay(6000);
                    end
                  else
                    begin
                      Showmessage(Getwintext(handle4));
                      PostMessage(handle4, WM_KEYUP, Integer('P'), 0);
                      if EscPressed('Anwendung abbrechen ?') then Break;
                      delay(6000);
                    end;
                end;
        end;
    end;

[DeddyH]

Zitat:

Spam abbrechen ?

[Asatru]

Jup wusste net wie ich es sonst nennen soll, später wird die schleife entfernt und eben nur gechekd ob wert stimmt und dann via hotkeys eben vorbestimmte texte rausgeschickt so wie es viele onlinespiele schon dabei haben nur das was ich nebenbei spiele nicht, gibt nur ein programm womit man was schreiben kann!

[DeddyH]

Soll das eine Art Bot werden?

[Asatru]

Nein. Es gibt online Spiele wo man via Shortcut vordefinierte Wortgruppen in den Chat bringen kann. Für mein Spiel ist es nicht möglich, aber es gibt ein prog was Privat und ähnliches per Handeinageb senden kann und er texte auch anzeigt die geschrieben wurde! Son Spambot zu schreiben ist ja keen ding, da kannsch das och vordefinieren! Es geht mir eben halt nur drum um via Tastendruck einmal einen Vordefinierten text zu senden!

Schleife habsch nur aus jucks gesetzt da wenn ich bsp. anderen Shortcut drücke er obwohl aussage wahr ist trotzdem den Buchstaben drückt obwohl er ihn nicht drücken müsste!