raus
- Место жительства
- Россия / /
- Профессиональная деятельность
- Макси Девелопмент
- Пол
- мужской
- Подпись
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
-
Написал raus в теме Робот регистрации 10.03.2011 20:54
Цитата:
Сообщение от Alisia ►
Попробую, завтра отпишусь, как прошли испытания. :unsure:
у меня работает... Если что то не будет работать - с подробными описаниями и скринами.... -
- Пристав не взыскивает с дедушки, потому что он хороший...Написал raus в теме Украли паспорт у должника. 10.03.2011 19:39
- Врач не лечит, потому что он не может лечить бандитов...
- Учитель не учить, потому что мальчик стреляет из рогатки...
- Конвой отпускает конвоируемого, потому что у него есть старая мама...
чЮдно.... Зато ведь все по совести??? Ась? -
чо за блондинка у нас на форуме????Написал raus в теме ПК "Судебный пристав" 10.03.2011 19:29
женщинам еще исправляю бывает КАПС или ЗаБоРчИк, но блин, не АйТи жеж....
кстати, да это предупреждение.... -
Написал raus в теме Украли паспорт у должника. 10.03.2011 19:00
Цитата:
Сообщение от slait ►
Согалсен, что правильнее было бы дополнить мою реплику словами "не разобравшись".
вашу реплику нужно дополнить словами "плохой совет" -
Написал raus в теме Украли паспорт у должника. 10.03.2011 18:41
Цитата:
Сообщение от slait ►
Ненене! Взыскивать ни в коем случае нельзя
чёй та вредные советы даете... эт не хорошо..... очень нехорошо...Цитата:
Сообщение от permya4ka059 ►
Начальство говорит отправлять на пенсию
начальство право 100%Цитата:
Сообщение от permya4ka059 ►
Жалко мужика.
жалко? Заплатите за него долг, и все... Не надо... быть жалостливым за чужой счет легко.... А за свой накладно... и никто не хочет....
И где то у меня уже был пост по М.Терезу - почитайте.... СН может ссылочку найдет быстрее.... -
попробуйНаписал raus в теме Робот регистрации 10.03.2011 17:53
исходникКод:
#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Downloads\crystal_xp_tux_2\Overtux 2\devil-may-cry_overlord59-tux.ico
#AutoIt3Wrapper_outfile=RegRobot_0.4.27.exe
#AutoIt3Wrapper_Res_Fileversion=0.4.27.1
#AutoIt3Wrapper_Res_LegalCopyright=raus
#AutoIt3Wrapper_Res_Language=1049
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include
#include
#include
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",1)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",1)
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, $AAOrg, $AADolg, $AAvsis ;переменные $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("for Alisia", 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("Исполнительное производство","")
; собираю данные для вставления в документ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
; обнуляю переменые
$AAOrg = ""
$AADolg = ""
$AAvsis = ""
WinWait("Исполнительное производство")
$AADolg = ControlGetText("Исполнительное производство","","TRxDBComboEdit1")
$AAvsis = ControlGetText("Исполнительное производство","","TDBEdit12")
;MsgBox (0, "", $AADolg)
;MsgBox (0, "", $AAvsis)
if $Regim2 = 1 Then
;; получаю данные организации
Opt("MouseCoordMode",0)
WinWait("Исполнительное производство","")
If Not WinActive("Исполнительное производство","") Then WinActivate("Исполнительное производство","")
WinWaitActive("Исполнительное производство","")
MouseMove(255,40)
MouseDown("left")
MouseUp("left")
WinWait("Редактирование исполнительного документа","")
If Not WinActive("Редактирование исполнительного документа","") Then WinActivate("Редактирование исполнительного документа","")
WinWaitActive("Редактирование исполнительного документа","")
Opt("WinTitleMatchMode", 4)
WinWait("Редактирование исполнительного документа","Отмена")
$AAOrg = ControlGetText("Редактирование исполнительного документа","Отмена","TRxDBComboEdit1")
ControlClick("Редактирование исполнительного документа","Отмена","TBitBtn1")
;MsgBox (0, "", $AAOrg)
Opt("MouseCoordMode",1)
; конец данные организации
EndIf
; Конец собираю данные
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 $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку
; тут идет вставка должника в документ из переменной ------------------------------------------
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу
MouseClick("left"); нажимаю на кнопку (выделен документ)
MouseClick("right"); нажимаю на кнопку контекстного меню
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{ENTER}"); зашел на форму с
WinWait("Опись документа","")
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","")
WinWaitActive("Опись документа","")
ControlClick("Опись документа","","TDBMemo1")
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}")
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}")
ControlSend("Опись документа","","TDBMemo1", $AADolg)
ControlClick("Опись документа","","TBitBtn2")
;; Конец тут идет вставка должника в документ из переменной ------------------------------------------
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("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{ENTER}"); зашел на форму с
WinWait("Опись документа","")
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","")
WinWaitActive("Опись документа","")
ControlClick("Опись документа","","TDBMemo1")
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}")
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}")
ControlSend("Опись документа","","TDBMemo1", $AAvsis)
ControlClick("Опись документа","","TBitBtn2")
;; Конец тут идет вставка должника в документ из переменной ------------------------------------------
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("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{DOWN}")
sleep(200)
Send("{ENTER}"); зашел на форму с
WinWait("Опись документа","")
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","")
WinWaitActive("Опись документа","")
ControlClick("Опись документа","","TDBMemo1")
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}")
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}")
ControlSend("Опись документа","","TDBMemo1", $AAOrg)
ControlClick("Опись документа","","TBitBtn2")
;; Конец тут идет вставка должника в документ из переменной ------------------------------------------
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
попробуй -
Alisia - раньше бы знал, побыстрее бы сделал, я не знал что вас так мучают....Написал raus в теме Робот регистрации 09.03.2011 22:33
Завтра постараюсь одну техпроблему решить (нужно еще почитать форумы, и потеснить), и если все ОК, послезавтра скомпилирую (хотя обещать не могу ,ибо работа с чужими формами часто несколько ммм.... ээээ.... забавна чтоли)
Как начал заниматься этой фигней - лень, обычная лень. Мне легче [s]выучить [/s] почитать о языке программирования, и что нибудь сварганить, чем каждый день тупо нажимать на "Вставить - Выделить - Отправить - закрыть" по полчаса..... Я от этого схожу с ума.... -
Написал raus в теме философские притчи, сказки, анекдоты, истории 09.03.2011 22:08
Цитата:
Сообщение от Жена-богиня
Жена-богиня
так то зачет, но это обычный психологический тренинг.... пшик.... -
понял... сделаю...Написал raus в теме Робот регистрации 09.03.2011 21:55
Цитата:
Сообщение от Снежная Королева ►
Я единственный даун, не понимающий, для чего всё это? :unsure:
у каждого свое делопроизводство... НО.... Alisia - мне вас жаль, таки мучения... Если бы меня вручную заставили писать по три раза в "постановлении о возбуждении" я бы сошел с ума.... -
Написал raus в теме Робот регистрации 09.03.2011 21:40
Цитата:
Сообщение от Alisia ►
при первой отправке пишет в поле краткое содержание: ФИО должника, затем отправляет второй раз это же пс о возбуждении , но уже взыскателю ( в поле краткое содержание пишет взыскателя), и третий раз в орган , выдавший(пишет в этом поле кратко наименование органа)
так!!! Начинаю понимать! Последний вопрос: Когда пристав проделывает эту операцию второй и третий раз он стирает данные из поля "краткое содержание" и поверх пишет новые?
«Закония» в соц. сетях