Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Открытии ссылки в браузере

Ответить
Настройки темы
CMD/BAT - Открытии ссылки в браузере

Новый участник


Сообщения: 12
Благодарности: 1

Профиль | Отправить PM | Цитировать


Уважаемсые пользователи.есть код взятый на данном форуме.Отрабатывет на ура,но вот проблема в том.что мне необходимо ещё сделать рандом браузеров,в каком из них будет открываться рандомная ссылка.Т.е. вписать несколько браузеров в ту же 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

 

Ветеран


Contributor


Сообщения: 2706
Благодарности: 1684

Профиль | Отправить PM | Цитировать


Вот скрипт, который открывает заданное количество (здесь 3: Set /A NLink=3) случайно выбранных ссылок случайно выбранным браузером. Можно, конечно пооткрывать хоть все ссылки, тогда уберите rem в rem Set /A NLink=%LMax% Одна и та же ссылка дважды открыта не будет.
Код: Выделить весь код
@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
Благодарности: 64

Профиль | Цитировать


Цитата megaloman:
Полезнее было бы полностью изложить постановку задачи »
Бггг..., классика. уже лет 20 не меняется Основной Вопрос о вселенной, жизни в вообще...

Отправлено: 18:10, 23-05-2022 | #12



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Открытии ссылки в браузере

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интернет - Не открываются ссылки из программ в браузере по умолчанию 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




 
Переход