appActivate and sendkeys to a simple telnet window?

[TDQWERTY]

As simple as this:

Dim telnet
telnet = Shell("telnet.exe", vbNormalFocus)
AppActivate telnet, True
SendKeys "open", True

but why it doesn't work?

[manavo11]

Doesn't work is very vague... What is the problem? It doesn't get activated? It doesn't send the keys?

[Spajeoly]

You know, for kids!

[TDQWERTY]

The problem is that i can't even run that, it gives an error in
AppActivate telnet, True - invalid procedure call or argument

i'v tryed to using just shell("telnet.exe") and then sendkeys but the telnet window didn't received any key.

[Bootking]

Hey I got it to work just fine.

Private Sub Command1_Click()
    AppActivate telnet
    SendKeys "Hi" & vbCrLf
End Sub
 
Private Sub Form_Load()
    telnet = Shell("telnet.exe", vbNormalFocus)
End Sub

The vbCrLf in there is the enter key in case you didn't know.

[TDQWERTY]

invalid procedure call or argument
on AppActivate telnet

[Bootking]

In my code, 'Telnet' needs to be in a higher scope. If you had tried to run it as i had posted it before, 'Telnet' would have a value of zero in the Command1_Click() routine. Maybe that's your problem, I don't know. But it works when I try it.

Option Explicit
 
Dim Telnet As Double
 
Private Sub Command1_Click()
    AppActivate Telnet
    SendKeys "Hi" & vbCrLf
End Sub
 
Private Sub Form_Load()
    Telnet = Shell("telnet.exe", vbNormalFocus)
End Sub

[TDQWERTY]

well...this didn't worked for me, it's strange but it didn't work