[megaloman]

Я знаю. Где список, и где адреса «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