ventekamas.com
Place your Ad here for €1.10 per CPM (1000 impressions)!

Para's InstaLock - Dites immédiatement votre rôle et verrouiller votre Champion !

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Lekebab666

Lekebab666

Membre Banni
Dec 21, 2015
9
0
26

d3e46d0f79.png


Un grand bonjour, voilà je remet Para's InstaLock sans virus ^^

Vous en avez marre de ne pas pouvoir choisir votre lane et votre champion dans le matchmaking aveugle ? Grace à Para's InstaLock vous n'avez plus ce problème. ;)
Il dit automatiquement votre rôle, puis se verrouille sur le champion souhaitée.​

Fonctions

  • Déctection automatique de la sélection des champions
  • Écriture d'un texte personnalisé à l'équipe dans le chat
  • Sélection instantanément votre champion
  • Insta-Lock optionnel
  • Optimiser pour la vitesse de votre PC

Téléchargement

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Source

Code: 
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Opt("TrayMenuMode", 1+2)
Global $aboutitem = TrayCreateItem("About")
Global $prefsitem = TrayCreateItem("Settings")
TrayCreateItem("")
Global $exititem = TrayCreateItem("Exit")

Global $searchbox_X, $searchbox_Y, $submitbox_X, $submitbox_Y, $champbox_X, $champbox_Y, $checkbox_X, $Checkbox_Y, $textbox_X, $textbox_Y, $Acceptbox_X, $Acceptbox_Y, $Accept_checkbox_X, $Accept_checkbox_Y, $Clip_type, $Clip_champ
Global $Speed = 1, $multiplier = 0.75, $Title_main = "Para's Instapicker", $version = 0.43


$combo_data = "Ahri|Akali|Alistar|Amumu|Anivia|Annie|Ashe|Blitzcrank|Brand|Braum|Caitlyn|Cassiopeia|Cho'Gath|Corki|Darius|Diana|Dr. Mundo|"
$combo_data &= "Draven|Elise|Evelynn|Ezreal|Fiddlesticks|Fiora|Fizz|Galio|Gangplank|Garen|Gragas|Graves|Hecarim|Heimerdinger|Irelia|Janna|Jarvan IV|"
$combo_data &= "Jax|Jayce|Jinx|Karma|Karthus|Kassadin|Katarina|Kayle|Kennen|Kha'Zix|Kog'Maw|LeBlanc|Lee Sin|Leona|Lissandra|Lucian|Lulu|Lux|Malphite|Malzahar|Maokai|Master Yi|"
$combo_data &= "Miss Fortune|Modekaiser|Morgana|Nami|Nasus|Nautilus|Nidalee|Nocturne|Nunu|Olaf|Orianna|Pantheon|Poppy|Quinn|Rammus|Renekton|Rengar|Riven|Rumble|Ryze|Sejuani|Shaco|Shen|"
$combo_data &= "Shyvana|Singed|Sion|Sivir|Skarner|Sona|Soraka|Swain|Syndra|Talon|Taric|Teemo|Thresh|Tristana|Trundle|Tryndamere|Twisted Fate|Twitch|Udyr|Urgot|Varus|Vayne|Veigar|Vel'Koz|Vi|"
$combo_data &= "Viktor|Vladimir|Volibear|Warwick|Wukong|Xerath|Xin Zhao|Yasuo|Yorick|Zac|Zed|Ziggs|Zilean|Zyra"

$GUI = GUICreate($Title_main, 202, 67, 602, 468)
$Input = GUICtrlCreateInput("", 0, 0, 201, 21)
$Combo = GUICtrlCreateCombo("Aatrox", 0, 24, 201, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combo_data )
$CBox = GUICtrlCreateCheckbox("Instalock",4,48,65,17)
GUICtrlSetState(-1,$GUI_CHECKED)
$CBox2 = GUICtrlCreateCheckbox("Auto-Accept",73,48,80,17)
GUICtrlSetState(-1,$GUI_UNCHECKED)
GUICtrlSetState(-1,$GUI_DISABLE)
$BTN = GUICtrlCreateButton("OK", 156, 48, 43, 17)
GUISetState(@SW_SHOW)

While 1
_WinMSG()
_TrayCheck()
WEnd



