Показать полную графическую версию : Открытии ссылки в браузере
pesochek1718
15-05-2022, 00:48
Уважаемсые пользователи.есть код взятый на данном форуме.Отрабатывет на ура,но вот проблема в том.что мне необходимо ещё сделать рандом браузеров,в каком из них будет открываться рандомная ссылка.Т.е. вписать несколько браузеров в ту же 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
делай в самом начале
set br=%RANDOM%
и дальше везде замени рандом на бр. или любое другое имя переменной.
pesochek1718
15-05-2022, 01:13
set br=%RANDOM% »
А каким образом добавить список браузеров?
pesochek1718
15-05-2022, 01:33
Я в написании полный ноль,я вообще мало что понимаю в коде.
Было бы супер,если бы написали уже готовый вариант.
Я был бы премного благодарен.
Я вообще не понял, звиняй, что вообще ты делаешь этим скриптом. Забудь мой совет выше, там чушь.
Что ты подразумеваешь под "случайным бравзером"?
У тебя везде оно одно - хром(ое) чудо. Что сделать ты хочешь? Этот скрипт заводит хромого с разными адресами. В чем смысл, этож хромой - он палюбому отошлёт твои гео-дата и проч фингерприниты, сколько бы копий этого говнеца ты не запустил - они одинаково будут пахнуть и действовать.
pesochek1718
15-05-2022, 05:33
да хром это пример.Мне нужно что бы открывалсось 5 разных браузеров.Путь я уже сам вставлю какой нужно.Т.е. срипт рандомно выбирает какой браузер открыть и рандомно должен открыть указанную ссылку.
pesochek1718
15-05-2022, 07:36
Сам оригинал был взят тут-http://forum.oszone.net/thread-342575.html
Но мне необходимо ещё что бы была рандомизация открываемых браузеров
Serguei Kouzmine
16-05-2022, 01:12
как то так ?
Start "" firefox eight
Start "" edge nine
Start "" chrome seven
Start "" firefox ten
Start "" edge one
Start "" chrome five
Start "" firefox two
Start "" edge three
Start "" chrome six
Start "" firefox four
pesochek1718
16-05-2022, 01:26
как то так ?
Код:
Start "" firefox eight
Start "" edge nine
Start "" chrome seven
Start "" firefox ten
Start "" edge one
Start "" chrome five
Start "" firefox two
Start "" edge three
Start "" chrome six
Start "" firefox four »
Нет,тут дело не в браузере совершенно.Нужно именно рандомизировать выбор запускаемого браузера.
Задал я 4-5 браузеров в батнике,а он уже сам выбирает какой браузер взять.
Serguei Kouzmine
16-05-2022, 02:03
то что напечатано в моем посте выше именно это и делает
в цикле выбирается случайный урл из списка и браузер в цикле из списка браузеров
если это не то что вы имели в виду то
вам нужно корректно формулировать проблему, если вы хотите ее решения
для начала честно говоря рекомендую исправить ошибки в оригинальном скрипте который был взят тут-http://forum.oszone.net/thread-342575.html
глядишь и сами все сделаете не напрягая собщество автоматизаторов
megaloman
16-05-2022, 10:33
Вот скрипт, который открывает заданное количество (здесь 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В принципе, можно сделать, что будет открыт один случайный линк одним случайным браузером, причем все браузеры будут разными, но тогда количество открытых ссылок должно быть не более количества браузеров.
Полезнее было бы полностью изложить постановку задачи
Полезнее было бы полностью изложить постановку задачи »
Бггг..., классика. уже лет 20 не меняется Основной Вопрос о вселенной, жизни в вообще... :drug:
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.