Что нового

[Гpeзы вoйны],[Drеаmwаr.ru] Разpaбoтка бoтa для бpaузеpнoй игры

beshen11

Новичок
Сообщения
7
Репутация
1
Суть бота: необходимо раз в минуту обновить страницу игры, считать цифровой код , записать его в поле и обновить еще раз и так бесконечно :smile:
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: Разработка бота для браузерной игры "Грезы войны".

Ссылку игры.
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: Разработка бота для браузерной игры \\\\\\\"Грезы войны\\\\\\\".

OffTopic:
Как же я не люблю таких людей, нельзя что ли дать прямую ссылку, без реферала, или карма не позволяет?



Добавлено:
Сообщение автоматически объединено:

какой "считать цифровой код"?


Добавлено:
Сообщение автоматически объединено:

"записать его в поле" в какое поле IE,Gui, сторонняя программу?


Добавлено:
Сообщение автоматически объединено:

И зачем создавать 2 тему?
http://autoit-script.ru/index.php/topic,7897.msg53698.html#msg53698
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Re: Разработка бота для браузерной игры "Грезы войны".

Arei,
И зачем создавать 2 тему?
http://autoit-script.ru/index.php/topic,7897.msg53698.html#msg53698
Тема закрыта.
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: Разработка бота для браузерной игры "Грезы войны".

Если, содержание осталось прежним, следовательно закрыть и эту надо.
 
Автор
B

beshen11

Новичок
Сообщения
7
Репутация
1
Re: Разработка бота для браузерной игры "Грезы войны".

тема та же , оформление не понравилось модерам... Суть в добыче ресурсов - в опр. локации(не важно) добываются ресурсы : с интервалом в одну минуту вводится случайный 5-6 цифровой код, т.е. обновляем страницу - выдают код - вводим в поле - запускаем - через минуту обновляем, и т.д.
ссылка wap.dreamwar.ru

пустое поле - нуб - не gui или че то типа, просто есть цифры которые можно считать и в исходном коде страницы, они не зашифрованы, и ввести его в поле для ввода

скажите надо ссылку на рабочего перса ? посмотреть весь процесс ? скриншоты? как обьяснить подробнее?
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: Разработка бота для браузерной игры \"Грезы войны\".

главный вопрос где ресурсы, т.к у меня этой вкладки нет.


Добавлено:
Сообщение автоматически объединено:

Теперь,правильно оформи тему и может тебе кто нибудь поможет.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,602
Репутация
941
Re: Разработка бота для браузерной игры "Грезы войны".

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

""Разработка бота для браузерной игры "Грезы войны" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 
Автор
B

beshen11

Новичок
Сообщения
7
Репутация
1
гы

<Как же я не люблю таких людей, нельзя что ли дать прямую ссылку, без реферала, или карма не позволяет?>

Ути-пути - по рефералам мы не ходим... Разницы если надо просто посмотреть на игровой процесс? Никто же не заставляет прокачиваться минимум до 5 lvl.
Был бы самоучитель или хотя бы учебник - сам бы разобрался - делов на 15 минут , алгоритм на уровне начальной школы, попросил помощи - и началось " на русском форуме - долго и со вкусом будут обьяснять какой ты мудак "....
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: [Грезы войны],[Dreamwar.ru] Разработка бота для браузерно

Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$Form1 = GUICreate("Form1", 617, 438, 192, 114)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 616, 400)

GUISetState(@SW_SHOW)

_IENavigate($Obj1, "http://dreamwar.ru/world/resource.php?end=1&UIN=897")
_IELoadWait($Obj1)
$sText = _IEBodyReadText ($Obj1)
$start = "Введите код:"
$end= "В Земли"
$source = StringFindSE($sText,$start,$end,1)
$w= StringLen($source)
$w=$w-1
$w = StringRight($source,$w)
ConsoleWrite($w)

_IEzap($Obj1,0,1,$w)
sleep(1000)
_IEclick($Obj1,0,5,"[Начать добычу]")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

  func _IEclick($IESET,$form,$index,$name)



 	$oForm = _IEFormGetCollection($IESET, $form)



				Do
					$oSubmit = _IEFormElementGetCollection($oForm, $index)
				Until StringStripWS(_IEFormElementGetValue($oSubmit), $index) = $name
				_IEAction($oSubmit, "click")




	 EndFunc

 func _IEzap($IESET,$form,$index,$text)
	 		$oForm = _IEFormGetCollection($IESET,$form )
				$oText = _IEFormElementGetCollection($oForm, $index)
				_IEFormElementSetValue($oText,$text )



	 EndFunc