Func _WaitforAcceptGame();experimental
    $refresh_calc_timer = TimerInit()
    _calc_pos()
    _calc_delay()
    Do
        sleep(10)
        $refresh_calc_timer_dif = TimerDiff($refresh_calc_timer)
        If $refresh_calc_timer_dif > 500 Then
            _calc_pos()
            $refresh_calc_timer = TimerInit()
        EndIf
        _WinMSG()
        _TrayCheck()
        ToolTip(Hex(PixelGetColor($Accept_checkbox_X, $Accept_checkbox_Y),6),0,0)
        Local $temp_p = PixelGetColor($Accept_checkbox_X, $Accept_checkbox_Y)
    Until $temp_p <> 0xC16213 And $temp_p <> 0xC06213 And $temp_p <> 0xC26313 And $temp_p <> 0xC36313 And $temp_p <> 0xC46414 And $temp_p <> 0xC56514 And $temp_p <> 0xC46514 And $temp_p <> 0xC56614 And $temp_p <> 0xC36414 And $temp_p <> 0xC66614 And $temp_p <> 0xC46313 And $temp_p <> 0xC16313 And $temp_p <> 0xC36213 And $temp_p <> 0xC26213 And $temp_p <> 0xC06113 And $temp_p <> 0xC56414 And WinActive("PVP.net Client")
    Sleep(750 * $multiplier)
    MouseClick("LEFT",$Acceptbox_X,$Acceptbox_Y,2,1)
EndFunc


Func _WaitforChampselection()
    $refresh_calc_timer = TimerInit()
    _calc_pos()
    _calc_delay()
    Do
        sleep(10)
        $refresh_calc_timer_dif = TimerDiff($refresh_calc_timer)
        If $refresh_calc_timer_dif > 500 Then
            _calc_pos()
            $refresh_calc_timer = TimerInit()
        EndIf
        _WinMSG()
        _TrayCheck()
    Until PixelGetColor($checkbox_X, $Checkbox_Y) = 0xF08B2C
    Sleep(330 * $multiplier)
    _calc_pos()
    MouseClick("LEFT",$textbox_X,$textbox_Y,2,1)
    Sleep(240 * $multiplier)
    $temp_clip = ClipGet()
    ClipPut($Clip_type)
    Send("^v")
    Sleep(200 * $multiplier)
    Send("{enter}")
    Sleep(240 * $multiplier)
    MouseClick("LEFT",$searchbox_X,$searchbox_Y,2,1)
    Sleep(290 * $multiplier)
    ClipPut($Clip_champ)
    Send("^v")
    Sleep(480 * $multiplier)
    MouseClick("LEFT",$champbox_X,$champbox_Y,2,1)
    sleep(290 * $multiplier)
    If GUICtrlRead($CBox) = 1 Then
        MouseClick("LEFT",$submitbox_X,$submitbox_Y,2,1)
    EndIf
    ClipPut($temp_clip)
EndFunc

Func _calc_delay()
    If $Speed = 0 Then
        $multiplier = 1
    ElseIf $Speed = 1 Then
        $multiplier = 0.75
    ElseIf $Speed = 2 then
        $multiplier = 0.5
    EndIf
EndFunc

Func _calc_pos()
    $wintitle = WinGetTitle("[CLASS:ApolloRuntimeContentWindow]")
    $p = WinGetPos($wintitle)
    If @error Then
        MsgBox(16,"League of Legends not found","Errorcode: 13",3)
        Exit
    EndIf
    $textbox_X = $p[2] / 3.961904761904762
    $textbox_X += $p[0]
    $textbox_Y = $p[3] / 1.084462982273201
    $textbox_Y += $p[1]

    $searchbox_X = $p[2] / 1.460930640913082
    $searchbox_X += $p[0]
    $searchbox_Y = $p[3] / 6.303030303030303
    $searchbox_Y += $p[1]

    $champbox_X = $p[2] / 3.961904761904762
    $champbox_X += $p[0]
    $champbox_Y = $p[3] / 3.924528301886792
    $champbox_Y += $p[1]

    $submitbox_X = $p[2] / 1.484388938447814
    $submitbox_X += $p[0]
    $submitbox_Y = $p[3] / 1.60741885625966
    $submitbox_Y += $p[1]

    $checkbox_X = $p[2] / 3.328
    $checkbox_X += $p[0]
    $Checkbox_Y = $p[3] / 6.419753086419753
    $Checkbox_Y += $p[1]

    $Acceptbox_X = $p[2] / 2.220563847429519
    $Acceptbox_X += $p[0]
    $Acceptbox_Y = $p[3] / 1.803879310344828
    $Acceptbox_Y += $p[1]

    $Accept_checkbox_X = $p[2] / 1.510438413361169
    $Accept_checkbox_X += $p[0]
    $Accept_checkbox_Y = $p[3] / 13.90769230769231
    $Accept_checkbox_Y += $p[1]
EndFunc

Func _WinMSG()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BTN
            $Clip_type = GUICtrlRead($Input)
            $Clip_champ = GUICtrlRead($Combo)
            GUICtrlSetState($BTN,$GUI_DISABLE)
            If GUICtrlRead($CBox2) = 1 Then
                _WaitforAcceptGame()
            EndIf
            _WaitforChampselection()
            GUICtrlSetState($BTN,$GUI_ENABLE)
            TrayTip("successfully","Mission completed :>",3)
    EndSwitch
EndFunc

