Автор Тема: [Элементы GUI] Вывести текст на обоях рабочего стола в правом нижнем углу  (Прочитано 416 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Эта тема содержит сообщение, помеченное как лучший ответ. Кликните здесь для перехода к этому сообщению.

Оффлайн mayro [?]

  • Новичок
  • *
  • Сообщений: 12
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Добрый день!

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

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

Русское сообщество AutoIt


Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4069
  • Репутация: 1078
    • Награды
  • Версия AutoIt: 3.3.14.0
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.
Код: AutoIt [Выделить]
#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 [?]

  • Новичок
  • *
  • Сообщений: 12

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Большое спасибо! Скрипт работает! А нельзя как-то из панели задач скрыть панельку, чтобы только было видно ip адрес?
Параметр #NoTrayIcon не подходит :(

Помечен как лучший ответ пользователем mayro Отправлен Март 29, 2019, 09:18:30

Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4069
  • Репутация: 1078
    • Награды
  • Версия AutoIt: 3.3.14.0
mayro  [?]
Цитировать
из панели задач скрыть
Добавьте окну расширенный стиль $WS_EX_TOOLWINDOW
Код: AutoIt [Выделить]
BitOR($WS_EX_TRANSPARENT, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)


Русское сообщество AutoIt


Оффлайн mayro [?]

  • Новичок
  • *
  • Сообщений: 12

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Большое спасибо! Всё работает как нужно!

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
6 Ответов
7010 Просмотров
Последний ответ Сентябрь 24, 2009, 18:48:21
от wolk88
8 Ответов
4189 Просмотров
Последний ответ Май 07, 2012, 01:12:57
от ArtInt
15 Ответов
7942 Просмотров
Последний ответ Сентябрь 24, 2012, 00:02:12
от Pat4005
0 Ответов
1702 Просмотров
Последний ответ Июнь 23, 2012, 06:12:40
от madmasles
4 Ответов
3236 Просмотров
Последний ответ Сентябрь 21, 2012, 09:12:02
от evgen_vasgen
4 Ответов
2763 Просмотров
Последний ответ Октябрь 23, 2012, 10:40:26
от joiner
2 Ответов
4454 Просмотров
Последний ответ Май 08, 2013, 21:53:57
от mif_ugra
0 Ответов
937 Просмотров
Последний ответ Август 25, 2014, 15:38:35
от IIuOHeP
1 Ответов
1321 Просмотров
Последний ответ Июнь 01, 2015, 10:38:14
от AlexxxMksv
5 Ответов
1351 Просмотров
Последний ответ Июль 06, 2015, 13:44:41
от ZeVSalt