Имя пользователя:
Пароль:
 | Правила  

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

Ответить
Настройки темы
CMD/BAT - [решено] Открытие 4 рандомных сайтов из списка

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


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

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


Привет, мне надо чтобы при запуске .bat открылись рандомные 4-7 сайтов из списка, и 2 нужных сайта. Кто-то занает как это осуществить?

Отправлено: 00:35, 18-10-2019

 

Ветеран


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

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


Я знаю. Где список, и где адреса «2 нужных сайтов»?
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:40, 18-10-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


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

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


Цитата Iska:
Я знаю. Где список, и где адреса «2 нужных сайтов»? »
Я не знаю, попытаюсь догадаться .
Код: Выделить весь код
@Echo Off
	Set Brow="C:\Program Files\Google\Chrome\Application\chrome.exe"
	Set /A Ran=4

	Call :Spis1
	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

:Spis1
	Set "@@B1=https://ok.ru/game/mbalda"
	Set "@@B2=https://ok.ru/game/fotocrossword"
Exit /B

:Spis2
	Set "@@R1=https://vz.ru"
	Set "@@R2=https://lenta.ru"
	Set "@@R3=https://www.gismeteo.by/weather-gomel-4918/"
	Set "@@R4=https://www.tut.by"
	Set "@@R5=http://haharms.ru/zoshchenko-m-rasskazy-chitat-texty-29.html"
	Set "@@R6=http://forum.oszone.net/forum-102.html"
	Set "@@R7=https://gomel.today/"
	Set "@@R8=http://rfpro.ru/"
	Set "@@R9=http://www.belstat.gov.by"
	Set "@@R10=http://www.gomel-region.by/ru/"

	Set /A NSpis2=10
Exit /B

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:16, 18-10-2019 | #3


Ветеран


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

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


megaloman, а я бы просто start "" "http://www.google.com", start "" "http://www.ya.ru" и т.д. — просто отдавал бы на откуп браузеру по умолчанию.
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:47, 18-10-2019 | #4


Ветеран


Contributor


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

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


Iska,
Цитата Iska:
отдавал бы на откуп браузеру по умолчанию »
Не знаю. У меня по умолчанию IE (не подвергайте меня остракизму, пожалуйста), и предлагаемый Вами способ открывает кучу окон IE , в отличии от хрома - там сайты открываются в закладках. Возможно, существуют какие-то настройки ...

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 16:44, 18-10-2019 | #5


Ветеран


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

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


Цитата megaloman:
и предлагаемый Вами способ открывает кучу окон IE »
Даже в тех версиях, которые уже поддерживают вкладки? Не знал.

Отправлено: 16:47, 18-10-2019 | #6


Ветеран


Contributor


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

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


Iska, Попробовал выкрутиться. Запустил IE (у меня IE11 со всеми вышедшими обновлениями), и, после timeout /t 5, сайты запускаются во вкладках, плюс остаётся пустая вкладка.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:03, 18-10-2019 | #7


Ветеран


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

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


megaloman, а… Надо полагать, что пока он не «отелится», пока не запустится — последующие (после первого) вызовы просто не «видят» уже запущенного процесса iexplore.exe и порождают вызов на исполнение новых отдельных процессов браузера, а не передаются существующему. Попробуйте предварительно открыть IE, подождать, а потом пробежаться start'ами с url'ами — если моя мысль имеет право на жизнь, то все вызовы start "" "url" должны быть переданы существующему процессу (если он будет запущен с тем же уровнем целостности), а url'ы открыты в его вкладках.
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:37, 18-10-2019 | #8


Ветеран


Contributor


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

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


Iska, я сделал именно так и
Цитата megaloman:
сайты запускаются во вкладках, плюс остаётся пустая вкладка. »
но при этом всё равно надо указать экзешник браузера, для того, чтобы его запустить и подождать, перед запуском url-ов

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 17:58, 18-10-2019 | #9


Ветеран


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

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


Цитата megaloman:
но при этом всё равно надо указать экзешник браузера, для того, чтобы его запустить и подождать, перед запуском url-ов »
Да-да, я про это — просто, чтобы проверить идею.

Отправлено: 18:13, 18-10-2019 | #10



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - установка рандомных шрифтов из указаной папки denshik Скриптовые языки администрирования Windows 4 09-03-2017 21:24
[решено] Windows 10 - открытие рандом сайтов в браузере mateys Лечение систем от вредоносных программ 8 27-01-2017 14:28
Периодическое открытие фишин сайтов в браузере хром. reine.maus1234 Лечение систем от вредоносных программ 1 12-11-2016 00:24
При совершенно рандомных обстоятельствах изображение пропадает erovorona Непонятные проблемы с Железом 9 10-06-2016 05:23
CMD/BAT - Открытие списка сайтов с задержкой Kinqui Скриптовые языки администрирования Windows 3 05-05-2016 04:41




 
Переход