|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Как запустить случайную команду? |
|
[решено] Как запустить случайную команду?
|
Ветеран Сообщения: 2756 |
Профиль | Отправить PM | Цитировать |
|
------- Отправлено: 12:09, 10-01-2010 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Pozia:
$sBat_Content = _ '@Echo Off' & @CRLF & _ 'Set iRandom=0' & @CRLF & _ 'Call :Random 1 69' & @CRLF & _ 'If %iRandom% LSS 10 Set iRandom=0%iRandom%' & @CRLF & _ 'Start WinstyleMonitor.exe -LP "%Windir%\Web\Wallpaper\WinStyle %iRandom%.jpg"' & @CRLF & _ 'GoTo :EOF' & @CRLF & _ ':Random' & @CRLF & _ ':Loop' & @CRLF & _ 'Set /A Rnd=%Random:~0,1%+%Random:~-2%' & @CRLF & _ 'If %Rnd% LSS %1 GoTo :Loop' & @CRLF & _ 'If %Rnd% GTR %2 GoTo :Loop' & @CRLF & _ 'Set iRandom=%Rnd%' $sBat_File = @ScriptDir & "\BatFile.bat" $hFile = FileOpen($sBat_File, 2) FileWrite($hFile, $sBat_Content) FileClose($hFile) Run($sBat_File) |
|
------- Отправлено: 15:29, 10-01-2010 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Creat0R, не. скриптом автоит как то проще. Спасибо еще раз!
|
------- Отправлено: 15:32, 10-01-2010 | #12 |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 00:35, 23-01-2010 | #13 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Отправлено: 00:54, 23-01-2010 | #14 |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
то все путем. Цитата Creat0R:
|
||
------- Отправлено: 01:04, 23-01-2010 | #15 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Pozia:
Цитата Pozia:
Run('WinstyleMonitor.exe -LP "' & @WindowsDir & '\Web\Wallpaper\WinStyle (' & StringFormat('%02.f', Round(Random(1, 69))) & ').jpg"') Цитата Pozia:
|
|||
------- Отправлено: 01:19, 23-01-2010 | #16 |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
и при каждом запуске автоит скрипта он бы создавал новый батник с новой цифрой. А в самом батнике нужна только обозначенная команда Цитата Creat0R:
|
||
------- Отправлено: 01:30, 23-01-2010 | #17 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Pozia:
Цитата:
$sBat_File = @DesktopDir & "\BatFile.bat" $sBat_Content = 'WinstyleMonitor.exe -LP "%Windir%\Web\Wallpaper\WinStyle (' & StringFormat('%02.f', Round(Random(1, 69))) & ').jpg"' $hFile = FileOpen($sBat_File, 2) FileWrite($hFile, $sBat_Content) FileClose($hFile) |
||
------- Отправлено: 02:11, 23-01-2010 | #18 |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
Цитата Creat0R:
|
||
------- Отправлено: 07:48, 23-01-2010 | #19 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Pozia:
|
|
------- Отправлено: 13:20, 23-01-2010 | #20 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - [решено] Не получается запустить правильно команду на установку из GuiRunOnce | Firebolt | Автоматическая установка Windows 2000/XP/2003 | 4 | 10-03-2009 12:45 | |
[решено] Как запустить программу как службу | piling | Microsoft Windows NT/2000/2003 | 2 | 23-09-2008 21:14 | |
FreeBSD - [решено] Как запустить emacs? | RedNN | Общий по FreeBSD | 6 | 24-12-2007 11:46 | |
Доступ - [решено] Как запустить редактор реестра | AMDell | Microsoft Windows 2000/XP | 3 | 17-10-2007 10:45 | |
Как выполнить команду после установки связи по PPP | Rus1 | Сетевые технологии | 3 | 01-03-2004 22:53 |
|