Click here to Skip to main content
15,860,972 members
Articles / Programming Languages / Visual Basic
Article

ByPass difficult Automation and add applications "as is" in your .NET application

Rate me:
Please Sign up or sign in to vote.
3.40/5 (29 votes)
28 Dec 2004CPOL4 min read 153.4K   2.9K   74   34
Fed up with automation? Need to add components as is to your application? Try this out.

Image 1

Image 2

Introduction

I was given so many tasks of automation. That I was really fed up with them. Once my manager asked me to automate IE as in our application, so that user feels that it's the application's IE browser. One other day, I was asked to add Word control and make a Window in the application with Word look and feel and same Toolbars. So then I thought there must be a way in Dotnet to add the applications "as is" and some kind of communication with them as well.

Note: Of course, the kind of flexibility you achieve with automation can not be achieved via this way. But "according to the requirements", it can reduce time to market and prevent adding heavy automation code and DLLs.

Using the code

I have shown how different applications can be added easily in a control or Form. If you add it in a Form, user will feel that it will become kind of MDI application holding other application. First demo application shows how to add Command Prompt, Internet Explorer, Windows Media Player and WinWord. Second application shows how to interact with them.

Add Applications Demo

Main functions which are used in this case are from user32. That are SetParent, ShowWindow and SetForegroundWindow. Rest of the help is provided by managed Process, ProcessInfo and SendKeys classes.

VB
Declare Function ShowWindow Lib "user32" (ByVal hWnd As System.IntPtr, 
        ByVal nCmdShow As Integer) As Boolean
Declare Function SetParent Lib "user32" (ByVal hWndChild As System.IntPtr,
        ByVal hWndNewParent As System.IntPtr)
        As System.IntPtr
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As System.IntPtr)
                As Integer

Following code is written on "Open -> Command Prompt-> Open as Normal and Add as Min" menu. It opens the command window using Process.Start() as normal and then adds it to parent window (which is a .NET window) as a sub window using ShowWindow function and makes its state minimized.

VB
Dim pinfo As New ProcessStartInfo("cmd")
Dim p As Process = System.Diagnostics.Process.Start(pinfo)
SetParent(p.MainWindowHandle, Me.Handle)
ShowWindow(p.MainWindowHandle, SW_MINIMIZE)

Second menu is Open ->Get Running Browser and make it full screen. You have to have at least one IE window open for this functionality. It captures it and adds it in the main form as maximized. Closing the application will also close this window.

VB
Dim p As Process() = System.Diagnostics.Process.GetProcessesByName("iexplore")
Try
    SetParent(p(0).MainWindowHandle, Me.Handle)
    ShowWindow(p(0).MainWindowHandle, SW_MAXIMIZE)
Catch ex As Exception
    MessageBox.Show("No IE window open - Please open one")
End Try

Third menu is opening a Media Player and adding it to a button and play a file present in XP Media directory. Open -> Media Player - in a Button - Max. Another interesting point is, Media folder is not listed in Enviornment.SpecialFolders. So you have to get it like the way I have used below:

VB
Dim p As Process = System.Diagnostics.Process.Start("mplayer2", 
Environment.GetEnvironmentVariable("WINDIR") + "\\Media\\Windows XP Startup.wav")
p.WaitForInputIdle()
SetParent(p.MainWindowHandle, Me.Button1.Handle)
ShowWindow(p.MainWindowHandle, SW_MAXIMIZE)

Fourth and last menu is adding WinWord and add it in a Label. Open -> WinWord - In a Label. WaitForInputIdle helps in getting the Winword to an idle state.

VB
Dim pinfo As New ProcessStartInfo("WINWORD")
Dim p As Process = System.Diagnostics.Process.Start(pinfo)
p.WaitForInputIdle()
SetParent(p.MainWindowHandle, Me.Label1.Handle)

Interact with Application (Calc.exe and IE)

Run the demo. Open any website using IE window external from the demo. Click "Get Running IE Window". It will get the running IE window instance and add it to the control and get its HTMLDocument and display all the source in the TextBox. It will also display its title on the label next to the button. Click on the "Open Calc" button. It will open the calc in user Window. Do all the calculations and close the calculator. The result will come back to the TextBox next to "Open Calc" button.

IE demo important points

