anti-recoil simplu in autoit

This article has been written before more than 24months, information might old.

De curiozitate am incercat sa fac un anti recoil in autoit , mai am ceva de genul in visual basic si functioneaza mai bine si acesta functioneaza dar , nu e perfect probabil pe viitor am sa ii mai fac un update si probabil ca o sa pun mai multe versiuni facute in diferite medii .

pana atunci exe-ul il puteti downloada de aici : http://exe.satanic.ro/exe/autoit_norecaut_exe.zip

Sursa :

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author: plm(Azrael-sub7)

 Script Function:
 Anti - recoil .....  	.

#ce ----------------------------------------------------------------------------

; Includes
#Include <constants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <statusbarconstants.au3>
#include <windowsconstants.au3>
#include <misc.au3>
;////////////////////////////////
;Options
;#NoTrayIcon
Opt("TrayMenuMode",1)
;///////////////////////////////
;Api form windows
$dll = DllOpen("user32.dll")
;////////////////////////////////
; Global Variables
$sactive = 1;
$showgui = 0;
$mposspeed = 0;
$nrclf = 0;
;////////////////////////////////
; // Graphical

;Gui
$main = GUICreate("Anti Recoil for fps games    by    Azrael-Sub7 (azrael-sub7.ro)", 581, 207, 251, 291)
$Group1 = GUICtrlCreateGroup("Curent Status", 16, 8, 337, 137)
$gsactive = GUICtrlCreateLabel("Anti Recoil Status : On", 112, 32, 115, 17)
$gmousspeed = GUICtrlCreateLabel("Anti Recoil Speed :", 120, 64, 95, 17)
$Label7 = GUICtrlCreateLabel("Minim : 1", 144, 96, 46, 17)
$Label8 = GUICtrlCreateLabel("Maxim 6", 256, 96, 43, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Control", 16, 144, 553, 57)
$start = GUICtrlCreateButton("Start", 32, 160, 65, 25, 0)
$stop = GUICtrlCreateButton("Stop", 96, 160, 65, 25, 0)
$plus = GUICtrlCreateButton("Add speed", 208, 160, 65, 25, 0)
$minus = GUICtrlCreateButton("Substract speed", 272, 160, 89, 25, 0)
$tray = GUICtrlCreateButton("Go to Tray", 408, 160, 65, 25, 0)
$exit = GUICtrlCreateButton("Exit", 472, 160, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Hotkeys", 360, 8, 209, 137)
$Label1 = GUICtrlCreateLabel(" Page up  for + speed", 400, 24, 106, 17)
$Label2 = GUICtrlCreateLabel(" Page Down  for - speed", 400, 40, 119, 17)
$Label3 = GUICtrlCreateLabel(" Home  For start Anti Recoil", 400, 64, 127, 17)
$Label4 = GUICtrlCreateLabel(" End  For stop Anti Recoil", 400, 80, 118, 17)
$Label5 = GUICtrlCreateLabel(" Insert  For go to tray", 400, 104, 101, 17)
$Label6 = GUICtrlCreateLabel(" Delete  For Exit", 400, 120, 79, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("Speed :", 64, 96, 41, 17)
GUISetState(@SW_SHOW)

;Gui update
if $sactive Then
 GUICtrlSetData( $gsactive , "Anti Recoil Status : ON");
Else
 GUICtrlSetData( $gsactive , "Anti Recoil Status : OFF");
EndIf
GUICtrlSetData($gmousspeed , "Anti Recoil Speed : " & $mposspeed);
;//////////////////////////

;///////////////////////////////////////////////////////////
;Tray
$sguuui   = TrayCreateItem("Show Interface")
TrayCreateItem("")
$exititem       = TrayCreateItem("Exit")
TraySetState()
;////////////////////////////////////////////////////////////

;///////////////////////////////////////

While true

 $trmsg = TrayGetMsg()
 Switch $trmsg
 Case $sguuui

 $main = GUICreate("Anti Rcoil for fps games    by    Azrael-Sub7 (azrael-sub7.ro)", 581, 207, 251, 291)
$Group1 = GUICtrlCreateGroup("Curent Status", 16, 8, 337, 137)
$gsactive = GUICtrlCreateLabel("Anti Rcoil Status : On", 112, 32, 115, 17)
$gmousspeed = GUICtrlCreateLabel("Anti Rcoil Speed :", 120, 64, 95, 17)
$Label7 = GUICtrlCreateLabel("Minim : 1", 144, 96, 46, 17)
$Label8 = GUICtrlCreateLabel("Maxim 6", 256, 96, 43, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Control", 16, 144, 553, 57)
$start = GUICtrlCreateButton("Start", 32, 160, 65, 25, 0)
$stop = GUICtrlCreateButton("Stop", 96, 160, 65, 25, 0)
$plus = GUICtrlCreateButton("Add speed", 208, 160, 65, 25, 0)
$minus = GUICtrlCreateButton("Substract speed", 272, 160, 89, 25, 0)
$tray = GUICtrlCreateButton("Go to Tray", 408, 160, 65, 25, 0)
$exit = GUICtrlCreateButton("Exit", 472, 160, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Hotkeys", 360, 8, 209, 137)
$Label1 = GUICtrlCreateLabel(" Page up  for + speed", 400, 24, 106, 17)
$Label2 = GUICtrlCreateLabel(" Page Down  for - speed", 400, 40, 119, 17)
$Label3 = GUICtrlCreateLabel(" Home  For start Anti Rcoil", 400, 64, 127, 17)
$Label4 = GUICtrlCreateLabel(" End  For stop Anti Rcoil", 400, 80, 118, 17)
$Label5 = GUICtrlCreateLabel(" Insert  For go to tray", 400, 104, 101, 17)
$Label6 = GUICtrlCreateLabel(" Delete  For Exit", 400, 120, 79, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("Speed :", 64, 96, 41, 17)
GUISetState(@SW_SHOW)

 Case $exititem
 ExitLoop
 EndSwitch

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $exit
Exit
case $tray
GUIDelete($main);
Case $start
$sactive = 1;
GUICtrlSetData( $gsactive , "Anti Rcoil Status : ON");
Case $stop
$sactive = 0;
GUICtrlSetData( $gsactive , "Anti Rcoil Status : OFF");
Case $plus
if($mposspeed < 6) Then
$mposspeed = $mposspeed + 1;
GUICtrlSetData($gmousspeed , "Anti Rcoil Speed : " & $mposspeed);

EndIf

Case $minus

if((Not($mposspeed < 0)) and (Not($mposspeed  =  0)) ) Then
 $mposspeed = $mposspeed - 1;
GUICtrlSetData($gmousspeed , "Anti Rcoil Speed : " & $mposspeed);

EndIf	

EndSwitch

if(_IsPressed("2D")) Then
GUIDelete($main);
EndIf
if(_IsPressed("2E")) Then
Exit
EndIf
if(_IsPressed(21)) Then
if($mposspeed < 6) Then
$mposspeed = $mposspeed + 1;
GUICtrlSetData($gmousspeed , "Anti Rcoil Speed : " & $mposspeed);
Sleep(100)
EndIf
EndIf
if(_IsPressed(22)) Then
if((Not($mposspeed < 0)) and (Not($mposspeed  =  0)) ) Then
 $mposspeed = $mposspeed - 1;
GUICtrlSetData($gmousspeed , "Anti Rcoil Speed : " & $mposspeed);
Sleep(100)
EndIf
EndIf
if(_IsPressed(23)) Then
$sactive = 0;
GUICtrlSetData( $gsactive , "Anti Rcoil Status : OFF");
EndIf
if(_IsPressed(24)) Then
$sactive = 1;
GUICtrlSetData( $gsactive , "Anti Rcoil Status : ON");
EndIf

if ($sactive) Then

if(_IsPressed(01)) Then

 $y = MouseGetPos();
 $mposf = $y[1] + $mposspeed;
 MouseMove($y[0],$mposf , 100)
 $nrclf += 1
EndIf
EndIf	

 WEnd
DllClose($dll)
Share the joy

2 Comments

  1. azrael-sub7 septembrie 3, 2009
  2. Alexxino septembrie 2, 2009

Leave a Reply