---

Hallo Forum, heute hab ich mal eine Frage, die nicht dirkt mit AutoCAD-VBA zusammen hängt.

...Und zwar versuche ich mit der SendKeys Methode, Tastenfolgen an eine Befehlszeilenanwendung (cmd.exe) zu übergeben. Das funktioniert aber nicht, warum!? ...Obwohl die Routine für andere Anwendungen, zum Beispiel den Rechner, dem Editor, usw. funktioniert.

Der Code:
x = Shell("cmd.exe", 1)
AppActivate x, 1
SendKeys "TestString", True

(Bei einer Befehlszeilenanwendung erzeugt auch AppActivate einen Fehler)

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ALso ich muß sagen Sendkeys funktioniert nicht immer!
( wennst mit der Maus rumklickst kann es passieren das die Sendkeys in ein anderes programm reinschreibst!
aber so sollte es zumindest gehen!

--> Sendkeys vermeiden!! eher eine Bat datei schreiben oder erzeugen und diese starten

MFG Chris

Private Declare Sub PauseProg _
    Lib "kernel32" _
    Alias "Sleep" ( _
        ByVal ZeitMilli As Long)

'Argumente:
'ZeitMilli: Zeitwert in Millisekunden

Sub test()
    Dim P_ID As Double
    Dim n As Integer
    P_ID = Shell("cmd.exe", vbNormalFocus)
    'cmd.exe benötigt etwas zeit zum starten
    'daher eine Pause einlegen
    ' nicht zu lange sonst landen die keys in einem anderen Programm
    'nicht zu kurz sonst ist der string nicht komplett
    Call PauseProg(10)
    AppActivate P_ID
    Call PauseProg(1000)
    SendKeys "dir", True
    SendKeys "{ENTER}", True
End Sub

[Diese Nachricht wurde von c.schojer am 03. Sep. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

SendKeys funktioniert im Prinzip nur mit Windowsanwendungen. DOS-Boxen gehören da nicht dazu.
Das beschriebene Problem mit dem Rumklicken und daß dann andere Anwendungen die Tastenanschläge erhalten, kann man vermeiden, in dem man unmittelbar vor dem SendKeys die Anweisung AppActivate verwendet.

Gruß, Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP