[raus]

Несколько странная версия 0.4.27.1 для Alisia схватить

схватить 0.4.25

версия 0.4.22 схватить

инструкция чуть ниже...

[Sirius34]

э.... хм...
Raus, а ты не мог бы хотя б вкратце объяснить, чего этот "индусский код" делает?

[raus]

гут...Передает на регистрацию исходящие документы в таблице ИП в ПК СП (в основном постановление о возбуждении) в режиме работы человека т.е. с гуями. Лениво инструкцию писать....

[Sirius34]

мда... идея неплохая, но как реализовано - пока еще не вкурил полностью, надо переварить

[БопоХ]

Ааа! Забанят за бота на работе ))
Админский подход. А в целом весело. Будь я СПИ, я бы для монотонной работы тоже бы выход придумал)))

[raus]

Сообщение от БопоХ

Ааа! Забанят за бота на работе ))

пристав должен головой, а не тупо долбить по кнопкам... то что может сделать несколько килобайт кода жалко тратить целого пристава

Сообщение от БопоХ

Админский подход. А в целом весело.

угу, код бы еще оптимизировать, добавить проверку загрузки окон, настройки, гуй какой нибудь прикрутить - чтобы на нормальное приложение походило... но где лень, где не умею

[undermind]

Сообщение от raus

пристав должен головой, а не тупо долбить по кнопкам... то что может сделать несколько килобайт кода жалко тратить целого пристава

с головой даже у целых приставов нынче беда...

Сообщение от raus

угу, код бы еще оптимизировать, добавить проверку загрузки окон, настройки, гуй какой нибудь прикрутить - чтобы на нормальное приложение походило... но где лень, где не умею

наверное лучше написать своё, а не поделку на...
помнится был у нас курс ИИ в ВУЗе, до нас все курсы валют предсказывали нейронными сетями. Из-за сложности и неоднозначности задачи отсеивалось примерно 1/3 потока. Нам дали задачу набрать в Lines не менее 1000 очков.
Легким движением руки искусственный интеллект играющий в lines был доработан инъекцией в lines для определения координат появляющихся шариков (по условию их программа должна была поучать "с экрана", и соответственно реагировать на включение/выключение данного параметра), а так же изменения этих координат, а в позже (при выключенной опции отображения появляющихся шариков)- и изменения их цветов. Таким образом ранние версии легко набирали 2-2,5 тысячи очков, продвинутые - 7,5-10. Для сдачи умные люди добавили ограничение и программа набирала 1100 после этого читы отключались. Не очень умные - сдавали первичную версию и попадали под подозрения, на чём и попались.

[belov-evgenii]

За четыре года обучения в ВУЗе могу сказать спасибо наверное только преподу объектно-ориентированного программирования - на одной из лаб на меня снизошло, что это такое, как работает и как же оно оказывается круто устроено (по сравнению с). До этого были знания одних терминов, без понимания, how it works.

[raus]

чёй та на 4 версии ПК СП подтупливать стал робот. Пришлось ввести проверку на наличие форм. Внешне может показаться, что чуть медленнее стал работать. Это ожидание загрузки форм. схватить...

исходник (больше для себя, ибо есть удивительная способность терять исходники )

#Region;**** Directives created by AutoIt3Wrapper_GUI **** 
#AutoIt3Wrapper_icon=..\..\..\Program Files\WinRAR\Themes\WinRAR_Senyum's_48x48\SFX.ico 
#AutoIt3Wrapper_outfile=RegRobot_0.4.22.exe 
#AutoIt3Wrapper_Res_Fileversion=0.4.22 
#AutoIt3Wrapper_Res_LegalCopyright=raus 
#AutoIt3Wrapper_Res_Language=1049 
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** 
#include <Date.au3> 
#include <GUIConstantsEx.au3> 
#include <GUIConstants.au3> 
 
Opt("WinTitleMatchMode",4) 
 
 
 
Sleep(500) 
 
