Solved

How do I close a child window with its handle?

Posted on 2008-10-10
7
803 Views
Last Modified: 2010-04-21
I want to close a window after a match a specific pattern.  What's the best way to close the window?

In the below example if the WindowText has "News" within it I want to close that window.

Thanks for you help.

CODE:

  Public Function EnumWindowsCallBack(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Int32
        Dim sSave As String
 
        'Get the windowtext length
        sSave = Space(GetWindowTextLength(hwnd) + 1)
 
        'get the window text
        GetWindowText(hwnd, sSave, Len(sSave))
 
        'remove the last Chr(0)
        sSave = Microsoft.VisualBasic.Left(sSave, Len(sSave) - 1)

        If sSave.IndexOf("News") >= 0 Then
            'WANT TO CLOSE WINDOW
        Else
               If (sSave.Length <> 0) Then
 
                   Lst.Items.Add(sSave)

               End If
            End If
        End If
        If sSave.Trim <> "" Then
            Debug.WriteLine(sSave)
        End If
 
        Return 1 'continue enumeration        
    End Function
0
Comment
Question by:vaultworld
7 Comments
 
LVL 10

Expert Comment

by:Smart_Man
ID: 22689728
here is how to get the window handle

me.handle

to close a window you can use

unload me

among a lot other ways to do so.

waiting for your reply
0
 
LVL 11

Expert Comment

by:ladarling
ID: 22689764
You need to send the WM_CLOSE message to the Window.

 Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As UInt32) As Long

Public Const WM_CLOSE = &H10

Open in new window

0
 
LVL 11

Expert Comment

by:ladarling
ID: 22689775
A sample call might be:

Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As UInt32) As Long
Public Const WM_CLOSE = &H10
 
SendMessage(windowHandle, WM_CLOSE,0,0)
 
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 22689797
Get the "root" window using GetAncestor() with GA_ROOT.  Then send a WM_CLOSE directive with SendMessage():

Public Const GA_ROOT As Integer = 2

Public Declare Function GetAncestor Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal gaFlags As Integer) As IntPtr
 

Public Const WM_CLOSE As Integer = &H10

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 

...

    Dim rootWindow As IntPtr = GetAncestor(hwnd, GA_ROOT)

    SendMessage(rootWindow, WM_CLOSE, 0, 0)

Open in new window

0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 22689809
@ladarling...that's a VB6 declaration with "Long" in it...  =\
0
 
LVL 11

Expert Comment

by:ladarling
ID: 22689932
My bad.
 
0
 
LVL 1

Author Closing Comment

by:vaultworld
ID: 31505124
Thanks again,

Now that i have the size and position of the window.

I did have another idea on closing the application simply send a mouse click to the "X" in the upper right to close it.

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
VB.NET HttpWebRequest 12 58
More on Time zones in vb 2010 12 37
Advice on Xojo as a development tool over VB. 4 39
Help with LINQ and XML 10 27
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
In this video I am going to show you how to back up and restore Office 365 mailboxes using CodeTwo Backup for Office 365. Learn more about the tool used in this video here: http://www.codetwo.com/backup-for-office-365/ (http://www.codetwo.com/ba…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now