PDA

Просмотр полной версии : [Программа] [OpenSource] Simple Instalocker


Qnix
02.07.2014, 00:25
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Вы устали от игр которые начинаются с пика и слов я carry, я мид, я топ? Тогда это программа для вас.
Вашему вниманию предоставляется Paraly's Autopicker.

Функции:
Быстрый и автоматический выбор чемпиона (героя).
Автоматическое оповещение игроков, о вашей игровой роли (сообщение в чат).
Опциональный Instalock.
Оптимизация под любой.

Примечание: на данный момент не работает встроенный auto-accept.

[Ссылки могут видеть только зарегистрированные и активированные пользователи]

PHP 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|Blitzcr ank|Brand|Braum|Caitlyn|Cassiopeia|Cho'Gath|Corki| Darius|Diana|Dr. Mundo|"
$combo_data &= "Draven|Elise|Evelynn|Ezreal|Fiddlesticks|Fiora|Fiz z|Galio|Gangplank|Garen|Gragas|Graves|Hecarim|Heim erdinger|Irelia|Janna|Jarvan IV|"
$combo_data &= "Jax|Jayce|Jinx|Karma|Karthus|Kassadin|Katarina|Kay le|Kennen|Kha'Zix|Kog'Maw|LeBlanc|Lee Sin|Leona|Lissandra|Lucian|Lulu|Lux|Malphite|Malza har|Maokai|Master Yi|"
$combo_data &= "Miss Fortune|Modekaiser|Morgana|Nami|Nasus|Nautilus|Nid alee|Nocturne|Nunu|Olaf|Orianna|Pantheon|Poppy|Qui nn|Rammus|Renekton|Rengar|Riven|Rumble|Ryze|Sejuan i|Shaco|Shen|"
$combo_data &= "Shyvana|Singed|Sion|Sivir|Skarner|Sona|Soraka|Swai n|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_AUT OHSCROLL))
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

Ссылки:
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])или[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи] 871eb65a4c56f6/analysis/1404242068/)
Материал взят и переведён с сайта elitepvpers.com, ссылка на тему в лого-картинке!