Что нового

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

mayro

Новичок
Сообщения
12
Репутация
0
Добрый день!

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

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

InnI

AutoIT Гуру
Сообщения
4 274
Репутация
1 146
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
 
Автор
M

mayro

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

mayro

Новичок
Сообщения
12
Репутация
0
Большое спасибо! Всё работает как нужно!
 
Верх