Global   $pos1, $pos2, $pos3, $Paused, $value, $Dolg2, $Vzis2, $Org2, $Dolg, $Vzis, $Org, $i, $Down, $Down2, $value2, $timer, $Secs, $Mins, $Hour, $Time, $timer2, $Secs2, $Mins2, $Hour2, $Time2, $Time3;переменные $pos1, $pos2, $pos3 позици курсоров, $Paused пауза, $value пауза 
 
HotKeySet("{HOME}", "ShowMessage")  
HotKeySet("{PAUSE}", "TogglePause") 
HotKeySet("{ESC}", "Terminate") 
 
 
Opt("GUIOnEventMode",1) 
 
GUICreate("Ввод данных", 300, 250) ; will create a dialog box that when displayed is centered 
 
; ввод количества ИП 
GuiCtrlCreateGroup("Сколько ИП прощелкать?", 10, 155, 250, 50) 
	$value = GUICtrlCreateInput("1", 20, 180, 30, 20) 
	GUICtrlSetState(-1, $GUI_DROPACCEPTED) 
; конец ввода количества ИП 
 
GuiCtrlCreateGroup("Кому направить?", 10, 10, 250, 90) 
$Dolg = GUICtrlCreateCheckbox ("Должник", 20, 30, 120, 20)  
GUICtrlSetState (-1,1) 
$Vzis = GUICtrlCreateCheckbox ("Взыскатель", 20, 50, 120, 20) 
GUICtrlSetState (-1,1) 
$Org = GUICtrlCreateCheckbox ("Орган", 20, 70, 120, 20) 
GUICtrlSetState (-1,1) 
$OK_Btn = GUICtrlCreateButton("OK", 15, 215, 70, 25) 
GUICtrlSetOnEvent($OK_Btn,"OnYes") 
; это для версии найти нижний документ 
GuiCtrlCreateGroup("Если документ внизу списка", 10, 105, 250, 40) 
$Down = GUICtrlCreateCheckbox ("Попытаться захватить ПОСЛЕДНИЙ документ", 20, 120, 230, 20) 
GUICtrlSetState (-1,0) 
; конец  это для версии найти нижний документ 
 
GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit") 
 
GUISetState ()	  ; will display an  dialog box with 1 checkbox 
 
; Run the GUI until the dialog is closed 
While 1 
   Sleep (100) 
WEnd 
 
Func OnExit() 
	Exit 
EndFunc 
 
Func OnYes() 
	 
		  
		 $Dolg2 = GUICtrlRead($Dolg); записываю в переменные 1  - галка стоит 4  пустой чекбокс (почему так не знаю) 
		 $Vzis2 = GUICtrlRead($Vzis) 
		 $Org2 = GUICtrlRead($Org) 
		 $Down2 = GUICtrlRead($Down) 
		 $value2 = GUICtrlRead($value)		  
		 GUIDelete("Ввод данных"); удаляю форму 
 
		  
		 TrayTip("Инструкция","Подведите мыш к меню <Свойства> и нажмите HOME" , 2, 1) 
EndFunc 
 
;;;;;;;; 
 
Func Terminate() 
	Exit 0 
EndFunc 
 
Func TogglePause() 
	$Paused = NOT $Paused 
	While $Paused 
		sleep(100) 
		ToolTip('Script is "Paused"',0,0) 
	WEnd 
	ToolTip("") 
EndFunc 
 
Func ShowMessage() 
 
;Start timer 
	$timer = TimerInit() 
	 
