stdWindow

[sancarn]

stdWindow

A class for creating and obtaining window objects, and extracting/controlling properties of them.

Constructors

• [ ] Create(sClassName,sCaption,dwStyle, x, y, Width, Height, hWndParent, hMenu, hInstance, lpParam) as stdWindow
• [ ] CreateHighlightRect(x, y, Width, Height, BorderWidth, BorderColor) as stdWindow
• [X] CreateFromDesktop() as stdWindow
• [X] CreateFromHwnd(hwnd) as stdWindow
• [X] CreateFromPoint(x, y) as stdWindow
• [ ] CreateFromEvent() as stdWindow
• [X] CreateFromIUnknown(obj) as stdWindow
• [X] CreateFromContextMenu() as stdWindow 'Class == "#32768"
• [x] CreateFromShellWindows() as Collection i.e. shell.application.windows. See #22

Properties

• [X] Get handle() as LongPtr
• [X] Get hDC() as LongPtr
• [X] Get Exists as Boolean
• [X] Get/Let Visible() as Boolean
• [X] Get/Let State() as EWndState 'Normal,Minimised,Maximised
• [X] Get IsFrozen() as Boolean
• [X] Get/Let Caption() as string
• [X] Get Class() as string
• [X] Get RectClient() as Long()
• [X] Get/Let RectWindow() as Long()
• [X] Get/Let X() as Long
• [X] Get/Let Y() as Long
• [X] Get/Let Width() as Long
• [X] Get/Let Height() as Long
• [X] Get ProcessID() as long
• [X] Get ProcessName() as string
• [X] Get/Set Parent() as stdWindow
• [X] Get AncestralRoot() as stdWindow
• [X] Get/Let Style() as Long
• [X] Get/Let StyleEx() as Long
• [X] Get/Let UserData() as LongPtr
• [X] Get/Let WndProc() as LongPtr
• [X] Get/Let Resizable() as Boolean
• [X] Get Children() as Collection
• [X] Get Descendents() as Collection
• [ ] Get ThreadID() as Long
• [x] Get/Let AlwaysOnTop
• [X] Get HTMLObject as Object Removed feature requirement, RE: IE deprecation.
• [ ] #86 Add to taskbar

Methods

• [ ] SetHook(idHook, hook, hInstance, dwThreadID) as LongPtr
• [x] AttatchThread(wnd as stdWindow, bAttatch as boolean)
• [X] Redraw()
• [X] SendMessage(wMsg, wParam, lParam)
• [X] PostMessage(wMsg, wParam, lParam)
• [ ] SendMessageTimeout(wMsg, wParam, lParam, TimeoutMilliseconds)
• [ ] ClickInput(x?, y?, Button?)
• [X] ClickEvent(x?, y?, Button?, isDoubleClick?, wParam?)
• [x] SendKeysInput(sKeys, bRaw?, keyDelay?)
• [X] SendKeysEvent(sKeys, bRaw?, keyDelay?)
• [X] Activate()
• [X] Close()
• [X] FindFirst(query)
• [X] FindAll(query)
• [X] Screenshot() Removed requirement, see stdImage

General

• [X] Unit Tests
• [X] Documentation
• [ ] Mac compatibility

[sancarn]

Activate needs to follow this kind of structure:

'Force the window specified by the hWND supplied to the top/front
'@param {ByVal Long} hWND of window to make active
Private Sub ForceWindowToTop(ByVal hwnd As Long)
    Dim lMyPId As Long
    Dim lCurPId As Long
    Dim Handle As Long
    Handle = GetForegroundWindow()
    lMyPId = GetWindowThreadProcessId(hwnd, 0)
    lCurPId = GetWindowThreadProcessId(Handle, 0)

    If Not (lMyPId = lCurPId) Then
        AttachThreadInput lCurPId, lMyPId, True
        SetForegroundWindow hwnd
        AttachThreadInput lCurPId, lMyPId, False
    End If

    If Not (GetForegroundWindow() = hwnd) Then
        SetForegroundWindow hwnd
    End If
End Sub

[sancarn]

Fixed SendKeysInput()