Задание по практике

Написать программу по автоматизации процессов.

Кодпрограммы:

#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.