Что нового

Макросы для PointBlank

CreatiK

Новичок
Сообщения
93
Репутация
4
Делал макрос для PB из исходника хотел добавить в программу Спамер и автовыстрелы. Исходник работал а когда я добавил спамер он перестал. Помогите найти ошибку
Код:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Resources.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=
Global $Kill = 0 
Global $Autot = 0 
Global $Droban = 0 
Global $Pest = 0 
Global $Spamer = 0 

$Form1 = GUICreate("SMPB - Сборник макросов для PB", 494, 230, 283, 188)
$Group1 = GUICtrlCreateGroup("Макросы", 224, 0, 265, 161, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$M1 = GUICtrlCreateCombo("", 400, 16, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
$M2 = GUICtrlCreateCombo("", 400, 48, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
$M3 = GUICtrlCreateCombo("", 400, 88, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
$M4 = GUICtrlCreateCombo("", 400, 120, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
GUICtrlSetData($M1, "q|w|e|r|t|z|u|i|o|p|u|a|s|d|f|g|h|j|k|l|o|a|y|x|c|v|b|n|m|1|2|3|4|5|6|7|8|9|0|-|=|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD0|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|Insert|Home|End")
GUICtrlSetData($M2, "q|w|e|r|t|z|u|i|o|p|u|a|s|d|f|g|h|j|k|l|o|a|y|x|c|v|b|n|m|1|2|3|4|5|6|7|8|9|0|-|=|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD0|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|Insert|Home|End")
GUICtrlSetData($M3, "q|w|e|r|t|z|u|i|o|p|u|a|s|d|f|g|h|j|k|l|o|a|y|x|c|v|b|n|m|1|2|3|4|5|6|7|8|9|0|-|=|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD0|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|Insert|Home|End")
GUICtrlSetData($M4, "q|w|e|r|t|z|u|i|o|p|u|a|s|d|f|g|h|j|k|l|o|a|y|x|c|v|b|n|m|1|2|3|4|5|6|7|8|9|0|-|=|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD0|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|Insert|Home|End")
$Label1 = GUICtrlCreateLabel("Автовыстрел для SSG-96", 248, 24, 132, 17)
$Label2 = GUICtrlCreateLabel("Автовыстрел для Оружия", 248, 56, 134, 17)
$Label3 = GUICtrlCreateLabel("Дробовик - Пулемет", 248, 88, 108, 17)
$Label4 = GUICtrlCreateLabel("Пистолет - Пулемет(K-5)", 248, 120, 127, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Спамер", 8, 0, 209, 217, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Input1 = GUICtrlCreateInput("", 16, 24, 185, 21)
$Input2 = GUICtrlCreateInput("", 16, 56, 185, 21)
$Input3 = GUICtrlCreateInput("", 16, 88, 185, 21)
$Input4 = GUICtrlCreateInput("", 16, 120, 185, 21)
$Input5 = GUICtrlCreateInput("", 16, 152, 185, 21)
$S1 = GUICtrlCreateCombo("", 112, 184, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
GUICtrlSetData($S1, "q|w|e|r|t|z|u|i|o|p|u|a|s|d|f|g|h|j|k|l|o|a|y|x|c|v|b|n|m|1|2|3|4|5|6|7|8|9|0|-|=|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD0|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|Insert|Home|End")
$Label6 = GUICtrlCreateLabel("Выбрать кнопку", 24, 188, 86, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Запустить макросы и спамер", 224, 168, 105, 49, BitOR($BS_MULTILINE,$WS_BORDER))
$Button2 = GUICtrlCreateButton("Запустить Cheat Engine v1.3", 336, 168, 81, 49, BitOR($BS_MULTILINE,$WS_BORDER))
$Button3 = GUICtrlCreateButton("?", 424, 168, 65, 49, BitOR($BS_MULTILINE,$WS_BORDER))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button3
			_informations()
		Case $Button1
			WinSetState($Form1, '', @SW_HIDE)
			WinWait("Point Blank")
			If Not WinActive("Point Blank")  Then WinActivate("Point Blank")
			WinWaitActive("Point Blank")
			AdlibRegister('Zkey')
				If $Kill = 1 then ;
			PixelSearch(310, 300, 1024, 764, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
				If Not @error then
			AutoItSetOption ("MouseClickDownDelay",200)
			MouseClick("left")
			Sleep(14)
			MouseClick("left")
			Sleep(14)
			MouseClick("left")
			Sleep(14)
				EndIf
				EndIf
				If $Autot = 1 then ;
			PixelSearch(310, 300, 1024, 764, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
				If Not @error then
			AutoItSetOption ("MouseClickDownDelay",50) 
			AutoItSetOption ("SendKeyDownDelay",50)
			MouseClick("left") 
			Send("{3}") 
			Send("{1}") 
			AutoItSetOption ("SendKeyDownDelay",12) 
			AutoItSetOption ("MouseClickDownDelay",12)
			EndIf
			EndIf
				If $Droban = 1 then
				if _IsPressed(02)=1 Then
			AutoItSetOption ("MouseClickDownDelay",50) 
			AutoItSetOption ("SendKeyDownDelay",50)  
			MouseClick("left") 
			Sleep(20) 
			Send("{2}") 
			Send("{1}") 
			AutoItSetOption ("SendKeyDownDelay",10) 
			AutoItSetOption ("MouseClickDownDelay",10)
				EndIf
				EndIf
				If $Pest = 1 then
				if _IsPressed(02)=1 Then
					MouseClick('left') ; клик лкм
				EndIf
				EndIf
			If $Spamer = 1 then
				Send( "{ENTER}")
				Send($Input1)
				sleep(1000)
					Send( "{ENTER}")
					Send($Input2)
					sleep(1000)
						Send( "{ENTER}")
						Send($Input3)
						sleep(1000)
							Send( "{ENTER}")
							Send($Input4)
							sleep(1000)
								Send( "{ENTER}")
								Send($Input5)
								sleep(1000)
				Send( "{ENTER}")
				sleep(1000)
			EndIf
	EndSwitch
WEnd

Func _informations()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Информация", 459, 393, -1, -1)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 441, 345, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("О программе:\r\n---------------------------------------------------------------\r\nSMPB - Сборник макросов для PB -.\r\nДанная программа написана для игры PointPlank на AutoIt3\r\nи является макросом, кроме Cheat Engine v1.3 от .:InSiDe:.\r\nВстроил для удобства .\r\nИнструкция:\r\n----------------------------------------------------------------\r\nДля лучшей функциональности на Windows 7 запускать от имени \r\nадминистратора.\r\nИспользование программы:\r\n1.Запускаем игру\r\n2.Выбираем нужные на клавиши(для выключение функции нажмите второй \r\nраз на заданную вами клавишу)\r\n3.Нажмите кнопку Запустить макросы и спамер(автоматически переходим в игру)\r\n4.Нажимаем ранее выбранную кнопку функции\r\n3.Автовыстрел стреляет при наведение на противника(стреляет на \r\nкрасный прицел)\r\n---------------------------------------------------------------\n\r\nПрограмму написал:\r\nCreAtiK \r\n---------------------------------------------------------------\r\n\nСоздатель Cheat Engine v1.3:\r\n.:InSiDe:."))
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$Exit1 = GUICtrlCreateButton("Закрыть", 8, 360, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			GUISetState(@SW_HIDE, $Form2)
		Case $Exit1
			GUISetState(@SW_HIDE, $Form2)
	EndSwitch
WEnd
EndFunc

Func Zkey()
	
            HotKeySet('{' & GUICtrlRead($M1) & '}', 'atkKill2')
            HotKeySet('{' & GUICtrlRead($M2) & '}', 'atkKill')
            HotKeySet('{' & GUICtrlRead($M3) & '}', 'atkKill3')
            HotKeySet('{' & GUICtrlRead($M4) & '}', 'atkKill4')
			HotKeySet('{' & GUICtrlRead($S1) & '}', 'spamer')
	
EndFunc

Func atkKill() 
   If $Kill = 0 Then 
     $Kill = 1 
   Else 
     $Kill = 0 
   EndIf 
 EndFunc 
 
 Func atkKill2() 
   If $Autot = 0 Then 
     $Autot = 1 
   Else 
     $Autot = 0 
   EndIf 
 EndFunc 
 
 Func atkKill3() 
   If $Droban = 0 Then 
     $Droban = 1 
   Else 
     $Droban = 0 
   EndIf 
 EndFunc 
 
 Func atkKill4() 
   If $Pest = 0 Then 
     $Pest = 1 
   Else 
     $Pest = 0 
   EndIf 
 EndFunc 
 
  Func spamer() 
   If $Spamer = 0 Then 
     $Spamer = 1 
   Else 
     $Spamer = 0 
   EndIf 
 EndFunc


Ошибка возможно где то тут
Код:
Case $Button1
            WinSetState($Form1, '', @SW_HIDE)
            WinWait("Point Blank")
            If Not WinActive("Point Blank")  Then WinActivate("Point Blank")
            WinWaitActive("Point Blank")
            AdlibRegister('Zkey')
                If $Kill = 1 then ;
            PixelSearch(310, 300, 1024, 764, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
                If Not @error then
            AutoItSetOption ("MouseClickDownDelay",200)
            MouseClick("left")
            Sleep(14)
            MouseClick("left")
            Sleep(14)
            MouseClick("left")
            Sleep(14)
                EndIf
                EndIf
                If $Autot = 1 then ;
            PixelSearch(310, 300, 1024, 764, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
                If Not @error then
            AutoItSetOption ("MouseClickDownDelay",50)
            AutoItSetOption ("SendKeyDownDelay",50)
            MouseClick("left")
            Send("{3}")
            Send("{1}")
            AutoItSetOption ("SendKeyDownDelay",12)
            AutoItSetOption ("MouseClickDownDelay",12)
            EndIf
            EndIf
                If $Droban = 1 then
                if _IsPressed(02)=1 Then
            AutoItSetOption ("MouseClickDownDelay",50)
            AutoItSetOption ("SendKeyDownDelay",50)  
            MouseClick("left")
            Sleep(20)
            Send("{2}")
            Send("{1}")
            AutoItSetOption ("SendKeyDownDelay",10)
            AutoItSetOption ("MouseClickDownDelay",10)
                EndIf
                EndIf
                If $Pest = 1 then
                if _IsPressed(02)=1 Then
                    MouseClick('left') ; клик лкм
                EndIf
                EndIf
            If $Spamer = 1 then
                Send( "{ENTER}")
                Send($Input1)
                sleep(1000)
                    Send( "{ENTER}")
                    Send($Input2)
                    sleep(1000)
                        Send( "{ENTER}")
                        Send($Input3)
                        sleep(1000)
                            Send( "{ENTER}")
                            Send($Input4)
                            sleep(1000)
                                Send( "{ENTER}")
                                Send($Input5)
                                sleep(1000)
                Send( "{ENTER}")
                sleep(1000)
            EndIf
 
Верх