Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Hilfe bei If then else (https://www.delphipraxis.net/133978-hilfe-bei-if-then-else.html)

DeddyH 13. Mai 2009 10:48

Re: Hilfe bei If then else
 
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 13. Mai 2009 11:01

Re: Hilfe bei If then else
 
erste durchlauf OK
zweiterdurchlauf hinter else stoppt er und es wird mir als Wert angezeigt 'Private'#0

DeddyH 13. Mai 2009 11:03

Re: Hilfe bei If then else
 
Dann versuch es mal mit trim().

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

Asatru 13. Mai 2009 11:09

Re: Hilfe bei If then else
 
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 13. Mai 2009 11:18

Re: Hilfe bei If then else
 
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 13. Mai 2009 11:31

Re: Hilfe bei If then else
 
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 13. Mai 2009 11:33

Re: Hilfe bei If then else
 
Zitat:

Spam abbrechen ?
:shock:

Asatru 13. Mai 2009 11:45

Re: Hilfe bei If then else
 
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 13. Mai 2009 12:10

Re: Hilfe bei If then else
 
Soll das eine Art Bot werden?

Asatru 13. Mai 2009 12:58

Re: Hilfe bei If then else
 
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!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz