[Автоматизация] Действия скрипта на основании полученых данных из буфера памяти

EnekinSky · 31 Дек 2014

Добрый день, друзья!
Недавно начал изучать autoit, сейчас пишу скрипт и возник вопрос. Искал по разным веткам, ни не нашел конкретно, что мне надо.
Вопрос в следующем. Какими командами или как лучше реализовать; что бы скрипт сам сделал снимок или сразу распознал часть экрана или графический элемент (это обычный шрифт цифр, но их скопировать нельзя) и на основании полученных цифр начал действовать. Т.е. нужно мне, выделить -скопировать -распознать -действовать на основе полученных данных их два больше или меньше определенной суммы.
Прочитал краткое руководство, сейчас более подробное изучаю, но пока не могу сам этого решить. Буду благодарен, за общие направления или куски скрипта. :smile:

joiner · 31 Дек 2014

цифры в окне какой программы?

EnekinSky · 31 Дек 2014

[Автоматизация] Действия скрипта на основании полученых данных из буфера памяти

joiner сказал(а):
цифры в окне какой программы?

Забыл сказать, IE 11.

firex · 31 Дек 2014

EnekinSky
Информация секретна или вы скромничаете?

Исходный код страницы / ссылку на страницу. Может быть это флэш-объект? Тогда на него ссылку.
Иначе вам не смогут помочь.

EnekinSky · 31 Дек 2014

[Автоматизация] Действия скрипта на основании полученых данных из буфера памяти

firex сказал(а):
EnekinSky
Информация секретна или вы скромничаете?

Исходный код страницы / ссылку на страницу. Может быть это флэш-объект? Тогда на него ссылку.
Иначе вам не смогут помочь.

Совсем нет, на два утверждения ваших. Это не флэш, браузерная игра (травиан). Все же дать ссылку? Но нужно регистрироваться там.
Я уже нашёл способ их скопировать, однако вторая часть моего вопроса актуальна, извлечь из буфера нужные цифры и на основании их следовать той логике которую я укажу.
Напишу поподробнее: Скрипт распознает сколько ресурсов и действует на основании функции, допустим больше 1000 - 1 вариант, а меньше 2 вариант.

madmasles · 31 Дек 2014

EnekinSky,
Не надо менять название темы в каждом посте.

firex · 31 Дек 2014

EnekinSky [?]

извлечь из буфера

Если вы имеете ввиду буфер обмена, то ( при условии, что он содержит текстовые данные ) вы можете поступить таким образом:

Код:

$iValue = Int( ClipGet() )
If $iValue > 1000 Then ...

Но скажу вам сразу - это ненадежный вариант. Лучше курите ветку:
http://autoit-script.ru/autoit3_docs/libfunctions/ (функции _IE* и примеры к ним)

EnekinSky · 31 Дек 2014

firex сказал(а):
EnekinSky [?]

извлечь из буфера

Нажмите, чтобы раскрыть...

Если вы имеете ввиду буфер обмена, то ( при условии, что он содержит текстовые данные ) вы можете поступить таким образом:

Код:

$iValue = Int( ClipGet() ) If $iValue > 1000 Then ...

Но скажу вам сразу - это ненадежный вариант. Лучше курите ветку:
http://autoit-script.ru/autoit3_docs/libfunctions/ (функции _IE* и примеры к ним)

Спасибо, это то что нужно, однако он копирует цифры с текстом, по другому там не получается. Каким образом можно сделать что бы он обращал внимание только на цифры, а то не реагирует, на эту команду "If $iValue > 1000 Then"

firex · 31 Дек 2014

EnekinSky
Пример можете привести? Без него я могу посоветовать только такой вариант:

Код:

$iValue = Int( StringRegExpReplace( ClipGet(), "^.*(\d+).*$", "$1" ) )
If $iValue > 1000 Then ...

EnekinSky · 31 Дек 2014

Действия скрипта на основании полученых данных из буфера памяти

firex сказал(а):
EnekinSky
Пример можете привести? Без него я могу посоветовать только такой вариант:

Код:

$iValue = Int( StringRegExpReplace( ClipGet(), "^.*(\d+).*$", "$1" ) ) If $iValue > 1000 Then ...

Могу. Вот, что он копирует "Древесина Производство древесины +25% 36.720" и только так, там гиф изображение. Нужно что бы он брал в расчет последнее цифровое значение, в данном случае 36.720. И так три разных значения, после которых нужно будет принять решение. Я всего нескольк дней начал изучать эту программу, если что то смешное пишу или в коде. Не смейтесь громко ;D. Я это делаю так:

Код:

MouseClickDrag ("left",738,202,812,202,10)
Send("^{INSERT}")
$iValue = Int( StringRegExpReplace( ClipGet(), "^.*(\d+).*$", "$1" ) )
If $iValue > 10000 Then
   MouseClickDrag ("left",831,202,890,202,10)
   Send("^{INSERT}")   $iValue = Int( StringRegExpReplace( ClipGet(), "^.*(\d+).*$", "$1" ) )
If $iValue > 10000 Then
	  MouseClickDrag ("left",916,202,980,202,10)
   Send("^{INSERT}")
   $iValue = Int( StringRegExpReplace( ClipGet(), "^.*(\d+).*$", "$1" ) )
   If $iValue > 10000 Then  MsgBox(4096,"","Просто тест")

   EndIf
