I recently needed to monitor my WIFI which was not stable (due to, supposedly, the load on the network while people were under quarantine in France).
When you loose the network, that's quite silent on windows, so I needed something flashy like the app icon blinking. I used vb.net for the network event, but here is the winapi function that makes the icon flash:
Code: Select all
'adapted from https://stackoverflow.com/questions/23565087/how-to-flash-blink-taskbar-icon-in-vb-net
#include "windows.bi"
'get your window's handle
dim as HANDLE hwndThisWindow = GetForegroundWindow()
'this will make it flash once
FlashWindow(hwndThisWindow, true)
'to make it flash more do as follow in order to use FlashWindowEx:
Enum FlashWindowFlags
' Stop flashing. The system restores the window to its original state.
FLASHW_STOP = 0
' Flash the window caption.
FLASHW_CAPTION = 1
' Flash the taskbar button.
FLASHW_TRAY = 2
' Flash both the window caption and taskbar button.
' This is equivalent to setting the FLASHW_CAPTION | FLASHW_TRAY flags.
FLASHW_ALL = 3
' Flash continuously, until the FLASHW_STOP flag is set.
FLASHW_TIMER = 4
' Flash continuously until the window comes to the foreground.
FLASHW_TIMERNOFG = 12
End Enum
var FlashTitleBar = true
var FlashTray = true
var FlashCount = 5
Dim fwi As FLASHWINFO
With fwi
.hwnd = hwndThisWindow
If FlashTitleBar Then .dwFlags = .dwFlags Or FlashWindowFlags.FLASHW_CAPTION
If FlashTray Then .dwFlags = .dwFlags Or FlashWindowFlags.FLASHW_TRAY
.uCount = CUInt(FlashCount)
If FlashCount = 0 Then .dwFlags = .dwFlags Or FlashWindowFlags.FLASHW_TIMERNOFG
.dwTimeout = 0 ' Use the default cursor blink rate.
.cbSize = CUInt(SizeOf(fwi))
End With
'this will flash 5 times
FlashWindowEx(@fwi)
getKey()