Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Открытии ссылки в браузере (http://forum.oszone.net/showthread.php?t=351210)

pesochek1718 15-05-2022 00:48 2985058

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

wasp14 15-05-2022 01:11 2985059

делай в самом начале
Код:

set br=%RANDOM%
и дальше везде замени рандом на бр. или любое другое имя переменной.

pesochek1718 15-05-2022 01:13 2985060

Цитата:

Цитата wasp14
set br=%RANDOM% »

А каким образом добавить список браузеров?

pesochek1718 15-05-2022 01:33 2985061

Я в написании полный ноль,я вообще мало что понимаю в коде.
Было бы супер,если бы написали уже готовый вариант.
Я был бы премного благодарен.

wasp14 15-05-2022 01:45 2985062

Я вообще не понял, звиняй, что вообще ты делаешь этим скриптом. Забудь мой совет выше, там чушь.

Что ты подразумеваешь под "случайным бравзером"?
У тебя везде оно одно - хром(ое) чудо. Что сделать ты хочешь? Этот скрипт заводит хромого с разными адресами. В чем смысл, этож хромой - он палюбому отошлёт твои гео-дата и проч фингерприниты, сколько бы копий этого говнеца ты не запустил - они одинаково будут пахнуть и действовать.

pesochek1718 15-05-2022 05:33 2985064

да хром это пример.Мне нужно что бы открывалсось 5 разных браузеров.Путь я уже сам вставлю какой нужно.Т.е. срипт рандомно выбирает какой браузер открыть и рандомно должен открыть указанную ссылку.

pesochek1718 15-05-2022 07:36 2985067

Сам оригинал был взят тут-http://forum.oszone.net/thread-342575.html
Но мне необходимо ещё что бы была рандомизация открываемых браузеров

Serguei Kouzmine 16-05-2022 01:12 2985113

как то так ?

Код:

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 2985115

Цитата:

Цитата Serguei Kouzmine
как то так ?
Код:
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 2985116

то что напечатано в моем посте выше именно это и делает
в цикле выбирается случайный урл из списка и браузер в цикле из списка браузеров

если это не то что вы имели в виду то
вам нужно корректно формулировать проблему, если вы хотите ее решения

для начала честно говоря рекомендую исправить ошибки в оригинальном скрипте который был взят тут-http://forum.oszone.net/thread-342575.html

глядишь и сами все сделаете не напрягая собщество автоматизаторов

megaloman 16-05-2022 10:33 2985122

Вот скрипт, который открывает заданное количество (здесь 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

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

wasp14 23-05-2022 18:10 2985553

Цитата:

Цитата megaloman
Полезнее было бы полностью изложить постановку задачи »

Бггг..., классика. уже лет 20 не меняется Основной Вопрос о вселенной, жизни в вообще... :drug:


Время: 20:21.

Время: 20:21.
© OSzone.net 2001-