Send keys issues with VBA

[Radoslaw Poprawski]

Hi.
I have the following code:

Sub Cisco_start()

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """%PROGRAMFILES(x86)%\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"""

WshShell.AppActivate "Cisco AnyConnect Secure Mobility Client"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

End Sub

and I can start the program, however all the "send keys" command do is implement TABB or ENTER within VBA editor and it does not pass it to cisco app.

any help?

 

[rlv01]

Try giving the cisco program some time to load.

Sub Cisco_start()

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """%PROGRAMFILES(x86)%\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"""

Application.Wait (Now + TimeValue("0:00:03"))

WshShell.AppActivate "Cisco AnyConnect Secure Mobility Client"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

End Sub

 

[Radoslaw Poprawski]

Thank you,
but it does not help
the "TAB" key is still being send str8 into VBA editor changing the code from:

Sub Cisco_start()

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """%PROGRAMFILES(x86)%\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"""

Application.Wait (Now + TimeValue("0:00:03"))

WshShell.AppActivate "Cisco AnyConnect Secure Mobility Client"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

End Sub

To:

Sub Cisco_start()

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """%PROGRAMFILES(x86)%\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"""

Application.Wait (Now + TimeValue("0:00:03"))

WshShell.AppActivate "Cisco AnyConnect Secure Mobility Client"
WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

End Sub

and if i go thru other steps it does the same - just adding keys to the vba editor.

 

[rlv01]

It's going to do that if you run the macro from the VBE. You need to launch it from a button and the cisco program must have focus. Get it working with NotePad.exe first, then move to the Cisco app.
Also, why are you using Set WshShell = CreateObject("WScript.Shell")?

VBA has a built in shell command along with Excel's built in Application.Sendkeys command.