Autor: eRnotrsnam (wry_at_nere.p)
Data: Sat 02 Dec 2000 - 02:23:15 MET
This is a multi-part message in MIME format.
------=_NextPart_000_029B_01C05C06.D4DA2840
Content-Type: text/plain;
charset="iso-8859-2"
Content-Transfer-Encoding: 8bit
"Marek Pawlik" <mpawlik_at_alpha.net.pl> wrote in message
news:39b7f03b_at_news.vogel.pl...
> Mam wkurzajacy problem. Nie wiem jak zmusic dial-up zeby zapamietal
haslo
> przy polaczeniach z Internetem (0202122) i za kazdym razem jak sie
lacze
> musze wklepywac ppp (tylko w miejscu hasla bo login pamieta)
> Czy wiecie jak temu zaradzic ?
No to masz ciekawy skrypcik do łączenia z 0202122.
Jeśli nie działa, to wystarczy poprawić w nim kilka zmiennych.
Zaletę ma taką, że po połączeniu się z serwerem TP S.A.
loguje się błyskawicznie - zysk kilka(naście) sekund.
Nie próbuj zmniejszać timeoutów w tym skrypcie.
Jeśli podczas logowania wystąpi błąd - otworzy okno terminala
i zobaczysz, co się stało.
------=_NextPart_000_029B_01C05C06.D4DA2840
Content-Type: application/octet-stream;
name="tpsa_ppp.SCP"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="tpsa_ppp.SCP"
;---------------------------------------------------------------------
proc main
;---------------------------------------------------------------------
integer zgloszenie_serwera_timeout = 10
integer zadanie_nazwy_timeout = 3
integer zadanie_hasla_timeout = 3
integer zgloszenie_sesji_timeout = 3
string zgloszenie_serwera = "WITAMY"
string zadanie_nazwy = "<lf>Username:"
string zadanie_hasla = "<lf>Password:"
string zgloszenie_ppp = "Start sesji PPP"
string nazwa = "ppp"
string haslo = "ppp"
;---------------------------------------------------------------------
waitfor zgloszenie_serwera then ZadanieNazwy
until zgloszenie_serwera_timeout
goto BrakZgloszeniaSerwera
ZadanieNazwy:
waitfor zadanie_nazwy then WyslanieNazwy
until zadanie_nazwy_timeout
goto BrakZadaniaNazwy
WyslanieNazwy:
transmit nazwa, raw
transmit "<cr>"
waitfor zadanie_hasla then WyslanieHasla
until zadanie_hasla_timeout
goto BrakZadaniaHasla
WyslanieHasla:
transmit haslo, raw
transmit "<cr>"
waitfor zgloszenie_ppp then StartSesjiPPP
until zgloszenie_sesji_timeout
goto LoginOdrzucony
;---------------------------------------------------------------------
BrakZgloszeniaSerwera:
BrakZadaniaNazwy:
BrakZadaniaHasla:
LoginOdrzucony:
set screen keyboard on
halt
StartSesjiPPP:
Koniec:
;---------------------------------------------------------------------
endproc
;---------------------------------------------------------------------
------=_NextPart_000_029B_01C05C06.D4DA2840--
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 20:59:03 MET DST