Что нового

Бот "Зомби Ферма" вконтакте

Bolgar

Freestyle Wrestling
Сообщения
1
Репутация
0
Пытаюсь сделать бота, чтобы деревья кидал на склад, но ничего не выходит, запросы беру с чарлис, но ничего мой ботик не делает, ни на что не реагирует вообще, мож я что-то не так из Сharles беру, подскажите вот код
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ферма", 316, 235, 349, 249)
$GroupBox1 = GUICtrlCreateGroup("", 8, 0, 305, 193)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("& Дерево 1", 70, 203, 75, 25, BitOR($BS_CENTER,$BS_VCENTER))
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button2 = GUICtrlCreateButton("& Дерево 2", 149, 204, 75, 25)
GUICtrlSetBkColor(-1, 0x808080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
        Case $Button1 ;Первая кнопка Собрать деревья 1
            $URL = "http://95.163.80.20/zombievk/go"
            $PostData = "crc=f3acfa3d5da86bdb53680a38d8eed819&data=%7B%22user%22%3A%2212737083%22%2C%22id%22%3A1304014495745%2C%22events%22%3A%5B%7B%22objId%22%3A22915%2C%22action%22%3A%22pick%22%2C%22itemId%22%3A%22S%5F19%22%2C%22type%22%3A%22item%22%7D%5D%2C%22type%22%3A%22EVT%22%2C%22sig%22%3A%22e65d1ae529131a5d9a98078346fe1306%22%7D"
            $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
        Case $Button2 ;Вторая кнопка Собрать  деревья 2
            $URL = "_"
            $PostData = "_"
            $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
    EndSwitch
WEnd


Если кто не понял, что я пытаюсь сделать вот скрин.
У меня 2-парыдровосеков, каждый кладек к себе деревья, вот я и пытаюсь не собирать эти деревья вручную, а чтобы бот кидал деревья в Склад, ктото напишет что у меня код совсем не правильный мне щас главное не цикл ит.д, мне хотябы сделать чтобы это выполнялось по нажатию на Кнопки - в боте

Красным на скрине обведено куда ложат деревья, и оттуда я уже их забираю на склад, кто играл тот знает

 

Belfigor

Модератор
Локальный модератор
Сообщения
3 593
Репутация
938
{CodeWarn}
 
Верх