![[Source] Air Hug Bot NeI4UrG](https://i.imgur.com/neI4UrG.png)
Sign In![[Source] Air Hug Bot JLGRF9W](https://i.imgur.com/JLGRF9W.png)
Create Account
Home
0![[Source] Air Hug Bot TvOToho](https://i.imgur.com/TvOToho.gif)
bueno me preguntaron como hacer uno, pos aqui lo tienes solo compilalo, PRESIONA LA BOLA DEL RATON
- Code:
#RequireAdmin
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <WinAPI.au3>
If Not IsDeclared("WH_MOUSE_LL") Then
Assign("WH_MOUSE_LL", 14, 2)
EndIf
Global $A__MSOE_EVENTS[1][1]
Global $H__MSOE_MOUSEPROC = -1
Global $H__MSOE_MOUSEHOOK = -1
Global $I__MSOE_TIMER = -1
Global $I__MSOE_EVENTRETURN = 1
Global Const $MOUSE_MOVE_EVENT = 512
Global Const $MOUSE_PRIMARYDOWN_EVENT = 513
Global Const $MOUSE_PRIMARYUP_EVENT = 514
Global Const $MOUSE_PRIMARYDBLCLK_EVENT = 515
Global Const $MOUSE_SECONDARYDOWN_EVENT = 516
Global Const $MOUSE_SECONDARYUP_EVENT = 517
Global Const $MOUSE_SECONDARYDBLCLK_EVENT = 518
Global Const $MOUSE_WHEELDOWN_EVENT = 519
Global Const $MOUSE_WHEELUP_EVENT = 520
Global Const $MOUSE_WHEELDBLCLK_EVENT = 521
Global Const $MOUSE_WHEELSCROLL_EVENT = 522
Global Const $MOUSE_WHEELSCROLLDOWN_EVENT = 522 + 8
Global Const $MOUSE_WHEELSCROLLUP_EVENT = 522 + 16
Global Const $MOUSE_XBUTTONDOWN_EVENT = 523
Global Const $MOUSE_XBUTTONUP_EVENT = 524
Global Const $MOUSE_XBUTTONDBLCLK_EVENT = 525
Func _MOUSESETONEVENT($IEVENT, $SFUNCNAME = "", $SPARAM1 = "", $SPARAM2 = "", $HTARGETWND = 0, $IBLOCKDEFPROC = 1)
If $SFUNCNAME = "" Then
If $A__MSOE_EVENTS[0][0] < 1 Then
Return 0
EndIf
Local $ATMP_MOUSE_EVENTS[1][1]
For $I = 1 To $A__MSOE_EVENTS[0][0]
If $A__MSOE_EVENTS[$I][0] <> $IEVENT Then
$ATMP_MOUSE_EVENTS[0][0] += 1
ReDim $ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0] + 1][6]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][0] = $A__MSOE_EVENTS[$I][0]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][1] = $A__MSOE_EVENTS[$I][1]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][2] = $A__MSOE_EVENTS[$I][2]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][3] = $A__MSOE_EVENTS[$I][3]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][4] = $A__MSOE_EVENTS[$I][4]
$ATMP_MOUSE_EVENTS[$ATMP_MOUSE_EVENTS[0][0]][5] = $A__MSOE_EVENTS[$I][5]
EndIf
Next
$A__MSOE_EVENTS = $ATMP_MOUSE_EVENTS
If $A__MSOE_EVENTS[0][0] < 1 Then
If $I__MSOE_EVENTRETURN = 1 Then
__MOUSESETONEVENT_ONEXITFUNC()
ElseIf $I__MSOE_EVENTRETURN = 0 Then
$I__MSOE_TIMER = _Timer_SetTimer(0, 10, "__MouseSetOnEvent_WaitHookReturn")
EndIf
EndIf
Return 1
EndIf
If $A__MSOE_EVENTS[0][0] < 1 Then
$H__MSOE_MOUSEPROC = DllCallbackRegister("__MouseSetOnEvent_MainHandler", "int", "int;ptr;ptr")
Local $HMHOOK_MODULE = _WinAPI_GetModuleHandle(0)
$H__MSOE_MOUSEHOOK = _WinAPI_SetWindowsHookEx(Eval("WH_MOUSE_LL"), DllCallbackGetPtr($H__MSOE_MOUSEPROC), $HMHOOK_MODULE, 0)
EndIf
For $I = 1 To $A__MSOE_EVENTS[0][0]
If $A__MSOE_EVENTS[$I][0] = $IEVENT Then
$A__MSOE_EVENTS[$I][0] = $IEVENT
$A__MSOE_EVENTS[$I][1] = $SFUNCNAME
$A__MSOE_EVENTS[$I][2] = $SPARAM1
$A__MSOE_EVENTS[$I][3] = $SPARAM2
$A__MSOE_EVENTS[$I][4] = $HTARGETWND
$A__MSOE_EVENTS[$I][5] = $IBLOCKDEFPROC
Return 2
EndIf
Next
$A__MSOE_EVENTS[0][0] += 1
ReDim $A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0] + 1][6]
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][0] = $IEVENT
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][1] = $SFUNCNAME
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][2] = $SPARAM1
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][3] = $SPARAM2
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][4] = $HTARGETWND
$A__MSOE_EVENTS[$A__MSOE_EVENTS[0][0]][5] = $IBLOCKDEFPROC
Return 1
EndFunc
Func __MOUSESETONEVENT_MAINHANDLER($NCODE, $WPARAM, $LPARAM)
If $NCODE < 0 Then
Return _WinAPI_CallNextHookEx($H__MSOE_MOUSEHOOK, $NCODE, $WPARAM, $LPARAM)
EndIf
Local Const $STMSLLHOOKSTRUCT = $TAGPOINT & ";dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo"
Local $IEVENT = _WinAPI_LoWord($WPARAM)
Local $IRET, $IBLOCKDEFPROC_RET
If $A__MSOE_EVENTS[0][0] < 1 Then
Return 0
EndIf
For $I = 1 To $A__MSOE_EVENTS[0][0]
If $A__MSOE_EVENTS[$I][0] = $IEVENT Or ($IEVENT = $MOUSE_WHEELSCROLL_EVENT And ($A__MSOE_EVENTS[$I][0] = $IEVENT + 8 Or $A__MSOE_EVENTS[$I][0] = $IEVENT + 16)) Then
If $IEVENT <> $A__MSOE_EVENTS[$I][0] Then
Local $TWHEEL_STRUCT = DllStructCreate($STMSLLHOOKSTRUCT, $LPARAM)
Local $SWHEELSCROLL_DATA = DllStructGetData($TWHEEL_STRUCT, 3)
If _WinAPI_HiWord($SWHEELSCROLL_DATA) > 0 Then
If $IEVENT + 16 <> $A__MSOE_EVENTS[$I][0] Then
ContinueLoop
EndIf
Else
If $IEVENT + 8 <> $A__MSOE_EVENTS[$I][0] Then
ContinueLoop
EndIf
EndIf
EndIf
If $A__MSOE_EVENTS[$I][4] <> 0 And Not __MOUSESETONEVENT_ISHOVEREDWND($A__MSOE_EVENTS[$I][4]) Then
Return 0
EndIf
$I__MSOE_EVENTRETURN = 0
$IBLOCKDEFPROC_RET = $A__MSOE_EVENTS[$I][5]
$IRET = Call($A__MSOE_EVENTS[$I][1], $A__MSOE_EVENTS[$I][2], $A__MSOE_EVENTS[$I][3])
If @error Then
$IRET = Call($A__MSOE_EVENTS[$I][1], $A__MSOE_EVENTS[$I][2])
EndIf
If @error Then
$IRET = Call($A__MSOE_EVENTS[$I][1])
EndIf
$I__MSOE_EVENTRETURN = 1
If $IBLOCKDEFPROC_RET = -1 Then
Return $IRET
EndIf
Return $IBLOCKDEFPROC_RET
EndIf
Next
Return _WinAPI_CallNextHookEx($H__MSOE_MOUSEHOOK, $NCODE, $WPARAM, $LPARAM)
EndFunc
Func __MOUSESETONEVENT_WAITHOOKRETURN($HWND, $MSG, $IIDTIMER, $DWTIME)
If $I__MSOE_EVENTRETURN = 1 Then
_Timer_KillTimer(0, $I__MSOE_TIMER)
__MOUSESETONEVENT_ONEXITFUNC()
EndIf
EndFunc
Func __MOUSESETONEVENT_ISHOVEREDWND($HWND)
Local $IRET = False
Local $AWIN_POS = WinGetPos($HWND)
Local $AMOUSE_POS = MouseGetPos()
If $AMOUSE_POS[0] >= $AWIN_POS[0] And $AMOUSE_POS[0] <= ($AWIN_POS[0] + $AWIN_POS[2]) And $AMOUSE_POS[1] >= $AWIN_POS[1] And $AMOUSE_POS[1] <= ($AWIN_POS[1] + $AWIN_POS[3]) Then
$IRET = True
EndIf
Local $ARET = DllCall("User32.dll", "hwnd", "WindowFromPoint", "long", $AMOUSE_POS[0], "long", $AMOUSE_POS[1])
If HWnd($ARET[0]) <> $HWND And Not $IRET Then
$IRET = False
EndIf
Return $IRET
EndFunc
Func __MOUSESETONEVENT_ONEXITFUNC()
If $H__MSOE_MOUSEHOOK <> -1 Then
_WinAPI_UnhookWindowsHookEx($H__MSOE_MOUSEHOOK)
$H__MSOE_MOUSEHOOK = -1
EndIf
If $H__MSOE_MOUSEPROC <> -1 Then
DllCallbackFree($H__MSOE_MOUSEPROC)
$H__MSOE_MOUSEPROC = -1
EndIf
EndFunc
While 1
_MOUSESETONEVENT($MOUSE_WHEELDOWN_EVENT, "MOUSE_WHEELDOWN_EVENT")
Sleep(1000)
_MOUSESETONEVENT($MOUSE_WHEELDOWN_EVENT)
WEnd
Func MOUSE_WHEELDOWN_EVENT()
Sleep(68)
MouseDown("left")
Sleep(68)
MouseUp("left")
Sleep(68)
Send("{SHIFTUP}")
Sleep(68)
Send("{SHIFTDOWN}")
Sleep(68)
Send("{SHIFTUP}")
Sleep(68)
Send("{SHIFTDOWN}")
Sleep(68)
Send("{3 DOWN}")
Sleep(68)
Send("{3 up}")
Sleep(68)
MouseDown("left")
Sleep(68)
MouseUp("left")
Sleep(68)
Send("{SHIFTUP}")
Sleep(68)
Send("{SHIFTDOWN}")
Sleep(68)
Send("{SHIFTUP}")
Sleep(68)
Send("{SHIFTDOWN}")
Sleep(68)
Send("{1 DOWN}")
Sleep(68)
Send("{1 up}")
Sleep(68)
MouseDown("left")
Sleep(68)
MouseUp("left")
Sleep(68)
Send("{SHIFTUP}")
Sleep(68)
EndFunc
