Autoit – Making Jabber Chat client take Focus when Toolbar is flashing

#include &lt;GuiConstants.au3&gt;
#include &lt;Misc.au3&gt;
#include &lt;GuiconstantsEx.au3&gt;
#include &lt;WindowsConstants.au3&gt;
#include &lt;ListBoxConstants.au3&gt;
#include &lt;SendMessage.au3&gt;
#NoTrayIcon
Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("WinWaitDelay", 0)
;Global Const $WM_SYSCOMMAND = 0x0112
;Global Const $LBS_NOINTEGRALHEIGHT = 0x1000
Global Const $SC_MOVE = 0xF010
Global Const $SC_SIZE = 0xF000
Global Const $SC_CLOSE = 0xF060
;ShellHook notification codes:
Global Const $HSHELL_WINDOWCREATED = 1;
Global Const $HSHELL_WINDOWDESTROYED = 2;
Global Const $HSHELL_ACTIVATESHELLWINDOW = 3;
Global Const $HSHELL_WINDOWACTIVATED = 4;
Global Const $HSHELL_GETMINRECT = 5;
Global Const $HSHELL_REDRAW = 6;
Global Const $HSHELL_TASKMAN = 7;
Global Const $HSHELL_LANGUAGE = 8;
Global Const $HSHELL_SYSMENU = 9;
Global Const $HSHELL_ENDTASK = 10;
Global Const $HSHELL_ACCESSIBILITYSTATE = 11;
Global Const $HSHELL_APPCOMMAND = 12;
Global Const $HSHELL_WINDOWREPLACED = 13;
Global Const $HSHELL_WINDOWREPLACING = 14;
Global Const $HSHELL_RUDEAPPACTIVATED = 32772;
Global Const $HSHELL_FLASH = 32774;
Global $bHook = 1
;GUI stuff:
Global $iGuiW = 50, $iGuiH = 50, $sTitle = "Jabber Monitor by Nicholas Hall", $aBtnText[2] = ["START", "STOP"]
$hGui = GUICreate($sTitle, $iGuiW, $iGuiH, -1, 0, $WS_POPUP+$WS_BORDER, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, "SysEvents")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "SysEvents")
GUIRegisterMsg($WM_SYSCOMMAND, "On_WM_SYSCOMMAND")
$cBtnMini = GUICtrlCreateButton("v", $iGuiW-$iGuiH, 0, $iGuiH/2, $iGuiH/2)
GUICtrlSetOnEvent(-1, "CtrlEvents")
GUICtrlSetTip(-1, "Minimize")
$cBtnClose = GUICtrlCreateButton("X", $iGuiW-$iGuiH/2, 0, $iGuiH/2, $iGuiH/2)
GUICtrlSetOnEvent(-1, "CtrlEvents")
GUICtrlSetTip(-1, "Exit")
$cBtnHook = GUICtrlCreateButton("", $iGuiW-$iGuiH, $iGuiH/2, $iGuiH, $iGuiH/2)
GUICtrlSetData(-1, $aBtnText[$bHook])
GUICtrlSetTip(-1, "Hook/Unhook Jabber")
GUICtrlSetOnEvent(-1, "CtrlEvents")
;$cList = GUICtrlCreateList("", 0, 0, $iGuiW-$iGuiH-1, $iGuiH, $LBS_NOINTEGRALHEIGHT+$WS_VSCROLL)
GUICtrlSetOnEvent(-1, "CtrlEvents")
;Hook stuff:
GUIRegisterMsg(RegisterWindowMessage("SHELLHOOK"), "HShellWndProc")
ShellHookWindow($hGui, $bHook)
GUISetState()
While 1
    Sleep(1000)
WEnd
Func SysEvents()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYDOWN
            ;CTRL + Left click to drag GUI
            If _IsPressed("11") Then
                DllCall("user32.dll", "int", "ReleaseCapture")
                DllCall("user32.dll", "int", "SendMessage", "hWnd", $hGui, "int", 0xA1, "int", 2, "int", 0)
            EndIf
    EndSwitch
EndFunc
Func CtrlEvents()
    Switch @GUI_CtrlId
        Case $cBtnMini
            GUISetState(@SW_MINIMIZE)
        Case $cBtnClose
            _SendMessage($hGui, $WM_SYSCOMMAND, $SC_CLOSE, 0)
        Case $cBtnHook
            $bHook = BitXOR($bHook, 1)
            ShellHookWindow($hGui, $bHook)
            GUICtrlSetData($cBtnHook, $aBtnText[$bHook])
    EndSwitch
