Что нового

[Мышь, клавиатура] Виртуальный (офисный) пользователь

trash50

Новичок
Сообщения
3
Репутация
0
Версия AutoIt: 3.3.6.1

Описание: Скрипт имитирует работу офисного пользователя. Открывает (одно / несколько) случайных приложений, заполняет случайным (/зарвнее подготовленным текстом), сохраняет документ, закрывает приложение (/приложения), и так в цикле.

Примечания:
 

axlwor

Скриптер
Сообщения
657
Репутация
147
OffTopic:
:rofl:
пишет письма, общается в офисном чате, разговаривает по телефону и получает зряплату
 
Автор
T

trash50

Новичок
Сообщения
3
Репутация
0
Напротив, вопрос серьезный:
Скрипт предназначаеться для презентации сервера терминалов...

P.S. я могу написать его наполовину в .bat, оставшуюся половину в autoit, но выйдет это не красиво; а знаний autoit, на данный момент, катострофически не хватает :-\
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
trash50,
Вы бы подробнее описали задачу, по пунктам.
 

axlwor

Скриптер
Сообщения
657
Репутация
147
1. Берется текст Тургенева Муму. Открывается ворд и побуквенно с разной рандомной паузой и звуком печатной машинки печатается в него. Перевод строки можно сделать другим звуком
2. Открывается excel. Вставляются (кроме первых строк/столбцов) функции =СЛУЧМЕЖДУ(). Суммируются или умножаются. получаются итоги
3. Открывается ИЕ. Открывается поисковая машинка. Что то ищется
....
Дальше и дальше и дальше, пока хватит времени это реализовать

:beer:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
axlwor,
Вот пусть автор и распишет это, а то мне, например, лень придумывать. :smile:
 
Автор
T

trash50

Новичок
Сообщения
3
Репутация
0
Необходимо чтобы оставались файлы на диске...

Неработает:

[spоiler]
Код:
$TextSpeed = 9 ; 99 
Local $Text[9]
    $Text[1] = " Снижение TCO ИТ (total cost of ownership, совокупная стоимость владения)... "
    $Text[2] = " Абстрагирование и ООП. Объектно-ориентированное программирование... "



_TxtSend ()
Func _TxtSend ()
     Opt("SendKeyDownDelay", $TextSpeed) 
     
     $FileCurentNameFullPath = @MyDocumentsDir & '\' & 'Мой.документ.№' & Random(1, 99, 1) & '.doc'
     $hFile = FileOpen($FileCurentNameFullPath, 2)
     FileWrite($hFile,"{\rtf1}")
     sleep(5000)
     FileClose(FileOpen($hFile, 1))
     sleep(5000)

     ;; MsgBox(64, $hFile, "swriter.exe" & " " & $FileCurentNameFullPath)
     ;; Run(@ComSpec & " /c " & $FileCurentNameFullPath)
     ;; Run(@ComSpec & " /c " & $FileCurentNameFullPath & " & pause")
     Run("C:\Program Files\OpenOffice.org 3\program\swriter.exe" & " " & $FileCurentNameFullPath)
     sleep(3000)
     WinWaitActive($FileCurentNameFullPath & " - OpenOffice.org Writer")
     sleep(3000)
     
     Send($Text[Random(1, 2, 1)], 1)
     ; Send("{ENTER}")
     sleep(3000)
     
     WinClose($FileCurentNameFullPath & " - OpenOffice.org Writer")
     sleep(3000)
     Send("!д") ; Send("!y")
     Opt("SendKeyDownDelay", 5)
EndFunc

[/spоiler]
 
Верх