SendKeys.SendWait

[tacoman667]

I am trying to sendkeys.sendwait("%FO"), but for some reason it will not send these keys or it sends them but will not wait. I need to make this macro for a program that doesn't have an activeX handle, so it has to be shelled in order to put it as the active window when sendkeys shoots off.

shell("MyProgramToSendKeysTo")
 
Wait(12) 'my own wait command that works
 
SendKeys.SendWait("%FO")

[tacoman667]

Bump, I could still use some help on this problem.


Thanks!


Taco

[Paolo_ituk]

SendKeys.SendWait("%FO")

This will send keys ALT+F followed by O (without ALT). Are these the keys you want to send to the active application ?

[tacoman667]

I need to send ALT, then F, then O.

Basically a macro to Save from the filemenu. Dan't ask, it's for my company program I am working on.

Thanks for the reply!


Taco

[MrGTI]

This is just a small guess, but if the secondary program isn't the active window, then the send keys command would be applied to your app.

[tacoman667]

That is understood, but the 2nd app IS the active app. I can check again but if it isn't, how would I go about making it the active window without using a getobject commend? It doesn't seem to have a handle I can grab and processes class doesn't have the option to make a process z-order 0.


Thanks.


Taco

[AGates]

Shell("target.bat", AppWinStyle.NormalFocus, True)

The last true make the rest of the code wait until the program is "finished". Whether that means that the program closes or if it finishes starting up I'm not sure.

This is in VS .NET 2005.

[benmartin101]

thought about using API functions? Find the handle of the window, then send a WM_COMMAND(this basically sends a filemenu command). You may have to use spy++ to find out what the id number of the "Save" menu. But then again, if your not familiar with using API functions, then ignore this message.

[benmartin101]

however, if all you need is to make the other app the active window, use this code:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Integer) As Integer
 
Dim hwnd As Integer
hwnd = FindWindow(vbNullString, "put name of the title bar of app here")  
BringWindowToTop(hwnd)

just remember though, the app you want to make as the active window must not be currently minimized. It only works if its behind in the background.

[penagate]

Send a message is always going to be safer than using SendKeys. In fact, I'd go so far as to say, never use SendKeys at all. It is a lousy, quick+dirty method of accomplishing something that should be done the "proper" way, with window messages (i.e. SendMessage).

[tacoman667]

In VS 2005, How do I get a list of the API calls like in VB6? I would like to research more on this sending messages to the program.


Thanks to all who reply!!

Taco

[penagate]

API calls are platform-dependent, so they're the same for each language. Use MSDN

Just remember to type HWND's as IntPtr's and that what you would make Long's in VB6 you make Integer's in VB.NET.

Imports System.Runtime.InteropServices
 
<DLLImport("user32"> _
Private Shared Function SendMessageW ( _
    hWnd As IntPtr, _
    uMsg As Integer, _
    wParam As IntPtr, _
    lParam As IntPtr _
) As IntPtr: End Function