EndFunc
Func HShellWndProc($hWnd, $Msg, $wParam, $lParam)
    Switch $wParam
        Case $HSHELL_FLASH
            MsgPrint("Window flash: " &amp; $lParam &amp; " (" &amp; WinGetTitle($lParam) &amp; ")")
            MsgPrint(ProcessGetName(WinGetProcess($lParam)))
            if ProcessGetName(WinGetProcess($lParam)) = "CiscoJabber.exe" Then
               WinActivate($lParam)
            endif
            ;if WinGetTitle($lParam) = "Conversations" Then
            ;EndIf
        Case Else
            ;MsgPrint("Unknown ShellHook message: " &amp; $wParam &amp; " , " &amp; $lParam)
    EndSwitch
 EndFunc
 Func ProcessGetName($PId)
    If IsNumber($PId) = 0 Then
        SetError(2)
    ElseIf $PId &gt; 9999 Then
        SetError(1)
    Else
        Local $PList = ProcessList()
        Local $i = 1
        Local $ProcessName = ""
        While $i &lt;= $PList[0][0] And $ProcessName = ""
            If $PList[$i][1] = $PId Then
                $ProcessName = $PList[$i][0]
            Else
                $i = $i + 1
            EndIf
        WEnd
        Return $ProcessName
    EndIf
EndFunc ;==&gt;ProcessGetName
;register/unregister ShellHook
Func ShellHookWindow($hWnd, $bFlag)
    Local $sFunc = 'DeregisterShellHookWindow'
    If $bFlag Then $sFunc = 'RegisterShellHookWindow'
    Local $aRet = DllCall('user32.dll', 'int', $sFunc, 'hwnd', $hWnd)
    MsgPrint($sFunc &amp; ' = ' &amp; $aRet[0])
    Return $aRet[0]
EndFunc
Func MsgPrint($sText)
    ConsoleWrite($sText &amp; @CRLF)
    ;GUICtrlSendMsg($cList, $LB_SETCURSEL, GUICtrlSendMsg($cList, $LB_ADDSTRING, 0, $sText), 0)
EndFunc
;register window message
Func RegisterWindowMessage($sText)
    Local $aRet = DllCall('user32.dll', 'int', 'RegisterWindowMessage', 'str', $sText)
    Return $aRet[0]
EndFunc
Func On_WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    Switch BitAND($wParam, 0xFFF0)
        Case $SC_MOVE, $SC_SIZE
        Case $SC_CLOSE
            ShellHookWindow($hGui, 0)
            Return $GUI_RUNDEFMSG
            ;Exit
    EndSwitch
EndFunc

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

#include <GuiConstants.au3>

#include <Misc.au3>

#include <GuiconstantsEx.au3>

#include <WindowsConstants.au3>

#include <ListBoxConstants.au3>

#include <SendMessage.au3>

#NoTrayIcon

Opt("GUICloseOnESC", 0)

Opt("GUIOnEventMode", 1)

Opt("WinWaitDelay", 0)

;Global Const $WM_SYSCOMMAND = 0x0112

;Global Const $LBS_NOINTEGRALHEIGHT = 0x1000

Global Const $SC_MOVE = 0xF010

Global Const $SC_SIZE = 0xF000

Global Const $SC_CLOSE = 0xF060

;ShellHook notification codes:

Global Const $HSHELL_WINDOWCREATED = 1;

Global Const $HSHELL_WINDOWDESTROYED = 2;

Global Const $HSHELL_ACTIVATESHELLWINDOW = 3;

Global Const $HSHELL_WINDOWACTIVATED = 4;

Global Const $HSHELL_GETMINRECT = 5;

Global Const $HSHELL_REDRAW = 6;

Global Const $HSHELL_TASKMAN = 7;

Global Const $HSHELL_LANGUAGE = 8;

Global Const $HSHELL_SYSMENU = 9;

Global Const $HSHELL_ENDTASK = 10;

Global Const $HSHELL_ACCESSIBILITYSTATE = 11;

Global Const $HSHELL_APPCOMMAND = 12;

Global Const $HSHELL_WINDOWREPLACED = 13;

Global Const $HSHELL_WINDOWREPLACING = 14;

Global Const $HSHELL_RUDEAPPACTIVATED = 32772;

Global Const $HSHELL_FLASH = 32774;

Global $bHook = 1

;GUI stuff:

Global $iGuiW = 50, $iGuiH = 50, $sTitle = "Jabber Monitor by Nicholas Hall", $aBtnText[2] = ["START", "STOP"]

$hGui = GUICreate($sTitle, $iGuiW, $iGuiH, -1, 0, $WS_POPUP+$WS_BORDER, $WS_EX_TOPMOST)

GUISetOnEvent($GUI_EVENT_CLOSE, "SysEvents")

GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "SysEvents")

GUIRegisterMsg($WM_SYSCOMMAND, "On_WM_SYSCOMMAND")

$cBtnMini = GUICtrlCreateButton("v", $iGuiW-$iGuiH, 0, $iGuiH/2, $iGuiH/2)