Func _TrayCheck()
Local $msg = TrayGetMsg()
    Select
        Case $msg = $aboutitem
            MsgBox(64,"About:","Version: " & $version &  @CRLF & "Author: Paraly" & @CRLF & "- Done for Elitepvpers -")
        Case $msg = $prefsitem
            GUISetState(@SW_HIDE, $GUI)
            _Settings(0)
            $GUI2 = GUICreate("Settings", 156, 32, 650, 511)
            $LBL = GUICtrlCreateLabel("Your PC-Speed:", 2,1,100,14)
            $BTN2 = GUICtrlCreateButton("Low", 0, 16, 51, 17)
            If $Speed = 0 Then
                GUICtrlSetState(-1,$GUI_DISABLE)
            EndIf
            $BTN3 = GUICtrlCreateButton("Medium", 52, 16, 51, 17)
            If $Speed = 1 Then
                GUICtrlSetState(-1,$GUI_DISABLE)
            EndIf
            $BTN4 = GUICtrlCreateButton("High", 104, 16, 51, 17)
            If $Speed = 2 Then
                GUICtrlSetState(-1,$GUI_DISABLE)
            EndIf
            GUISetState(@SW_SHOW)

            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        _Settings(1)
                        GUISetState(@SW_HIDE, $GUI2)
                        GUISetState(@SW_SHOW, $GUI)
                        WinActivate($Title_main)
                        ExitLoop
                    Case $BTN2
                        GUICtrlSetState($BTN2,$GUI_DISABLE)
                        GUICtrlSetState($BTN3,$GUI_ENABLE)
                        GUICtrlSetState($BTN4,$GUI_ENABLE)
                        $Speed = 0
                    Case $BTN3
                        GUICtrlSetState($BTN2,$GUI_ENABLE)
                        GUICtrlSetState($BTN3,$GUI_DISABLE)
                        GUICtrlSetState($BTN4,$GUI_ENABLE)
                        $Speed = 1
                    Case $BTN4
                        GUICtrlSetState($BTN2,$GUI_ENABLE)
                        GUICtrlSetState($BTN3,$GUI_ENABLE)
                        GUICtrlSetState($BTN4,$GUI_DISABLE)
                        $Speed = 2
                EndSwitch
            WEnd
        Case $msg = $exititem
            Exit
    EndSelect
EndFunc

Func _Settings($mode)
    If $mode = 0 Then;Load
        If FileExists(@TempDir & "\Instapicker\Instapicker.cfg") Then
            $f_settings = FileOpen(@TempDir & "\Instapicker\Instapicker.cfg",0)
            $CFG_data = FileRead($f_settings)
            FileClose($f_settings)
            $CFG_Speed = StringRegExp($CFG_data,"CFG_Speed=(.*?);",3)
            If IsArray($CFG_Speed) Then
                $Speed = $CFG_Speed[0]
            Else
                MsgBox(0,"ERROR","Errorcode: 33",3)
                Exit
            EndIf
        Else
            _Settings(1)
        EndIf
    ElseIf $mode = 1 Then;Save
        $f_settings = FileOpen(@TempDir & "\Instapicker\Instapicker.cfg",2+8)
        FileWrite($f_settings,"CFG_Speed=" & $Speed & ";" & @CRLF)
        FileClose($f_settings)
    Else
        MsgBox(16,"ERROR","Errorcode: 31",3)
        Exit
    EndIf
EndFunc

Crédit

Merci à Paraly pour le développement de ce tool ^^​
 
Last edited:
Vendez vos kamas au meilleur prix
P

poussemich

Nouveau membre
Dec 22, 2015
1
0
561
29
Il est considéré comme un fichier dangereux par mediafire, donc impossible a télécharger
 
Evaelis

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
Nop, dès que tu cliques sur le lien, tu n'arrives pas à la page de téléchargement.
Mets le en pièce jointe.
5334cc3a59.png
 
Ryckan

Ryckan

Membre
Nov 10, 2015
14
0
26
Le tien ne marchait pas,j'ai été gratté sur un autre forum le meme programme et il fonctionne. Bizarre
 
Last edited:
Stanislav

Stanislav

▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪▪ ▪▪▪▪▪
V
May 18, 2011
2,033
12
944
54.90990461556954, 99.00165446794215
Lekebab666

Lekebab666

Membre Banni
Dec 21, 2015
9
0
26
Pour ma part le logicle marche sa viens de toi je fairais une vidéo dans la journée si j'ai le temps ;)
 
redmister

redmister

Membre Banni
Jan 12, 2014
150
0
141
ahhaah
Merci du partage il marche niquel ! :D

---------- Message ajouté à 20h22 ---------- Le message précédent était à 13h38 ----------

Ces un hack je l'ai ouvert et sa a envoyer ce message automatiquement 'Merci du partage il marche niquel ! :D'.
Je demande qu'on ferme ce post.
#Modo
 
Votre publicité ici !
Vente achat & echange de kamas
You must log in or register to reply here.
Top Bottom