AZ
Size: a a a
AZ
AZ
$DateSearch = @MDAY+1
$sExcelFile='D:\autoit\1.xlsx'
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel,$sExcelFile)
Local $SearchResult = _Excel_RangeFind($oWorkbook,$DateSearch)
AZ
AZ
Ra
AZ
AZ
Local $SearchResult = _Excel_RangeFind($oWorkbook,$DateSearch,Default,$xlValues,$xlWhole)
AZ
AZ
ฯh
ฯh
AZ
#RequireAdmin
#include <ScreenCapture.au3>
#include "Telegram.au3"
#include <Array.au3>
AutoItSetOption('MouseCoordMode', 0)
Run("C:\Program Files (x86)\OBS for VK\bin\32bit\obs32.exe", "C:\Program Files (x86)\OBS for VK\bin\32bit") ;запуск программы
WinWaitActive("OBS для ВКонтакте","obs32") ;ожидание окна
WinMove("OBS для ВКонтакте","obs32", 0, 0, 800, 680) ;выставление положения и размеров окна
Sleep(3000)
MouseClick("primary", 515, 505, 1, 0) ;нажатие чекбокса выбора группы вещания
Sleep(500)
_ScreenCapture_CaptureWnd("c:\screen\screen1.jpg","OBS для ВКонтакте","obs32") ;первый скриншот окна
Sleep(1000)
MouseClick("primary", 505, 530, 1, 0) ;выбор группы
Sleep(500)
_ScreenCapture_CaptureWnd("c:\screen\screen2.jpg","OBS для ВКонтакте","obs32") ;второй скриншот окна
Sleep(1000)
Local $ChatID = '-555555555' ; id чата
Local $Token = 'выавыаывавыаывавыаыва' ;токен бота
_InitBot($Token) ;инициализация токена
_SendPhoto($ChatID,'C:\screen\screen1.jpg') ;отправка первого скриншота
_SendPhoto($ChatID,'C:\screen\screen2.jpg') ;отправка второго скриншота
_SendChatAction($ChatID,'typing') ;отправка произведенных действий в чат
;Ожидание до 19.00
sleep(300000)
MouseClick("primary", 520, 545, 1, 0) ;нажатие кнопки "запуск трансляции"
Sleep(3610000) ;ожидание 3610 секунд
MouseClick("primary", 521, 546, 1, 0) ;нажатие остановить трансляцию
Sleep(3000) ;ожидание 3 секунд
MouseClick("primary", 777, 15, 1, 0) ;нажатие крестика''
AZ
ฯh
ฯh
AZ
AZ