18.01.2011, 08:41 | #1 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
Несколько странная версия 0.4.27.1 для Alisia схватить
схватить 0.4.25 версия 0.4.22 схватить инструкция чуть ниже...
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
18.01.2011, 12:28 | #2 |
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
э.... хм...
Raus, а ты не мог бы хотя б вкратце объяснить, чего этот "индусский код" делает? |
В Минюст Цитата Спасибо |
18.01.2011, 12:47 | #3 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
гут...Передает на регистрацию исходящие документы в таблице ИП в ПК СП (в основном постановление о возбуждении) в режиме работы человека т.е. с гуями. Лениво инструкцию писать....
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
18.01.2011, 12:57 | #4 |
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
мда... идея неплохая, но как реализовано - пока еще не вкурил полностью, надо переварить
|
В Минюст Цитата Спасибо |
20.01.2011, 16:32 | #5 |
Пользователь
Регистрация: 11.12.2009
Сообщений: 63
Благодарности: 0
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
Ааа! Забанят за бота на работе ))
Админский подход. А в целом весело. Будь я СПИ, я бы для монотонной работы тоже бы выход придумал))) |
В Минюст Цитата Спасибо |
20.01.2011, 21:34 | #6 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
пристав должен головой, а не тупо долбить по кнопкам... то что может сделать несколько килобайт кода жалко тратить целого пристава
угу, код бы еще оптимизировать, добавить проверку загрузки окон, настройки, гуй какой нибудь прикрутить - чтобы на нормальное приложение походило... но где лень, где не умею
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
21.01.2011, 10:00 | #7 | ||
Пользователь
Регистрация: 09.05.2010
Сообщений: 182
Благодарности: 0
Поблагодарили 12
раз(а) в 12 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Цитата:
помнится был у нас курс ИИ в ВУЗе, до нас все курсы валют предсказывали нейронными сетями. Из-за сложности и неоднозначности задачи отсеивалось примерно 1/3 потока. Нам дали задачу набрать в Lines не менее 1000 очков. Легким движением руки искусственный интеллект играющий в lines был доработан инъекцией в lines для определения координат появляющихся шариков (по условию их программа должна была поучать "с экрана", и соответственно реагировать на включение/выключение данного параметра), а так же изменения этих координат, а в позже (при выключенной опции отображения появляющихся шариков)- и изменения их цветов. Таким образом ранние версии легко набирали 2-2,5 тысячи очков, продвинутые - 7,5-10. Для сдачи умные люди добавили ограничение и программа набирала 1100 после этого читы отключались. Не очень умные - сдавали первичную версию и попадали под подозрения, на чём и попались. |
||
В Минюст Цитата Спасибо |
21.01.2011, 10:32 | #8 |
Модератор раздела
Регистрация: 03.03.2009
Сообщений: 151
Благодарности: 0
Поблагодарили 45
раз(а) в 45 сообщениях
Обратиться по нику Цитата выделенного |
За четыре года обучения в ВУЗе могу сказать спасибо наверное только преподу объектно-ориентированного программирования - на одной из лаб на меня снизошло, что это такое, как работает и как же оно оказывается круто устроено (по сравнению с). До этого были знания одних терминов, без понимания, how it works.
|
В Минюст Цитата Спасибо |
21.01.2011, 17:01 | #9 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
чёй та на 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
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
23.01.2011, 12:02 | #10 |
Пользователь
Регистрация: 11.12.2009
Сообщений: 63
Благодарности: 0
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
Пользуйтесь Dropbox
|
В Минюст Цитата Спасибо |
|
|
«Закония» в соц. сетях