Задание по практике
WinWaitActive («bank.def — Автоматизированнаябанковскаясистема RS-Bank» ," ВведитедатуотправкиСМС"). WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Укажите период"). WinWaitActive («bank.def — Автоматизированнаябанковскаясистема RS-Bank» ," Списокпроцедур"). WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Просмотр"). ControlClick… Читать ещё >
Задание по практике (реферат, курсовая, диплом, контрольная)
Написать программу по автоматизации процессов.
Кодпрограммы:
#include.
#include.
#include.
#include.
#include.
#include.
#include.
#include.
#include.
$Date=_DateAdd ('D',-1, _NowCalcDate ()).
$Dates=_DateAdd ('D', 0, _NowCalcDate ()).
#Region ### START Koda GUI section ### Form=.
$Form1 = GUICreate («Form1», 373, 149, 192, 124).
$Date1 = GUICtrlCreateDate ($Dates, 161, 24, 186, 21, $DTS_SHORTDATEFORMAT).
$Date2 = GUICtrlCreateDate ($Date, 161, 56, 186, 21, $DTS_SHORTDATEFORMAT).
$Label1 = GUICtrlCreateLabel («Датаформированиясмс», 20, 24, 132, 17).
$Label2 = GUICtrlCreateLabel («Датаобработкисмс», 20, 56, 109, 17).
$Button1 = GUICtrlCreateButton («Запустить», 136, 96, 75, 25).
GUISetState (@SW_SHOW).
#EndRegion ### END Koda GUI section ###.
While 1.
$nMsg = GUIGetMsg ().
Switch $nMsg.
Case $GUI_EVENT_CLOSE.
Exit.
case $Button1.
AutoItSetOption («SendKeyDelay», 200).
$Date1 = GUICtrlRead ($Date1).
$Date2 = GUICtrlRead ($Date2).
Run («G:RsBank55Term55 erm. exew» ," G: RsBank55Term55″).
WinWaitActive («АРМсотрудника — RS-Bank/Pervasive», «ВведитеВашномер»).
Send («9999{ENTER}»).
Sleep (200).
$pass="777 999″ .
Send ($pass & «{Enter}»).
WinWaitActive («АРМсотрудника» ," Список").
AutoItSetOption («SendKeyDelay», 150).
send («{DOWN}{DOWN}{DOWN}»).
send («{ENTER}»).
AutoItSetOption («SendKeyDelay», 250).
send («{F10}»).
send («{LEFT}{LEFT}»).
send («{ENTER}»).
send («{ENTER}»).
WinWaitActive («bank.def — Автоматизированнаябанковскаясистема RS-Bank» ," Списокпроцедур").
Send («^{PGDN}»).
Send («{UP}»).
Send («{F6}»).
Send («{ENTER}»).
WinWaitActive («bank.def — Автоматизированнаябанковскаясистема RS-Bank» ," ВведитедатуотправкиСМС").
AutoItSetOption («SendKeyDelay», 50).
Send ($Date1).
Send («{ENTER}»).
WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Укажите период").
Send ($Date2).
Send («{ENTER}»).
Send ($Date2).
Send («{ENTER}»).
while 1 = 1.
ifWinActive («bank.def — Автоматизированнаябанковскаясистема RS-Bank» ," ВыгружатьСМСв SMS AIR Sender ?") Then.
ControlClick («bank.def — Автоматизированнаябанковскаясистема RS-Bank», '', '[CLASS:Button; INSTANCE:2]').
WinWaitActive («Microsoft Excel» ," «).
AutoItSetOption («SendKeyDelay», 250).
send («!{ф}»).
send («{к}»).
WinWaitActive («Сохранениедокумента» ," «).
send («{TAB}»).
send («{DOWN}»).
send («{HOME}»).
send («{DOWN}{DOWN}{DOWN}»).
send («{ENTER}»).
ControlFocus («Сохранение документа», «Дерево», «Edit1»).
AutoItSetOption («SendKeyDelay», 50).
Send («G:RsBank55ARM_ADMSMS CLIENTS» & «д.форм._» & $Date1 & «_дата.об_» & $Date2 & «.xls»).
send («{ENTER}»).
AutoItSetOption («SendKeyDelay», 250).
WinWaitActive («Microsoft Excel — д. форм» ," «).
send («!{ф}»).
send («{в}»).
$msg = «ЕСТЬ СООБЩЕНИЕ ДЛЯ ОТПРАВКИ» .
ExitLoop.
Else.
EndIf.
ifWinActive («Microsoft Excel» ," «) then.
send («!{ф}»).
send («{в}»).
send («{TAB}»).
send («{ENTER}»).
ControlClick («bank.def — Автоматизированнаябанковскаясистема RS-Bank», '', '[CLASS:Button; INSTANCE:2]').
$msg = «СООБЩЕНИЙНЕТ» .
ExitLoop.
Else.
EndIf.
WEnd.
WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Просмотр").
send («{ESC}»).
WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Список процедур в файле").
send («{ESC}»).
send («{F10}»).
send («{LEFT}»).
send («{ENTER}»).
send («{DOWN}»).
send («{ENTER}»).
WinWaitActive («bank.def — Автоматизированная банковская система RS-Bank» ," Вы действительно хотите закончить работу?").
send («{ENTER}»).
WinWaitActive («АРМ сотрудника» ," Список").
send («{ESC}»).
MsgBox (0," Внимание" ,$msg).
EndSwitch.
WEnd.
Внешний вид программы:
Программа формирует смс уведомление для клиентов в банковской системе Rs-bank 5.5 для отправки, с сохранением отчета в MSExcel.