Что нового

[Автоматизация] улучшение бота для тюряги на mail.ru

vadya

Новичок
Сообщения
6
Репутация
0
Написал простейшего бота для тюряги подскажите как сделать, чтоб он автоматически собирал сиги и прибыль и показывал статистику? Заранее благодарен.
Вот сам код:
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Untitled - 3.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Тюряга by Vadyarka", 248, 79, 192, 124)
$Button1 = GUICtrlCreateButton("Собрать сиги", 128, 24, 99, 33)
$Button2 = GUICtrlCreateButton("Собрать прибыль", 16, 24, 99, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$id =InputBox('ID пользователя', 'Введите ID пользователя', 'айди', '',  360, 120)
$key =inputBox('Key пользователя', 'Введите Key пользователя', 'Key', '',  360, 120)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			 Exit
Case $Button1
        For $i = 5 To 5
            $URL = "http://109.234.156.254/prison/universal.php?office"
            $PostData = "app%5Fid=552078&method=office&getidea=1&key="& $key &"&sig=f81d17a676f1a595b4638ed0b09d5121&user="& $id &""
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText
        ToolTip($i, 0, 0)
        Sleep(200)
    Next
Case $Button2
        For $i = 1 To 1
            $URL = "http://109.234.156.254/prison/universal.php?getAllBuildingsRewards"
            $PostData = "app%5Fid=552078&method=getAllBuildingsRewards&key="& $key &"&sig=5ad292345723e69b04b0655c3649d99d&user="& $id &""
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText
        ToolTip($i, 0, 0)
        Sleep(200)
    Next

	EndSwitch
WEnd

Ссылка на приложение: http://my.mail.ru/apps/552078?ref=cat
 

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки кода необходимо заключать в соответствующий тег ([code]), а также большие выдержки текста помещайте под тег [spoiler], там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, Модератор форума.





1. Для кода AutoIt есть свой тег. В редакторе - это черненькая кнопочка с логотипом AutoIt.
Необходимо исправить.

Предупреждение За нарушение общих правил (пункт В.4):
Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.


С уважением, Модератор форума.





2. Автоматизация выполнения действий и отображение каких-либо данных - это уже два вопроса. А в соответсвии правил форума: 1 вопрос - 1 тема. Необходимо разделить вопросы по темам.

3. Настоятельно советую прочитать правила форума. Это облегчает поиск ответов ))

4. Бот уже умеет собирать необходимое?
Если да, то необходимо выполнять эти действия по таймеру.
Например, вызывать функцию сбора каждую 1 сек:
Код:
AdlibRegister('_GetCigarProfit', 1000)
 

Fever

Скриптер
Сообщения
308
Репутация
112
Код:
While 1
	$Cord = PixelSearch(10, 10, @desktopwidth - 100, @desktopheight - 100, 0x460D03)
	If IsArray($Cord) Then
		MouseClick('left', $Cord[0], $Cord[1])
		Sleep(100)
	Else
		MsgBox(0, '', 'больше нет папирос')
		ExitLoop
	EndIf
WEnd


сбор сигарет
 

Guezt

Продвинутый
Сообщения
335
Репутация
82
vadya
Код:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
	Template AutoIt script.

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

; Script Start - Add your code below here

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Untitled - 3.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
;~ $Form1 = GUICreate("Тюряга by Vadyarka", 248, 79, 192, 124)
Global $Auto=0
$Form1 = GUICreate("Тюряга by Vadyarka", 248, 129, 192, 124)

$Button1 = GUICtrlCreateButton("Собрать сиги", 128, 24, 99, 33)
$Button2 = GUICtrlCreateButton("Собрать прибыль", 16, 24, 99, 33)

$B3= GUICtrlCreateButton('Авто сиги',128, 65, 99, 33)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$id =InputBox('ID пользователя', 'Введите ID пользователя', 'айди', '',  360, 120)
$key =inputBox('Key пользователя', 'Введите Key пользователя', 'Key', '',  360, 120)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
             Exit
		 Case $Button1
			 _AutoCig()
;~         For $i = 5 To 5
;~             $URL = "http://109.234.156.254/prison/universal.php?office"
;~             $PostData = "app%5Fid=552078&method=office&getidea=1&key="& $key &"&sig=f81d17a676f1a595b4638ed0b09d5121&user="& $id &""
;~             $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
;~             $oHTTP.Open("POST", $URL)
;~             $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
;~             $oHTTP.Send($PostData)
;~             $oHTTP.WaitForResponse
;~             $Response = $oHTTP.ResponseText
;~         ToolTip($i, 0, 0)
;~         Sleep(200)
;~     Next
       Case $Button2

        For $i = 1 To 1
            $URL = "http://109.234.156.254/prison/universal.php?getAllBuildingsRewards"
            $PostData = "app%5Fid=552078&method=getAllBuildingsRewards&key="& $key &"&sig=5ad292345723e69b04b0655c3649d99d&user="& $id &""
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText
        ToolTip($i, 0, 0)
        Sleep(200)
    Next

Case $B3
	if $Auto=0 Then
	GUICtrlSetState($Button1,$GUI_DISABLE)
	AdlibRegister('_AutoCig',1000*60*15) ; 15 минут
	$Auto=1
Else
	GUICtrlSetState($Button1,$GUI_ENABLE)
	AdlibUnRegister('_AutoCig')
	$Auto=0
	EndIf

    EndSwitch
WEnd


Func _AutoCig()
	For $i = 5 To 5
            $URL = "http://109.234.156.254/prison/universal.php?office"
            $PostData = "app%5Fid=552078&method=office&getidea=1&key="& $key &"&sig=f81d17a676f1a595b4638ed0b09d5121&user="& $id &""
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText
        ToolTip($i, 0, 0)
        Sleep(200)
    Next
EndFunc
 
Автор
V

vadya

Новичок
Сообщения
6
Репутация
0
Guezt Gutsy у меня почему-то такая ошибка выскакивает:
 
Верх