WEB форумы на jedi
[Форум] [Помощь] [Поиск] [Выйти]
Добро пожаловать, [info]User

WEB форумы на jedi [ПОИСК] [Архив до 03.2006]

Тема скрипт К предыдущему сообщению На следующее сообщение Интернет

Отправил zuka в 22:01 24.10.2002[Ответить]
нет ли у кого скрипта для того чтобы при дозвоне на коснет не вводить логин пароль руками? sashcool@mail.ru


Отправил CAHbKA в 22:34 24.10.2002[Ответить]
для w2k и ХР скрипт встроенный, называется Generic login,
если для мастдаев, адрес скрипта указан в инструкции.


Отправил zuka в 22:58 24.10.2002[Ответить]
сань, видел я тот скрипт который на фтп коснетовском. ниче я там не понял.
у меня был раньше скрипт, буквально 5 строк. туда логин/пароль только вписываешь и все. был но к сожалению кончился. вот его я как раз и ищу


Отправил CAHbKA в 23:48 24.10.2002[Ответить]
значит вопрос не правильный, на самом деле ты хотел понимать, а спросил зачем-то скрипт. :-)

proc main
; что-то там будем повторять 3 раза
integer nTries = 3

; приглашение на ввод имени
; ожидаем что-то вроде Login
; но в регистре первой буквы не уверины, опустили

string szLogin = ogin:
; сколько подождать чего-та там дальше
integer nLoginTimeout = 3

; приглашение на ввод пароля, в регистре опять не уверены
string szPW = assword:
integer nPWTimeout = 3

; это самое будем повторять, разы сколько выше
; пока эти разы не кончились
while 0 < nTries do

; дождавшись переходим к слову DoLogin далее по тексту

waitfor szLogin then DoLogin

; а ждём столько, сколько собирались выше
until nLoginTimeout

TryAgain:
transmit ^M ; ping
nTries = nTries - 1

; тут мы еще ждем те разы... нажали клавишу Энтер
endwhile

; сюда попадём если ничего не дождались
; и пойдём отсюда восвояси
goto BailOut

; а сюда попадаем если дождались чего ждали
; т.е. login таки спросили
DoLogin:

; напечатаем имя из формочки называемой диалог дозвона
transmit $USERID, raw
; и нажмём Энтер
transmit ^M


; повтор ожидания, как и раньше, но уже для пароля
waitfor szPW until nPWTimeout
if FALSE == $SUCCESS then
; не получилось, хакер если;-) или мусор попал
goto TryAgain
endif

; дождались приглашения на ввод пароля
; и печатаем его
transmit $PASSWORD, raw
; нажали Энтер
transmit ^M

;уже в интернете, идём в него
goto Done

; не получилось, тут восвояси
BailOut:

set screen keyboard on
halt

; ля финале
Done:

endproc

из этого 5 строк сделать совсем не сложно.
прелесть его в том, что он уже есть, в практически готовом виде, на каждом мастдае, (называется pppmenu.scp)... пара пометок мышкой, пару раз Del и шедевр готов ;-)


Отправил zuka в 00:50 25.10.2002[Ответить]
ну написал я в этом скрипте пароль и логин. и нифига не получается все равно.

лана. толку тут на форуме не добъешься. как всегда предложат в ярик через воркуту ехать.

поищу скрипт в другом месте


Отправил CAHbKA в 01:36 25.10.2002[Ответить]
обамериканился ты паря ;-)
логин и пароль надо писать в окошечке, которое вылезет если два раза кликнуть на твоём соединении.


Отправил zuka в 10:54 25.10.2002[Ответить]
дык скрипт для того и есть чтобы каждый раз в окошечке руками не писать :)


Отправил Patrol в 12:05 25.10.2002[Ответить]
Дык окошечко и запоминать умеет! ;)


Отправил zuka в 16:19 25.10.2002[Ответить]
в 98 винде почему то упорно не запоминает


Отправил CAHbKA в 18:10 25.10.2002[Ответить]
документированная бага это фича.
Это свойство юзера, а не глобальное для всей уиндоуз.


Отправил StarT в 23:38 25.10.2002[Ответить]
Может и запомнит если подключение пройдет нормально. А потом не завись всей системы, а благополучное отключиться.


Отправил Aнтuфлyдep в 14:16 27.10.2002[Ответить]
=Имя и пароль в окошке=
proc main
set port databits 7
set port parity even
waitfor ogin
transmit $USERID, raw
transmit ^M
waitfor assword
transmit $PASSWORD, raw
transmit ^M
set port databits 8
set port parity none
endproc

=Имя и пароль в скрипте=
proc main
set port databits 7
set port parity even
waitfor ogin
transmit МойЛогин
transmit ^M
waitfor assword
transmit МойПароль
transmit ^M
set port databits 8
set port parity none
endproc