Isn
Новичок
- Сообщения
- 119
- Репутация
- 3
Доброго времени суток, нашел полезный для себя скрипт, но ни как не могу дописать его, как вывести сообщение поверх всех окон и изменить цвет текста?
Добавлено:
По верх всех окон разобрался
Теперь бьюсь над изменением цвета текста.
Код:
#include <Color.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
;-----------------------------------------------------------------------------------------------------------
$hForm = GUICreate('MessLockWin', 1000, 700, -1, -1, $WS_EX_TOPMOST, $WS_POPUP, $WS_EX_LAYERED)
;$hForm = GUICreate('MessLockWin', 1000, 700, -1, -1, 1, $WS_EX_TOPMOST)
GUISetBkColor(0xABABAB)
$iRedColor = _ColorGetRed( 0x8080ff )
$Label1 = GUICtrlCreateLabel("Текст...", 50, 50, 1000, 500)
GUICtrlSetFont(-1, 80, 700, 0, "MS Sans Serif")
GUISetState()
;-----------------------------------------------------------------------------------------------------------
_WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, 255, BitOR($LWA_COLORKEY, $LWA_ALPHA))
_Exit()
;-----------------------------------------------------------------------------------------------------------
Do
Until GUIGetMsg() = -3
Exit
;-----------------------------------------------------------------------------------------------------------
Func _Exit()
Sleep (3500)
Exit
EndFunc
;-----------------------------------------------------------------------------------------------------------
Добавлено:
Сообщение автоматически объединено:
По верх всех окон разобрался
Код:
;#NoTrayIcon
#include <Color.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
;-----------------------------------------------------------------------------------------------------------
$hForm = GUICreate('MessLockWin', 1000, 700, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
WinSetOnTop("MessLockWin", "", 1)
GUISetBkColor(0xABABAB)
$iRedColor = _ColorGetRed( 0x8080ff )
$Label1 = GUICtrlCreateLabel("Текст...", 50, 50, 1000, 500)
GUICtrlSetFont(-1, 80, 700, 0, "MS Sans Serif")
GUISetState()
;-----------------------------------------------------------------------------------------------------------
_WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, 255, BitOR($LWA_COLORKEY, $LWA_ALPHA))
_Exit()
;-----------------------------------------------------------------------------------------------------------
Do
Until GUIGetMsg() = -3
Exit
;-----------------------------------------------------------------------------------------------------------
Func _Exit()
Sleep (4500)
Exit
EndFunc
;-----------------------------------------------------------------------------------------------------------
Теперь бьюсь над изменением цвета текста.