|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Открытии ссылки в браузере |
|
CMD/BAT - Открытии ссылки в браузере
|
Новый участник Сообщения: 12 |
Уважаемсые пользователи.есть код взятый на данном форуме.Отрабатывет на ура,но вот проблема в том.что мне необходимо ещё сделать рандом браузеров,в каком из них будет открываться рандомная ссылка.Т.е. вписать несколько браузеров в ту же Set Brow.
Как это реализовать кто подскажет? @Echo Off Set Brow="C:\Program Files\Google\Chrome\Application\chrome.exe" Set /A Ran=1 Call :Spis2 FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@B"`) DO Start "" %Brow% %%j Set /A N=1 :Begin FOR /L %%i IN (1,1,10) DO Call Set /A R=(%%RANDOM%%*%NSpis2%/32768)+1 Call Set "Link=%%@@R%R%%%" If "%Link%"=="" GoTo :Begin Start "" %Brow% %Link% Set "@@R%R%=" Set /A N+=1 If %N% LEQ %Ran% GoTo :Begin Exit /B 0 Exit /B :Spis2 Set "@@R1=https://****.su Set "@@R2=https://****.su Set "@@R3=https://****.su Set /A NSpis2=10 Exit /B |
|
Отправлено: 00:48, 15-05-2022 |
Ветеран Сообщения: 2728
|
Профиль | Отправить PM | Цитировать Вот скрипт, который открывает заданное количество (здесь 3: Set /A NLink=3) случайно выбранных ссылок случайно выбранным браузером. Можно, конечно пооткрывать хоть все ссылки, тогда уберите rem в
@Echo Off cls Call :Brow "BMax" Call :Link "LMax" Set /A NLink=3 rem Set /A NLink=%LMax% Set /A N=0 :Begin Set /A "RB=1+%BMax%*%random%/32768" Set /A "RL=1+%LMax%*%random%/32768" Call :LStart %RB% %RL% "N" If %N% LSS %NLink% If %N% LSS %LMax% GoTo :Begin Pause Exit /B 0 :LStart Call Set "LL=%%@@L%2%%" If "%LL%"=="" Exit /B 0 rem Echo %LL% Set /A %~3+=1 Call Start " " "%%@@B%1%%" %LL% Call Set "@@L%2=" Exit /B :Link Set "@@L1=https://vz.ru/" Set "@@L2=https://lenta.ru/" Set "@@L3=http://forum.oszone.net/forum-102.html" Set "@@L4=https://www.gismeteo.by/weather-gomel-4918/" Set "@@L5=https://www.onliner.by/" Set "@@L6=https://youtube.com/" Set /A %~1=0 FOR /F "usebackq delims=" %%i IN (`2^>nul Set "@@L"`) Do Call Set /A %~1+=1 &>nul Call Echo %%Random%% Exit /B 0 :Brow Set "@@B1=C:\Users\HRuban\AppData\Local\Yandex\YandexBrowser\Application\browser.exe" Set "@@B2=C:\Program Files\Google\Chrome\Application\chrome.exe" Set "@@B3=C:\Program Files\Internet Explorer\iexplore.exe" Set /A %~1=0 FOR /F "usebackq delims=" %%i IN (`2^>nul Set "@@B"`) Do Call Set /A %~1+=1 &>nul Call Echo %%Random%% Exit /B Полезнее было бы полностью изложить постановку задачи |
------- Последний раз редактировалось megaloman, 16-05-2022 в 12:53. Отправлено: 10:33, 16-05-2022 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Забанен Сообщения: 346
|
Цитата megaloman:
![]() |
|
Отправлено: 18:10, 23-05-2022 | #12 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интернет - Не открываются ссылки из программ в браузере по умолчанию | Fadeev | Microsoft Windows 8 и 8.1 | 8 | 23-05-2015 20:32 | |
Интернет - Грузится процессор до 80-90% при открытии вкладки в браузере при установленном Avast | alan.bree | Microsoft Windows 7 | 7 | 09-01-2015 10:47 | |
Интернет - Ссылки открываются не в браузере по умолчанию | alleut | Microsoft Windows 7 | 1 | 31-12-2010 18:09 | |
Интерфейс - Ссылки с месенджеров открываются не в браузере по умолчанию | cepera..c | Microsoft Windows Vista | 0 | 28-10-2008 01:02 | |
Ошибка - [решено] Помогите устранить трабл: в браузере некоторые ссылки заменены на [AD] | kiper342 | Microsoft Windows 2000/XP | 3 | 17-06-2008 14:55 |
|