EndIf

На привязку к разрешению можно не обращать внимание, есть свободный пк 24\7 там планирую держать этот скрипт.

firex · 31 Дек 2014

EnekinSky

Код:

MouseClickDrag( "left", 738, 202, 812, 202, 10)
Send( "^{INSERT}" )

If _GetValue() > 10000 Then
	MouseClickDrag ("left",831,202,890,202,10)
	Send("^{INSERT}")

	If _GetValue() > 10000 Then
		MouseClickDrag ("left",916,202,980,202,10)
		Send("^{INSERT}")

		If _GetValue() > 10000 Then
			MsgBox(4096,"","Просто тест")
		EndIf
	EndIf
EndIf

Func _GetValue()
	Local $aResult
	; ---
	$aResult = StringRegExp( ClipGet(), "(\d+\.?\d*)$", 3 )
	If UBound( $aResult ) = 1 Then _
		Return Round( $aResult[0], 9 )

	Return 0
EndFunc

madmasles · 31 Дек 2014

Мой вариант.

Код:

$vStr = 'Древесина Производство древесины +25% 36.720'
$vStr = StringRegExpReplace($vStr, '^.*\h', '')
If @extended = 1 Then
	$vStr = Number($vStr)
	ConsoleWrite($vStr & @TAB & VarGetType($vStr) & @LF)
Else
	ConsoleWrite('Error :(' & @LF)
EndIf

EnekinSky · 31 Дек 2014

Действия скрипта на основании полученых данных из буфера памяти

firex сказал(а):

EnekinSky

Код:

MouseClickDrag( "left", 738, 202, 812, 202, 10)
Send( "^{INSERT}" )

If _GetValue() > 10000 Then
	MouseClickDrag ("left",831,202,890,202,10)
	Send("^{INSERT}")

	If _GetValue() > 10000 Then
		MouseClickDrag ("left",916,202,980,202,10)
		Send("^{INSERT}")

		If _GetValue() > 10000 Then
			MsgBox(4096,"","Просто тест")
		EndIf
	EndIf
EndIf

Func _GetValue()
	Local $aResult
	; ---
	$aResult = StringRegExp( ClipGet(), "(\d+\.?\d*)$", 3 )
	If UBound( $aResult ) = 1 Then _
		Return Round( $aResult[0], 9 )

	Return 0
EndFunc

Все заработало. Спасибо большое. Только могли бы вы объяснить, что в этой строчке означает цифра 3 "$aResult = StringRegExp( ClipGet(), "(\d+\.?\d*)$", 3 )"
Буду дальше разбираться!

madmasles · 31 Дек 2014

EnekinSky [?]

что в этой строчке означает цифра 3

Кликните в коде по функции и прочитайте.

edyapd · 31 Дек 2014

OffTopic:
Любят люди изобретать велосипед. Для "Травиан" уже столько всевозможных ботов и помощников написано, что изобрести что-то новое просто сложно

EnekinSky · 31 Дек 2014

Действия скрипта на основании полученых данных из буфера памяти

edyapd сказал(а):
OffTopic:
Любят люди изобретать велосипед. Для "Травиан" уже столько всевозможных ботов и помощников написано, что изобрести что-то новое просто сложно

Хмм... да... 1\3 с вирусами, вторая кривая, третья платная. Или я не прав?

edyapd · 1 Янв 2015

Re: Действия скрипта на основании полученых данных из буфера памяти

EnekinSky сказал(а):
Хмм... да... 1\3 с вирусами, вторая кривая, третья платная. Или я не прав?

OffTopic:
Не правы. Если есть возможность посмотреть исходники скриптов, работающих через greasemonkey, то какой смысл туда запихивать вредоностный код?
Я не против AutoIT :IL_AutoIt_1: Я за то, чтобы для каждой работы применялся подходящий инструмент!

Автор темы	Похожие темы	Форум	Ответы	Дата
L	[Автоматизация] Скрипт для игры, автоматизация одного действия.	Покупка/продажа, поиск услуг	2	26 Янв 2014
D	[Автоматизация] Функция Bound, выполнение действия при нахождении текста?	Автоматизация IE и Web-интерфейса	1	23 Дек 2013
S	[Автоматизация] Utorrent UDF - библиотека для взаимодействия с utorrent через WebUI	UDF - Пользовательские функции	2	22 Авг 2013
S	[Автоматизация] Распознавание объектов за картинкой и действия с ними	Общие вопросы по AutoIt	7	12 Июл 2011
P	[Автоматизация] Сравнение числа и действия при соответствующем значение.	Разработка ботов	5	15 Окт 2010

Поиск

Поиск

[Автоматизация] Действия скрипта на основании полученых данных из буфера памяти

EnekinSky

Моцарт - Великий композитор!

joiner

Модератор

EnekinSky

Моцарт - Великий композитор!

firex

AutoIT Гуру

EnekinSky

Моцарт - Великий композитор!

madmasles

Модератор

firex

AutoIT Гуру

EnekinSky

Моцарт - Великий композитор!

firex

AutoIT Гуру

EnekinSky

Моцарт - Великий композитор!

firex

AutoIT Гуру

madmasles

Модератор

EnekinSky

Моцарт - Великий композитор!

madmasles

Модератор

edyapd

Осваивающий

EnekinSky

Моцарт - Великий композитор!

edyapd

Осваивающий