[AutoIT] SCRIPT de CrossHair

[Surfistinha£ 14]

Funciona em alguns jogos mas nen em todos

 

#include <WindowsConstants.au3>

HotKeySet("{F1}","exitApp")

MsgBox(0,"www.webcheats.com.br","Para fexar aperte F1")

Opt('TrayAutoPause', 0)

 

$Cross = _Cross_Create(200, 200)

 

While 1 * Sleep(99999999999999999)

_Cross_Move($Cross, Random(0, @DesktopWidth, 1), Random(0, @DesktopHeight, 1))

WEnd

 

_Cross_Delete($Cross)

 

Func exitApp ()

Exit

EndFunc

 

 

Func _Cross_Create($iXCord, $iYCord, $iColor = 0xFF0000, $iFlag = 0) ;no $iColor = Voce poem a cor que vc quizer em HEXA...

$hGUI = GUICreate('MouseCross', 25, 25, -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($iTransCol)

GUICtrlCreateLabel("", 11, 0, 3, 10)

GUICtrlSetBkColor(-1, $iColor)

GUICtrlCreateLabel("", 11, 15, 3, 10)

GUICtrlSetBkColor(-1, $iColor)

GUICtrlCreateLabel("", 0, 11, 10, 3)

GUICtrlSetBkColor(-1, $iColor)

GUICtrlCreateLabel("", 15, 11, 10, 3)

GUICtrlSetBkColor(-1, $iColor)

GUISetState()

_API_SetLayeredWindowAttributes($hGUI, $iTransCol)

Return $hGUI

EndFunc ;==>_Cross_Create

 

Func _Cross_Move($hCross, $iXCord, $iYCord)

Return WinMove($hCross, "", $iXCord, $iYCord)

EndFunc ;==>_Cross_Move

 

Func _Cross_Delete($hCross)

Return GUIDelete($hCross)

EndFunc ;==>_Cross_Delete

 

Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)

;Prog@ndy

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 ;==>_API_SetLayeredWindowAttributes

[IbackPwneÐ 0]

Poxa muito bom, mas poderia falar mais um poouquinho sobre ele, eu testei e funfou;

Se nao me engano a area seria outras linguagens( posso estar enganado ^^)

E os créditos são seus?

[Surfistinha£ 14]

Poxa muito bom, mas poderia falar mais um poouquinho sobre ele, eu testei e funfou;

Se nao me engano a area seria outras linguagens( posso estar enganado ^^)

E os créditos são seus?

Pode ser aqui ou la eu preferi aqui mesmo

nao achei na net desconhecido

[SofteTi 0]

Este em autoit tb, so minha autoria.

tecla de atalho, F1 ativa, F2 desativa, Ctrl+x sair.

 

[DOWN]http://uploaddearquivos.com.br/download/3CrossHair.rar[/DOWN]

[thataw 0]

3P1C F41L!

#include <WindowsConstants.au3>

HotKeySet("{F1}","exitApp")

MsgBox(0,"www.cheatbrasil.com","Para fexar aperte F1")

Opt('TrayAutoPause', 0)

propraganda kkk

[[MCD] 0]

voce poderia fazer como colocar isso em um .exe ne

[viniciusavs 0]

Desculpe minha iguinorancia .. mais o q ée e pra q serve ?!? .-.

 

=P

[Surfistinha£ 14]

é um hack de jogos em fps de tiro como Cs,Crossfire,C.A e ect..

[viniciusavs 0]

Ah simm .. vlw