Func StringFindSE($string,$start="",$end="",$start_occ=1,$end_occ=1,$cas=0)
    Local $source_start,$source_count,$source
    If $start <> '' Then
        Local $st_count
        $st_count = StringSplit($start,'')
        $source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
    Else
        $source_start = 1
    EndIf
    If $end <> '' Then
        $source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
    Else
        $source_count = -1
    EndIf
    Return StringMid ($string,$source_start,$source_count)
EndFunc



Добавлено:
Сообщение автоматически объединено:

изменил
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$Form1 = GUICreate("Form1", 617, 438, 192, 114)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 616, 400)

GUISetState(@SW_SHOW)



While 1








    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

EndSwitch
		_IENavigate($Obj1, "http://dreamwar.ru/world/resource.php?end=1&UIN=897367&pass=MDIxMjgz&sid=")
_IELoadWait($Obj1)
$sText = _IEBodyReadText ($Obj1)
$start = "Введите код:"
$end= "В Земли"
$source = StringFindSE($sText,$start,$end,1)
$w= StringLen($source)
$w=$w-1
$w = StringRight($source,$w)
ConsoleWrite($w)

_IEzap($Obj1,0,1,$w)
sleep(1000)
_IEclick($Obj1,0,5,"[Начать добычу]")
sleep(60000)
WEnd

  func _IEclick($IESET,$form,$index,$name)



 	$oForm = _IEFormGetCollection($IESET, $form)



				Do
					$oSubmit = _IEFormElementGetCollection($oForm, $index)
				Until StringStripWS(_IEFormElementGetValue($oSubmit), $index) = $name
				_IEAction($oSubmit, "click")




	 EndFunc

 func _IEzap($IESET,$form,$index,$text)
	 		$oForm = _IEFormGetCollection($IESET,$form )
				$oText = _IEFormElementGetCollection($oForm, $index)
				_IEFormElementSetValue($oText,$text )



	 EndFunc

Func StringFindSE($string,$start="",$end="",$start_occ=1,$end_occ=1,$cas=0)
    Local $source_start,$source_count,$source
    If $start <> '' Then
        Local $st_count
        $st_count = StringSplit($start,'')
        $source_start = StringInStr($string,$start,$cas,$start_occ) + $st_count[0]
    Else
        $source_start = 1
    EndIf
    If $end <> '' Then
        $source_count = StringInStr($string,$end,$cas,$end_occ,$source_start) - $source_start
    Else
        $source_count = -1
    EndIf
    Return StringMid ($string,$source_start,$source_count)
EndFunc



Добавлено:
Сообщение автоматически объединено:

Пойдёт?
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Re: [Грезы войны],[Dreamwar.ru] Разработка бота для браузерно

Мой вариант:
Код:
#include <IE.au3>

GUICreate("Грезы войны", 500, 300)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 500, 300)
GUISetState()

Do
	_IENavigate($Obj1, 'ССЫЛКА')
	$HTML = _IEBodyReadHTML($Obj1)
	$CODE = StringRegExp($HTML, 'Введите код: (.*?)<', 3)
	$INPUT = _IEGetObjByName($Obj1, 'code')
	_IEFormElementSetValue($INPUT, $CODE[0])
	$oInputs = _IETagnameGetCollection($Obj1, "input")
	For $oInput in $oInputs
		If String($oInput.Value) = "[Начать добычу]" Then
			_IEAction($oInput, "click")
			ExitLoop
		EndIf
	Next
	Sleep(60000)
	_IELinkClickByText($Obj1, '[Обновить]')
Until GUIGetMsg() = -3
 

Arei

Скриптер
Сообщения
938
Репутация
115
Re: [Грезы войны],[Dreamwar.ru] Разработка бота для браузерно

то же самое=)
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,602
Репутация
941
Re: [Грезы войны],[Dreamwar.ru] Разработка бота для браузерной игры

beshen11 сказал(а):
Ну дак если он на уровне начальной школы, что мешает самому его сделать, мозгов не хватает даже для этого уровня? Если нужна помощь - нужно предоставлять всё что просят и в том виде в каком просят.
 
Автор
B

beshen11

Новичок
Сообщения
7
Репутация
1
гы

все супер, работа кипит... Теперь бы еще удалить тему чтобы конкуренты не пронюхали ;D
 
Автор
B

beshen11

Новичок
Сообщения
7
Репутация
1
гы

я дико извиняюсь,уважаемые Arei и Zaramot, не могли бы вы удалить свои посты, или изменить ссылку в исходниках - украдут перса, не хотелось бы....
 
Верх