If $pos1 = 0 Then 
		 
	$pos1  = MouseGetPos() 
	MouseMove($pos1[0],$pos1[1]) 
	MouseClick("left") 
	TrayTip("Инструкция",  "Подведите мыш к вкладке <Опись документов> и нажмите HOME" , 2, 1) 
	 
	ElseIf $pos2 = 0 Then 
	$pos2  = MouseGetPos() 
	MouseMove($pos2[0],$pos2[1]) 
	MouseClick("left") 
		TrayTip("Инструкция", "Подведите мыш к отправляемому документу и нажмите HOME", 2, 1) 
	Sleep(500)  
	 
	ElseIf $pos3 = 0 Then 
	$pos3  = MouseGetPos() 
	MouseMove($pos3[0],$pos3[1]) 
	MouseClick("left") 
	TrayTip("Инструкция", "Введите количество необходимых ИП", 2, 1) 
	 
	 
	 
	TrayTip(" Шаг 3", "Автоматическая работа робота... Ждите..." , 2, 1) 
	 
Do		 
	 
	MouseMove($pos1[0],$pos1[1]); подвожу мыш к свойствам 
	MouseClick("left"); нажимаю на кнопку 
; ----------------------------------- ждать вкладку исполнительное производство 
	WinWait("Исполнительное производство","")  
	If Not WinActive("Исполнительное производство","") Then WinActivate("Исполнительное производство","") 
	WinWaitActive("Исполнительное производство","") 
	 
	MouseMove($pos2[0],$pos2[1]); подвожу мыш к вкладке 
	MouseClick("left"); нажимаю на кнопку 
	 
; для распечатки последнего документа	 
	 
	if $Down2 = 1 Then; если моя галка по поиску нижнего документа нажата нажимаю галку 
	 
	sleep(100) 
	MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
	MouseClick("left"); нажимаю на кнопку (выделен документ) 
	 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	 
 
	 
	 
 
EndIf 
 
	MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
	MouseClick("left"); нажимаю на кнопку (выделен документ) 
	MouseClick("right"); нажимаю на кнопку контекстного меню 
	Send("{DOWN}"); готовлю документ к отправке 
sleep(200) 
Send("{DOWN}"); подведен к меню "готовлю документ к отправке" 
sleep(200) 
Send("{ENTER}"); зашел на форму с галками  
 
; -------------------------- жду форму - отправка документов 
 
WinWait("Отправка документа","") 
If Not WinActive("Отправка документа","") Then WinActivate("Отправка документа","") 
WinWaitActive("Отправка документа","") 
 
sleep(200) 
if $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку 
Send("{SPACE}"); должник 
EndIf 
if $Dolg2 = 4 Then; если моя галка нажата нажимаю галку 
Send("{DOWN}")  
EndIf 
Send("{DOWN}") 
sleep(200) 
if $Vzis2 = 1 Then; если моя галка нажата нажимаю галку 
Send("{SPACE}") 
EndIf 
Send("{DOWN}") 
sleep(200) 
If $Org2 = 1 Then; если моя галка нажата нажимаю галку 
Send("{SPACE}") 
EndIf 
Send("{DOWN}") 
sleep(400) 
Send("{ENTER}") 
 
sleep(500)	 
; отправляю документ 
MouseMove($pos3[0],$pos3[1]) 
MouseClick("left") 
MouseClick("right") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{ENTER}") 
sleep(100)	 
 
Send("!{F4}"); Закрываю ИП 
 
MouseWheel("Down", 1) 
 
 
	$i = $i + 1 
TrayTip("","Автоматическая работа робота. Прощелкано ИП " & $i & " из "&$value2& "  Ждите..."   , 2, 1)  
Until $i = $value2 
 
; время   ----------------------------------------- 
 _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs) 
 $Time = StringFormat("%02i ч.%02i м.%02i с.", $Hour, $Mins, $Secs) 
  
; время   ----------------------------------------- 
	 
TrayTip("Все...","Обработка закончена..." , 2, 1) 	 
MsgBox(64,'Робот Регистрации' , 'Я закончил работу! Спасибо за внимание!!! Обще время работы составило:' & $Time  )  
 
 
Exit 0 
EndIf 
 
 
 
; Return 	 
EndFunc

[БопоХ]

Сообщение от raus

ибо есть удивительная способность терять исходники )

Пользуйтесь Dropbox