Public Delegate Function EnumFuncDeleg(ByVal hwnd As Integer, ByVal lpData As Integer) As Integer Knock up some code which can find and hide the window.įirst create a delegate that will represent your EnumFunc like so. Net fashion it has an error.Įrrorđ 'AddressOf' expression cannot be converted to 'Integer' because 'Integer' is not a delegate type.Ĭan anyone point me in the direction of a fix. 'UPGRADE_WARNING: Add a delegate for AddressOf EnumFunc Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword='E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08''Ĭall EnumWindows(AddressOf EnumFunc, hwnd)īut in true. Public Function fEnumWindows() As Boolean Vreturnvalue = SendMessage(hwnd, WM_CLOSE, &O0s, &O0s) 'UPGRADE_WARNING: Couldn't resolve default property of object vreturnvalue. If InStr(sWndName, 'Conversation') > 0 Then LResult = GetWindowText(hwnd, sWndName, MAX_PATH) LResult = GetClassName(hwnd, szClassName, MAX_PATH)

Public Function EnumFunc(ByVal hwnd As Integer, ByVal lpData As Integer) As Integer Public Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Well eventually I will hide it not close it.Īnyway, I have converted some working VB6 code to net.ĭeclare Function EnumWindows Lib 'user32' (ByVal lpEnumFunc As Integer, ByVal lParam As Integer) As Integerĭeclare Function GetClassName Lib 'user32' Alias 'GetClassNameA'(ByVal hwnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integerĭeclare Function GetWindowText Lib 'user32' Alias 'GetWindowTextA'(ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer

I am trying to find a MSN Chat window so I can close it down programtically.

Vb .net getwindowtext