Tantum Capitis
Новичок
- Сообщения
- 7
- Репутация
- 0
Вот тут нашел скрипт выводящий поверх всего определенные данные. Какие данные не важно, с этим разобрался.
Но есть много неизвестных функций. Разжуйте пожалуйста мне что где для чего говорится пишется. Спасибо!
А именно с места
и ниже.
Но есть много неизвестных функций. Разжуйте пожалуйста мне что где для чего говорится пишется. Спасибо!
А именно с места
Код:
_API_SetLayeredWindowAttributes($hGUI, $iTransCol)
и ниже.
Код:
#include <GUIConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
Func _Cross_Create($iXCord, $iYCord, $iColor = 0x0000ff, $iFlag = 0)
$hGUI = GUICreate('MouseCross', 100, 100, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_LAYERED + $WS_EX_TRANSPARENT + $WS_EX_TOPMOST)
Local $iTransCol = 0xABCDEF
If $iColor = $iTransCol Then $iTransCol = 0xFBCDEF
;-------параметры прицела
GUISetBkColor(0x888888)
GUICtrlCreateLabel("Text", 5, 5, 150, 50)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetFont(-1, 13, 400,0,"Courier New")
;--------------------------
GUISetState()
_API_SetLayeredWindowAttributes($hGUI, $iTransCol)
EndFunc
Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 128, $isColorRef = False)
Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, 0, 0)
Case Else
Return 1
EndSelect
EndFunc
;--------------------end----crosshair-----------------
_Cross_Create(-1, -1)
Sleep(2000)