[Элементы GUI] Вывести текст на обоях рабочего стола в правом нижнем углу

[mayro]

Добрый день!

Подскажите как можно вывести текст в правом нижнем углу (не по верх окон, а на обоях) чтобы текст постоянно показывал внешний ip адрес?
Как узнать внешний ip я знаю, а как сделать так чтобы он отображался на обоях в правом нижнем углу и обновлялся раз в минуту я не смог нагулить. Нужно что-то типа bginfo только попроще.

---
#include <Inet.au3>
$PublicIP = _GetIP()
MsgBox(4096, "Ваш IP", $PublicIP, 0)
---

 

[InnI]

mayro [?]

обновлялся раз в минуту

В справке указано: To reduce overloading the IP discovery sites a 5 minute timer is used between each function call. If _GetIP() is used during this 5 minute period, the previous IP is returned and @extended set to 1.

#include <WindowsConstants.au3>
#include <WinAPISysWin.au3>
#include <Inet.au3>

Global $W = 200, $H = 30
$GUI = GUICreate("", $W, $H, @DesktopWidth - $W, @DesktopHeight - $H - 40, $WS_POPUP, BitOR($WS_EX_TRANSPARENT, $WS_EX_LAYERED))
GUISetBkColor(0xAABBCC)
$Label = GUICtrlCreateLabel(_GetIP() & " ", 0, 0, $W, $H, 0x2) ; $SS_RIGHT
GUICtrlSetFont(-1, 20)
GUICtrlSetColor(-1, 0xFF0000)
_WinAPI_SetLayeredWindowAttributes($GUI, 0xAABBCC, 0, $LWA_COLORKEY)
GUISetState()

While Sleep(60000)
  GUICtrlSetData($Label, _GetIP() & " ")
WEnd

 

[mayro]

Большое спасибо! Скрипт работает! А нельзя как-то из панели задач скрыть панельку, чтобы только было видно ip адрес?
Параметр #NoTrayIcon не подходит :(

 

[InnI]

mayro [?]

из панели задач скрыть

Добавьте окну расширенный стиль $WS_EX_TOOLWINDOW

BitOR($WS_EX_TRANSPARENT, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)

 

[mayro]

Большое спасибо! Всё работает как нужно!