18.02.2011, 21:44 | #41 | ||
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Цитата:
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
||
В Минюст Цитата Спасибо |
18.02.2011, 21:56 | #42 |
Сотрудник ФССП
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
Попробую В понедельник.
__________________
Все будет хорошо. |
В Минюст Цитата Спасибо |
24.02.2011, 09:06 | #43 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
Схватить Робота Регистрации версии 0.4.25
попробовал запилить функцию "каждому контрагенту свою копию" но работает коряво из - за особенности ПК СП это исходник. У кого паранойя, можете собрать. Тут найдете компилятор. Код:
#Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\..\..\Program Files\Chameleon Clock\mainico.ico #AutoIt3Wrapper_outfile=RegRobot_0.4.25.exe #AutoIt3Wrapper_Res_Fileversion=0.4.25.1 #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 , $Regim, $Regim2 ;переменные $pos1, $pos2, $pos3 позици курсоров, $Paused пауза, $value пауза HotKeySet("{HOME}", "ShowMessage") HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") Opt("GUIOnEventMode",1) GUICreate("Ввод данных", 300, 350) ; 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, 315, 70, 25) GUICtrlSetOnEvent($OK_Btn,"OnYes") ; это для версии найти нижний документ GuiCtrlCreateGroup("Если документ внизу списка", 10, 105, 250, 40) $Down = GUICtrlCreateCheckbox ("Попытаться захватить ПОСЛЕДНИЙ документ", 20, 120, 230, 20) GUICtrlSetState (-1,0) ; конец это для версии найти нижний документ ; для каждого контрагента отдельный документ GuiCtrlCreateGroup("Режим отправки", 10, 215, 250, 40) $Regim = GUICtrlCreateCheckbox ("Каждому контрагенту копию", 20, 230, 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) $Regim2 = GUICtrlRead($Regim) GUIDelete("Ввод данных"); удаляю форму if $Dolg2 = 4 And $Vzis2 = 4 And $Org2 = 4 Then MsgBox(16, "Ошибка. Некому направлять...", "Сняты все галки контрагентов! Продолжение невозможо... Некому направлять... ", 5) Exit 0 EndIf TrayTip("Инструкция","Подведите мыш к меню <Свойства> и нажмите HOME" , 2, 1) EndFunc ;;;;;;;; Func Terminate() MsgBox(16, "Отмена", "Отменено пользователем... ", 5) 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 if $Regim2 = 4 Then; если галка не стоит - нормальное развитие событий //////////////////////////////////////////// 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) WinWait("Отправка документа","") ControlClick("Отправка документа", "","TBitBtn2") 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) ;EndIf; КОНЕЦ если галка не стоит - нормальное развитие событий //////////////////////////////////////////// ; тут ненормальное развитие событий т.е. каждый документ каждому контрагенту единолично \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////// Else sleep(200) ;if $Regim2 = 4 Then if $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку 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(50) Send("{SPACE}"); должник WinWait("Отправка документа","") ControlClick("Отправка документа", "","TBitBtn2") 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) EndIf sleep(200) if $Vzis2 = 1 Then; если моя галка нажата нажимаю галку 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(50) Send("{DOWN}") sleep(50) Send("{DOWN}") sleep(50) Send("{SPACE}"); взыскатель WinWait("Отправка документа","") ControlClick("Отправка документа", "","TBitBtn2") 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) EndIf sleep(200) If $Org2 = 1 Then; если моя галка нажата нажимаю галку 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(50) Send("{DOWN}") sleep(50) Send("{DOWN}") sleep(50) Send("{DOWN}") sleep(50) Send("{SPACE}"); орган sleep(50) WinWait("Отправка документа","") ControlClick("Отправка документа", "","TBitBtn2") 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) EndIf sleep(400) EndIf 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 |
В Минюст Цитата Спасибо |
05.03.2011, 19:29 | #44 |
Сотрудник ФССП
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
За недолгое отсутствие прошу прощения, попробую заново свою проблему показать:
Если в этом поле при отправке пс о возб. пристав не пишет, кому он его отправляет, то в канцелярии не видно кому пс о возб. направлено. Вот как то так
__________________
Все будет хорошо. |
В Минюст Цитата Спасибо |
05.03.2011, 19:29 | #45 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
какое предложение? Чтобы робот вписывал туда ФИО должника?
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
05.03.2011, 19:31 | #46 |
Сотрудник ФССП
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
А что, можно?
__________________
Все будет хорошо. |
В Минюст Цитата Спасибо |
05.03.2011, 19:41 | #47 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
09.03.2011, 18:03 | #48 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
09.03.2011, 20:35 | #49 |
Сотрудник ФССП
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11
раз(а) в 11 сообщениях
Обратиться по нику Цитата выделенного |
Вообщем, когда 1 пс направляется должнику, то ФИО должника, когда 2 пс взыскателю - ФИО взыскателя. И соответственно, 3 - орган , выдавший... (наименование "РОВД " ГИБДД" кратенько) Понимаете , если в этом поле пристав не прописывает адресатов , кому направляет, в канцелярии ничего не видят...
Попыталась загрузить еще скрин, что-то не удалось...
__________________
Все будет хорошо. |
В Минюст Цитата Спасибо |
09.03.2011, 20:47 | #50 | |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
мда, давайте уж скрин.... Вернее три.... Грузите на радикал, чтоли....
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
|
В Минюст Цитата Спасибо |
|
|
«Закония» в соц. сетях