Hi guys :)
I have the name of an application, it starts with ACI and I want to set it to my forground in order to sendkeys some stuff to it. Now I've read a BUNCH of stuff and could not come up with a solution on my own. This is the code I have for now, a bunch of stuff compiled together [most of the code I've seen out there and help, was provided by someone named Herfried - so 95% credits of what I have here should go to him] :]
[[[On the side if you could point me in the right direction, how do I send text to a textbox who's HWND I know?]]]
Thanks in advance,
Love this forum, I've gotten so many solutions just from other people's posts, however, everything concerning this user32.dll and its api seems to vague for me so I had to ask for help once and for all!
~IonutZ
Expand|Select|Wrap|Line Numbers
- Public Class Form1
- Public Const GW_HWNDPREV = 3
- Private Const SW_SHOW = 5
- Private Const SW_RESTORE = 9
- Public Shared Function SetForegroundWindow(ByVal handle As IntPtr) As Boolean
- ' Leave function empty
- End Function
- Private Shared Function ShowWindow(ByVal handle As IntPtr, ByVal nCmd As Int32) As Boolean
- ' Leave function empty
- End Function
- Private Shared Function IsIconic(ByVal hWnd As IntPtr) As Boolean
- ' Leave function empty
- End Function
- Private Shared Function IsZoomed(ByVal hWnd As IntPtr) As Boolean
- ' Leave function empty
- End Function
- Public Shared Sub SetToForGround(ByVal hwnd As IntPtr)
- Dim strStatus As String
- 'Dim hwnd As IntPtr
- 'hwnd = p.MainWindowHandle
- If IntPtr.Zero.Equals(hwnd) Then
- strStatus = ""
- Exit Sub
- End If
- If IsIconic(hwnd) Then
- strStatus = "MIN"
- End If
- 'If IsZoomed(hwnd) Then
- ' IsNormal = True
- 'End If
- 'If IsIconic(hwnd) And IsZoomed(hwnd) Then
- ' IsNormal = True
- 'End If
- If strStatus = "MIN" Then
- 'mimized
- ShowWindow(hwnd, SW_RESTORE)
- SetForegroundWindow(hwnd)
- Else
- 'maximzed or restored
- SetForegroundWindow(hwnd)
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim strPartialTitle As String = "ACI"
- ' enumerate all processes
- For Each pProcess As Process In Process.GetProcesses()
- ' check process' main window title
- If pProcess.MainWindowTitle.StartsWith(strPartialTitle) Then
- ' it's a match
- Dim strMsg As String = [String].Format("{0}", pProcess.MainWindowTitle)
- 'MessageBox.Show(pProcess.MainWindowHandle.ToString)
- SetToForGround(pProcess.MainWindowHandle)
- End If
- Next
- End Sub
- End Class