tutorials.de Buch-Aktion 05/2012
Seite 1 von 2 12 LetzteLetzte
ERLEDIGT
JA
ANTWORTEN
21
ZUGRIFFE
4126
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    cobfreaky cobfreaky ist offline Mitglied Silber
    Registriert seit
    Apr 2008
    Beiträge
    52
    Hallo Leute,

    Wie lautet der Code, mit dem Ich Tastendrücke Simulieren kann?
    Es geht um die Tasten "y" und "^".
    Die Tasten sollten im Sekundentakt gedrückt werden, also muss der Code einfach in einen Timer, oder?

    Gruß,
    Cob
     

  2. #2
    Avatar von wincnc
    wincnc wincnc ist offline Mitglied Platin
    Registriert seit
    Aug 2004
    Beiträge
    632
    Hallo

    Das mit dem Timer stimmt.
    Schau mal in der Hilfe unter SendKeys nach.
     

  3. #3
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Oder du postest etwas mehr Hintergrund zu deinem Problem.

    Da du einen Timer erwähnst, gehe ich davon aus, dass du eine Form hast.

    Sollen die Tastendrücke an ein externes Programm gesendet werden, oder soll es innerhalb deines Projekts landen?
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  4. #4
    cobfreaky cobfreaky ist offline Mitglied Silber
    Registriert seit
    Apr 2008
    Beiträge
    52
    Für ein Externes Programm, genauer gesagt für das Spiel "Metin 2". Hier kann man durch drücken der "Y"-Taste Yang einsammeln, welches dort die Währung ist. Mit dem Zirkumflex sammelt man umliegende Gegenstände auf.
    Manchmal liegen in meinem Umfeld unzählige Yangs rum und Ich muss dann immer einzeln drücken, dass nervt, dafür ist das Programm gedacht
    Nochwas: Es ist erlaubt sowas zu Programmieren und verstößt nicht gegen die Regeln, ich habe ein Ticket geschrieben.
     

  5. #5
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Auszug aus der VB-Hilfe:

    SendKeys-Anweisung

    Sendet eine Tastenfolge (die aus einem oder mehreren Tastenanschlägen bestehen kann) an das aktive Fenster, als ob sie über die Tastatur eingegeben worden wäre.

    So, jetzt musst du nur noch dafür sorgen, dass dein Spiel-Fenster immer das aktive Fenster ist, und dazu gibts massig Beispiele im Internet.

    Falls es passieren kann, dass dein Spiel-Fenster nicht immer das aktive Fenster ist, ist die API "SendMessage" mit ihren Konstanten dein Freund.
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  6. #6
    cobfreaky cobfreaky ist offline Mitglied Silber
    Registriert seit
    Apr 2008
    Beiträge
    52
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    
    Private Sub Command1_Click()
    Timer1.Interval = 1
    End Sub
     
    Private Sub Command2_Click()
    Timer1.Interval = 0
    End Sub
     
    Private Sub Timer1_Timer()
    SendKeys.Send "vbkeyy"
    End Sub

    Irgendwie geht der Code nicht.
    Kann mir einer ein beispiel geben?
    Geändert von cobfreaky (28.07.08 um 15:51 Uhr)
     

  7. #7
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Zitat Zitat von cobfreaky Beitrag anzeigen
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    
    Private Sub Command1_Click()
    Timer1.Interval = 1
    End Sub
     
    Private Sub Command2_Click()
    Timer1.Interval = 0
    End Sub
     
    Private Sub Timer1_Timer()
    SendKeys.Send "vbkeyy"
    End Sub
    Irgendwie geht der Code nicht.
    Kann mir einer ein beispiel geben?
    SendKeys.Send vbkeyy

    OHNE ANFÜHRUNGSZEICHEN!
    vbKeyY ist eine VB-Konstante
    cobfreaky bedankt sich. 
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  8. #8
    cobfreaky cobfreaky ist offline Mitglied Silber
    Registriert seit
    Apr 2008
    Beiträge
    52
    Habe ich gerade probiert, aber dann wird der Befehl "Sendkeys" blau hinterlegt und es kommt die Fehlermeldung: Argument not Optional

    Zvoni, hast du evtl. ICQ, wo du mir helfen könntest?
     

  9. #9
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Wupps. Sorry! Mein Bock. Kommt davon, wenn man die VB-Hilfe nicht zu Ende liest.

    Sendkeys "{y}"

    So heisst es richtig. Nix mit SendKeys.Send
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  10. #10
    cobfreaky cobfreaky ist offline Mitglied Silber
    Registriert seit
    Apr 2008
    Beiträge
    52
    Danke! Dickes Lob
     

  11. #11
    jan002 jan002 ist offline Mitglied
    Registriert seit
    Sep 2008
    Beiträge
    15
    kann ich das hier:
    Private Sub Command1_Click()
    Timer1.Interval = 1
    End Sub

    Private Sub Command2_Click()
    Timer1.Interval = 0
    End Sub

    Private Sub Timer1_Timer()
    SendKeys.Send "vbkeyy"
    End Sub
    einfach in die Konsolenanwendung kopieren oder was muss ich genau machen damit sie funktioniert?
    Danke
     

  12. #12
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Wie wärs wenn du erstmal den ganzen !! Thread durchliest?
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  13. #13
    jan002 jan002 ist offline Mitglied
    Registriert seit
    Sep 2008
    Beiträge
    15
    Habe ich ja.
    Könnt ihr mir sagen was ich jetzt genau eingeben muss damit alle 5 Sekunden die Taste x gedrückt wird.
     

  14. #14
    Zvoni Zvoni ist offline Mitglied Platin
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    735
    Du scheinst nicht kapiert zu haben, dass der Code, DEN DU ZITIERST nicht funktioniert?
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

  15. #15
    jan002 jan002 ist offline Mitglied
    Registriert seit
    Sep 2008
    Beiträge
    15
    Welcher Code funktioniert dann?
     

Ähnliche Themen

  1. Tastendruck Simulieren?
    Von piätch im Forum C/C++
    Antworten: 2
    Letzter Beitrag: 08.10.10, 20:26
  2. Tastendruck simulieren
    Von ZeRoXX im Forum Visual Basic 6.0
    Antworten: 7
    Letzter Beitrag: 05.09.08, 13:54
  3. Tastendruck für directinput simulieren
    Von letsgo2u im Forum .NET Café
    Antworten: 3
    Letzter Beitrag: 02.04.08, 14:31
  4. Tastendruck simulieren
    Von letsgo2u im Forum Visual Basic 6.0
    Antworten: 2
    Letzter Beitrag: 09.03.08, 12:16
  5. Tastendruck Simulieren
    Von gerd87 im Forum Javascript & Ajax
    Antworten: 8
    Letzter Beitrag: 07.10.05, 12:26