GUICtrlSetOnEvent(-1, "CtrlEvents")

GUICtrlSetTip(-1, "Minimize")

$cBtnClose = GUICtrlCreateButton("X", $iGuiW-$iGuiH/2, 0, $iGuiH/2, $iGuiH/2)

GUICtrlSetOnEvent(-1, "CtrlEvents")

GUICtrlSetTip(-1, "Exit")

$cBtnHook = GUICtrlCreateButton("", $iGuiW-$iGuiH, $iGuiH/2, $iGuiH, $iGuiH/2)

GUICtrlSetData(-1, $aBtnText[$bHook])

GUICtrlSetTip(-1, "Hook/Unhook Jabber")

GUICtrlSetOnEvent(-1, "CtrlEvents")

;$cList = GUICtrlCreateList("", 0, 0, $iGuiW-$iGuiH-1, $iGuiH, $LBS_NOINTEGRALHEIGHT+$WS_VSCROLL)

GUICtrlSetOnEvent(-1, "CtrlEvents")

;Hook stuff:

GUIRegisterMsg(RegisterWindowMessage("SHELLHOOK"), "HShellWndProc")

ShellHookWindow($hGui, $bHook)

GUISetState()

While 1

Sleep(1000)

WEnd

Func SysEvents()

Switch @GUI_CtrlId

Case $GUI_EVENT_CLOSE

Exit

Case $GUI_EVENT_PRIMARYDOWN

;CTRL + Left click to drag GUI

If _IsPressed("11") Then

DllCall("user32.dll", "int", "ReleaseCapture")

DllCall("user32.dll", "int", "SendMessage", "hWnd", $hGui, "int", 0xA1, "int", 2, "int", 0)

EndIf

EndSwitch

EndFunc

Func CtrlEvents()

Switch @GUI_CtrlId

Case $cBtnMini

GUISetState(@SW_MINIMIZE)

Case $cBtnClose

_SendMessage($hGui, $WM_SYSCOMMAND, $SC_CLOSE, 0)

Case $cBtnHook

$bHook = BitXOR($bHook, 1)

ShellHookWindow($hGui, $bHook)

GUICtrlSetData($cBtnHook, $aBtnText[$bHook])

EndSwitch

EndFunc

Func HShellWndProc($hWnd, $Msg, $wParam, $lParam)

Switch $wParam

Case $HSHELL_FLASH

MsgPrint("Window flash: " & $lParam & " (" & WinGetTitle($lParam) & ")")

MsgPrint(ProcessGetName(WinGetProcess($lParam)))

if ProcessGetName(WinGetProcess($lParam)) = "CiscoJabber.exe" Then

WinActivate($lParam)

endif

;if WinGetTitle($lParam) = "Conversations" Then

;EndIf

Case Else

;MsgPrint("Unknown ShellHook message: " & $wParam & " , " & $lParam)

EndSwitch

EndFunc

Func ProcessGetName($PId)

If IsNumber($PId) = 0 Then

SetError(2)

ElseIf $PId > 9999 Then

SetError(1)

Else

Local $PList = ProcessList()

Local $i = 1

Local $ProcessName = ""

While $i <= $PList[0][0] And $ProcessName = ""

If $PList[$i][1] = $PId Then

$ProcessName = $PList[$i][0]

Else

$i = $i + 1

EndIf

WEnd

Return $ProcessName

EndIf

EndFunc ;==>ProcessGetName

;register/unregister ShellHook

Func ShellHookWindow($hWnd, $bFlag)

Local $sFunc = 'DeregisterShellHookWindow'

If $bFlag Then $sFunc = 'RegisterShellHookWindow'

Local $aRet = DllCall('user32.dll', 'int', $sFunc, 'hwnd', $hWnd)

MsgPrint($sFunc & ' = ' & $aRet[0])

Return $aRet[0]

EndFunc

Func MsgPrint($sText)

ConsoleWrite($sText & @CRLF)

;GUICtrlSendMsg($cList, $LB_SETCURSEL, GUICtrlSendMsg($cList, $LB_ADDSTRING, 0, $sText), 0)

EndFunc

;register window message

Func RegisterWindowMessage($sText)

Local $aRet = DllCall('user32.dll', 'int', 'RegisterWindowMessage', 'str', $sText)

Return $aRet[0]

EndFunc

Func On_WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)

Switch BitAND($wParam, 0xFFF0)

Case $SC_MOVE, $SC_SIZE

Case $SC_CLOSE

ShellHookWindow($hGui, 0)

Return $GUI_RUNDEFMSG

;Exit

EndSwitch

EndFunc

Autoit – Making Jabber Chat client take Focus when Toolbar is flashing

Leave a comment

Cancel reply