[Svnkill]

Спасибо! А если мне надо добавить больше сайтов то я просто добавляю @@R11 @@R12 и так далее. Правильно?)

: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/" »

[megaloman]

Svnkill,

просто добавляю @@R11 @@R12 и так далее. Правильно?) »

да, и, кроме того, поставить максимальное значение NSpis2= .....

[megaloman]

Вот вариант, Я облегчил ввод списка - не надо переменной присваивать ссылку.
Можно указывать любое число строк в каждом списке.
Подсчитывать самому кол-во ссылок тоже не надо

Код:

@Echo Off
cls
	Set Brow="C:\Program Files\Google\Chrome\Application\chrome.exe"

	Set /A Ran=4

	Call :ToVar "Spis1=====" "@@B" "N@@B"
	Call :ToVar "Spis2=====" "@@R" "N@@R"

	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%%*%N@@R%/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

:ToVar
	Set /A i=0
	FOR /F "usebackq tokens=1* delims=:" %%a IN (`2^>nul FINDSTR /I /L /B /N %1 "%~dpnx0"`) DO (
		FOR /F "usebackq delims=" %%s IN (`2^>nul More +%%a "%~dpnx0"`) DO (
			Echo %%s |Find /I /N %1 >nul 2>&1 &&(Call Set /A %~3=%%i%% &Exit /B 0)
			Call Set /A i+=1
			Call Set "%~2%%i%%=%%s"
		)
	)
Exit /B

Spis1=====

https://ok.ru/game/mbalda
https://ok.ru/game/fotocrossword

Spis1=====

Spis2=====

https://vz.ru
https://lenta.ru
https://www.gismeteo.by/weather-gomel-4918/
https://www.tut.by
http://haharms.ru/zoshchenko-m-rasskazy-chitat-texty-29.html
http://forum.oszone.net/forum-102.html
https://gomel.today/
http://rfpro.ru/
http://www.belstat.gov.by
http://www.gomel-region.by/ru/

Spis2=====

Каждый список должен ограничиваться одним и тем же словом, у меня это Spis1===== Spis2=====

[alpap]

рандомные 4-7 сайтов из списка, и 2 нужных сайта »

добавлю и свой вариант

Код:

@echo off
set "$1=https://vz.ru"
set "$2=https://lenta.ru"
set "$3=https://www.gismeteo.by/weather-gomel-4918/"
set "$4=https://www.tut.by"
set "$5=http://haharms.ru/zoshchenko-m-rasskazy-chitat-texty-29.html"
set "$6=http://forum.oszone.net/forum-102.html"
set "$7=https://gomel.today/"
set "$8=http://rfpro.ru/"
set "$9=http://www.belstat.gov.by"
set "$10=http://www.gomel-region.by/ru/"
set "z1=https://ok.ru/game/mbalda"
set "z2=https://ok.ru/game/fotocrossword"
set /a "min=4,max=7,nr=%random%%%(max-min+1)+min"

echo %z1%
echo %z2%
for /f "tokens=2" %%a in ('"cmd /v/c for /f tokens^^=2^^ delims^^=^^= %%a in ('set $') do @echo !random! %%a|sort"') do set /a n+=1& call :# "%%n%%" "%%a"
pause& exit

:#
 if "%~1" lss "%nr%" echo %~2
exit /b

Svnkill, как Вы понимаете количество строк для рандомных адресов любое, дописываете с увеличением порядкового номера, в последней строке переменных можно диапазон от 4 до 7 поменять на свой.
megaloman, взял Ваши образцы адресов для упрощения работы, надеюсь не обидитесь.

[Svnkill]

Set /A Ran=4 »

Что надо прописать что бы открылось рандомное количество вкладок от 3 до 6 к примеру?

[DJ Mogarych]

Powershell:

Код:

# список нужных сайтов
gc C:\temp\needed-sites.txt |% {start $_}
# список прочих, открываются случайные 4
Get-Random (gc C:\temp\other-sites.txt) -Count 4 |% {start $_}

Вид файлов со списком сайтов:

http://forum.oszone.net https://yandex.ru https://vz.ru https://lenta.ru https://www.gismeteo.by/weather-gomel-4918/ https://www.tut.by http://haharms.ru/zoshchenko-m-rassk...-texty-29.html http://forum.oszone.net/forum-102.html https://gomel.today/ http://rfpro.ru/ http://www.belstat.gov.by http://www.gomel-region.by/ru/

[Svnkill]

Не очень понял. Set /A Ran=икс где икс- любое число не более общего числа перечисленных сайтов в списке. »

Я имею в виду чтобы он при запуске открыл случайное количество вкладок. Две или три. При каждом запуске открывалось случайное количество вкладок

[alpap]

Svnkill,
в моем варианте п.14 и в строке тоже под номером 14, единственная регулировка, именно рандомный диапазон, сейчас указан вами заданный в условии от 4 до 7, меняется как вам захочется, ну потолок, естественно не более количества ссылок, тут уж логически понятно. Может там легче вам будет тогда.
Попробуйте, запустить код, например, раза 4, вот в таком варианте:

Скрытый текст

Код:

@echo off
::---------------------------------------------
set "$1=https://vz.ru"
set "$2=https://lenta.ru"
set "$3=https://www.gismeteo.by/weather-gomel-4918/"
set "$4=https://www.tut.by"
set "$5=http://haharms.ru/zoshchenko-m-rasskazy-chitat-texty-29.html"
set "$6=http://forum.oszone.net/forum-102.html"
set "$7=https://gomel.today/"
set "$8=http://rfpro.ru/"
set "$9=http://www.belstat.gov.by"
set "$10=http://www.gomel-region.by/ru/"
::---------------------------------------------
set "z1=https://ok.ru/game/mbalda"
set "z2=https://ok.ru/game/fotocrossword"
::---------------------------------------------
set /a "min=4,max=7,nr=%random%%%(max-min+1)+min"

>>file.txt (
 echo ---------------------------------------------
 echo %z1%
 echo %z2%
)

for /f "tokens=2" %%a in ('"cmd /v/c for /f tokens^^=2^^ delims^^=^^= %%a in ('set $') do @echo !random! %%a|sort"') do set /a n+=1& call :# "%%n%%" "%nr%" "%%a"
pause& exit

:#
 >>file.txt (if "%~1" lss "%~2" echo %~3)
exit /b

[megaloman]

Что надо прописать что бы открылось рандомное количество вкладок от 3 до 6 к примеру? »

Вместо

Set /A Ran=4 »

Код:

rem	Set /A Ran=4
	Set /A RanMin=3
	Set /A RanMax=6
	FOR /L %%i IN (1,1,10) DO Call Set /A Ran=(%%RANDOM%%*(%RanMax%-%RanMin%+1)/32768)+%RanMin%

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

Код:

rem	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@B"`) DO Start "" %Brow% %%j

[DJ Mogarych]

Что надо прописать что бы открылось рандомное количество вкладок от 3 до 6 к примеру? »

Код:

Get-Random (gc C:\temp\other-sites.txt) -Count $(Get-Random (3..6)) |% {start $_}