IE demo uses IEDom class to retrieve the DOM of IE window. IsIEServerWindow function looks for Internet Explorer_Server class. WM_HTML_GETOBJECT message is send to Windows handle using RegisterWindowMessage Win32 call. Then ObjectFromLresult function to get IHTMLDocument object.

VB
If Not IsIEServerWindow(hWnd) Then

   ' Get 1st child IE server window
   win32.EnumChildWindows(hWnd, AddressOf EnumChild, hWnd)

End If

If Not hWnd.Equals(0) Then

  ' Register the message
  lMsg = win32.RegisterWindowMessage("WM_HTML_GETOBJECT")

  ' Get the object
  Call win32.SendMessageTimeout(hWnd, lMsg, 0, 0, _
  win32.SMTO_ABORTIFHUNG, 1000, lRes)

  If lRes Then

    ' Get the object from lRes
    hr = ObjectFromLresult(lRes, IID_IHTMLDocument, 0, IEDOMFromhWnd)

    If hr Then Throw New COMException(hr)

     End If 
  End If
End If

Also used RemoveMenuBar function to remove IE Rebar.

VB
If ClassName.ToString() = "ReBarWindow32" Then
  ' Hide menuBar
  win32.ShowWindow(hWnd, 0)
  Return 0
Else
  Return 1
End If
Calc demo important points

ExteranlCalc form opens calc.exe on load and adds it to itself. removeTitleBarAndRescale function is used to remove the titlebar, stop resizing. SetWindowPos function is used to set the position of the Window and place it in a way to hide menubar of calc.

VB
win32.SetParent(p.MainWindowHandle, Me.Handle)
win32.removeTitleBarAndRescale(p.MainWindowHandle)
win32.SetWindowPos(p.MainWindowHandle, Me.Handle, -LEFT_CONST,
             -TOP_CONST, Me.Width + LEFT_CONST + RIGHT_CONST, 
             Me.Height + TOP_CONST + BOTTOM_CONST, 
win32.SWP_FRAMECHANGED Or win32.SWP_NOZORDER)
Note: I have tested with standard calculator. If you want to show scientific calc, adjust the size of ExternalCalc form. You may also use SendKeys to show the calc in any form. Error checking in all scenarios has not been done on the demos.

Points of Interest

It's very easy way to add applications in your .NET based application. Thanks to Microsoft for making such things :)

Revision History

12-29-2004:

  • Added a Picture with calc and IE Control and their interaction.
  • Added the source code for calc and IE demo.

11-29-2004:

  • Original article

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Architect
Pakistan Pakistan
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

 
GeneralOpen a web Browser with the correct user and password! Pin
Assaf Koren6-Mar-07 13:45
Assaf Koren6-Mar-07 13:45 
GeneralRe: Open a web Browser with the correct user and password! Pin
Armoghan Asif10-Apr-07 23:47
Armoghan Asif10-Apr-07 23:47 
GeneralAccess Denied Pin
malcomm2-Mar-07 14:17
malcomm2-Mar-07 14:17 
GeneralRe: Access Denied Pin
Armoghan Asif10-Apr-07 21:20
Armoghan Asif10-Apr-07 21:20 
Generalnull pointer Pin
Member 36582222-Jan-07 21:13
Member 36582222-Jan-07 21:13 
GeneralRe: null pointer Pin
Armoghan Asif24-Jan-07 20:44
Armoghan Asif24-Jan-07 20:44 
GeneralFocus Issue Pin
abhijeetsheorey21-Jul-05 20:12
abhijeetsheorey21-Jul-05 20:12 
GeneralRe: Focus Issue Pin
Armoghan Asif22-Jul-05 1:14
Armoghan Asif22-Jul-05 1:14 
I dont think you can have focus on two applictions at one time.

Its like, an appliction in another appliction. So either you have to use click on to move from oen appliction to the other.

Or you can handle Key events on main form to send focus to Word and use

AppActivate(p.Id)

to bring a process to front
or you can use Win32 function

SetForegroundWindow(handle)



GeneralWord Demo not working Pin
iampud30-Nov-04 6:58
iampud30-Nov-04 6:58 
GeneralRe: Word Demo not working Pin
Armoghan Asif30-Nov-04 18:27
Armoghan Asif30-Nov-04 18:27 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.