[Автоматизация] Помогите автоматизировать работу бота

[Jigan777]

как сделать так ,чтобы вот ввел я в инпуте цифры а бот это считал и сделал повтор функции столько же раз???

 

[firex]

Re: [Автоматизация] Скажите пожалуйста как

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Local $hGui, $msg, $Input1, $Input2, $Input3, $Input4, $BtnOk, $sText

$hGui = GUICreate("GUI", 380, 160, @DesktopWidth / 2 - 190, @DesktopHeight / 2 - 80)
$Input1 = GUICtrlCreateInput('', 10, 5, 360, 20)
$BtnOk = GUICtrlCreateButton("OK", (380 - 70) / 2, 127, 70, 26)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $BtnOk
            $nRepeat = GUICtrlRead( $Input1 )
            For $Idx = 1 To $nRepeat Step 1
                   _ExampleFunc()
            Next
    EndSwitch
WEnd

Func _ExampleFunc()
    ConsoleWrite( "ExampleFunc..." & @CRLF )
EndFunc

 

[madmasles]

Re: [Автоматизация] Скажите пожалуйста как

Jigan777,

Предупреждение

За нарушение правил форума (пункт Б.5):

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

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

"[Автоматизация] Скажите пожалуйста как" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Глобальный модератор.

Добавлено:

Сообщение автоматически объединено: 11 Июл 2014

Предупреждение

За нарушение общих правил (пункт В.8):

Так как эта конференция называется "Русское сообщество AutoIt", язык общения на ней - Русский. Названия фирм или программных продуктов, аббревиатуры и т.д. должны быть написаны так, как они пишутся в оригинале, например не следует писать УСБ вместо USB. На форуме крайне не рекомендуется намеренно искажать русский язык и использовать "сетевой жаргон" на подобии "Аффтар выпей йадау!".

С уважением, ваш Глобальный модератор.

 

[alex33]

Jigan777, А в какой input? в Internet Explorer или в какое-либо GUI?

 

[Jigan777]

в GUI


Добавлено:

Сообщение автоматически объединено: 12 Июл 2014

Спойлер

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ловади бот(Кликер)", 305, 98, 199, 114)
$Button1 = GUICtrlCreateButton("Начать", 104, 64, 75, 25)
;$Input1 = GUICtrlCreateInput("", 16, 32, 273, 21)
$Label1 = GUICtrlCreateLabel("Введите колличество лошадей во вкладке без завода", 16, 8, 280, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
Case $Button1
			Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000419' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000419->' & $aResult[1] & ')')
EndIf

EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
	WinWait($title,$text,$timeout)
	If Not WinActive($title,$text) Then WinActivate($title,$text)
	WinWaitActive($title,$text,$timeout)
EndFunc

_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---

_WinWaitActivate("Домашняя страница игрока - Google Chrome","")
MouseClick("left",244,400,1)
_WinWaitActivate("Мои лошади - Google Chrome","")
MouseClick("left",201,511,1)
Sleep(1000)
_WinWaitActivate("","")
MouseClick("left",186,389,1)
Sleep(1000)
MouseClick("left",321,481,1)
Sleep(1000)
MouseClick("left",216,719,1)
Sleep(1000)
MouseClick("left",192,461,1)
Sleep(1000)
MouseClick("left",285,393,1)
Sleep(1000)
MouseClick("left",363,385,1)
Sleep(1000)
MouseClick("left",276,448,1)
Sleep(1000)
MouseClick("left",183,580,1)
Sleep(1000)
MouseClick("left",806,682,1)
Sleep(10000)



	EndSwitch
WEnd

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