How Can I Activate an App from Another App and Send Key Strokes

I have 2 separate applications running. From One application I need to activate (bring to front) the other application and send some keyboard keys to simulate the used pressing those keys.
The application that will activate the other is on VB.NET VS2005
LVL 1
ofern01Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

JRossi1Commented:
To activate another app:  store the window handle of the other application and then use BringWindowToTop to activate the app.

Also, look at this:  http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21112857.html#11941064

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ofern01Author Commented:
I do not call the other app from my VB program. It is already running when I exec my App. So i will need a way to find that handle from my VB program.
Mike TomlinsonHigh School Computer Science, Computer Applications, and Mathematics TeachersCommented:
You can use code like this to get a handle to the other apps window and Send keystrokes:

    Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hWnd As IntPtr) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ps() As Process = Process.GetProcessesByName("notepad")
        If ps.Length > 0 Then
            Dim p As Process = ps(0)
            Dim hWnd As IntPtr = p.MainWindowHandle
            SetForegroundWindow(hWnd)
            SendKeys.Send("Hello World!")
        End If
    End Sub

Notice that in GetProcessesByName(), we pass in the name of the Exectuable without any path and without the ".exe" extension.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.