- Maciek Sonik podesłał skrypt TPSA0001 (248B):
;
; Skrypt do automatycznego logowania do Serwera TelePSA
; (c) by Maciek Sonik http://www.sonik.com.pl
;
proc main
waitfor "sername"
transmit "ppp^M"
delay 1
waitfor "assword"
transmit "ppp^M"
waitfor "IP"
endproc
- Jacek Jędrzejowski (Quickkwik) podesłał skrypt TPSA0002 (1670B):
;
; Skrypt do połączenia z Internet via TPSA
;
proc main
; Jezeli Twoj Internet Provider ma inny LOGIN,
; to zmien ponizsze ustawienia.
; Skorzystaj wpierw z logowania recznego
; i zanotuj komunikaty.
string sLogin = "Username: "
string sPassw = "Password: "
; deklaracja zmiennej ilosci prob polaczenia
integer nTries = 10
; deklaracja zmiennych dla czasow oczekiwania
integer nLoginTimeout = 3
integer nPassTimeout = 3
; proba dokonania polaczenia co najwyzej 'nTries' razy
while 0 < nTries do
delay 2
waitfor sLogin then DoLogin
until nLoginTimeout
TryAgain:
transmit "^M"
nTries = nTries - 1
endwhile
goto BailOut
DoLogin:
; wprowadzenie identyfikatora uzytkownika (login name)
; zalezne od Internet Provider'a i uzytkownika
; w TPSA zawsze jest 'ppp'
; ^M oznacza oczywiscie nacisniecie ENTER'a
transmit "ppp"
transmit "^M"
; oczekiwanie na zapytanie (prompt) o haslo (password)
waitfor sPassw until nPassTimeout
if FALSE == $SUCCESS then
goto TryAgain
endif
; wprowadzenie hasla (password)
; zalezne od Internet Provider'a i uzytkownika
; dla TPSA jest takie samo, jak identyfikator
transmit "ppp"
transmit "^M"
; Czasem zachodzi potrzeba wprowadzenia jeszcze jednej
; petli, o ile logowanie jest trzystopniowe.
; To juz chyba potraficie zrobic sami.
goto Done
BailOut:
; Brak prawidlowej odpowiedzi. Zatrzymanie skryptu
; i umozliwienie uzytkownikowi obslugi recznej.
set screen keyboard on
halt
Done:
endproc
"(...) Problem jest w tym, ze juz kilka osob napisalo do mnie, ze u nich skrypt nie dziala!
Wyglada tak, jakby przy analizie skladniowej skryptu nie byly rozpoznawane (interpretowane) slowa kluczowe wystepujace w deklaracjach zmiennych skryptu.
Osoby te maja PLUS'a oraz program SCRIPTER.EXE (a z tym chyba wszystkie potrzeble DLL'e), a tak czy owak im nie dziala.
Chce powiedziec, ze u mnie obydwa"
(autor ma jeszcze skrypt dla swojego providera - przyp. Yogurt)
"skrypty dzialaja bez zarzutu.
Przy okazji prosze wszystkie osoby zglaszajace powyzszy problem o sprawdzenie, czy w katalogu C:\WINDOWS\SYSTEM znajduja sie biblioteki SMMSCRPT.DLL (48128) oraz SMMSETUP.DLL (5632).
Ale jak nie to, to juz sam nie wiem. Czy ktos to juz przecwiczyl?"
- Mirek Adamus (Adax) podesłał skrypt TPSA0003 (172B):
proc main
delay 1
waitfor "ame:"
delay 1
transmit "ppp"
delay 1
transmit "^M"
delay 1
waitfor "assword:"
transmit "ppp"
delay 1
transmit "^M"
delay 1
endproc
- Tomek Kubajczyk Lubin (legnickie) podesłał skrypt TPSA0004 (203B):
proc main
waitfor "Username:"
transmit $USERID
transmit "^M"
;poszło po dodaniu poniższej linii
delay 2
waitfor "Password:"
transmit $PASSWORD
transmit "^M"
endproc
- Krzysiek podesłał skrypt TPSA0005 (110B):
proc main
waitfor "ame:"
transmit "ppp^M"
waitfor "assword:"
delay 1
transmit "ppp^M"
delay 3
endproc
- Waldemar Wojtkiewicz podesłał skrypt TPSA0006 (592B):
;
; This is a script file that demonstrates how
; to establish a PPP connection with a host
; that uses a menu system.
;
; A script file must have a 'main' procedure.
; All script execution starts with this 'main'
; procedure.
;
; Main entry point to script
;
proc main
; Wait for the login prompt before entering
; the user ID
delay 1
waitfor "sername:"
delay 1
transmit "ppp"
delay 1
transmit "^M"
; Enter the password
delay 1
waitfor "assword:"
delay 1
transmit "ppp"
delay 1
transmit "^M"
endproc
Dodając uwagę:
"Moj skrypt w Gdansku loguje sie z prawdopodobienstwem wiekszym niz 90 %."
- Sebastian Malarz podesłał skrypt TPSA0007 (129B):
proc main
delay 1
waitfor "Username:"
transmit "ppp^M"
delay 1
waitfor "Password:"
transmit "ppp^M"
delay 1
endproc
Dodając uwagę:
"Ja uzywam swojego skryptu do laczenia sie z TP-SA w Bielsku-Bialej.
Lacze sie trzy-cztery razy dziennie juz od ho,ho miesiecy i skrypt dzialal mi i dziala ZAWSZE bez zadnych bledow itp."
- Tomek Koszewar podesłał skrypt TPSA0008 (185B):
proc main
delay 1
waitfor "Username:"
transmit "ppp^M"
delay 1
waitfor "Password:"
transmit "ppp^M"
delay 1
waitfor "Your IP address is"
set ipaddr getip
endproc
- Maciej Łątkowski podesłał skrypt TPSA0009 (133B):
proc main
waitfor "assword"
waitfor "name:"
transmit "ppp^M"
waitfor "assword:"
transmit "ppp^M"
delay 1
endproc
- Radosław Popławski podesłał (ze znakiem zapytania) skrypt TPSA0010 (93B):
proc main
delay 3
transmit "ppp^M"
waitfor "assword:"
transmit "ppp^M"
endproc
- Robert podesłał skrypt TPSA0011 (82B):
proc main
delay 3
transmit "PPP^M"
delay 1
transmit "PPP^M"
endproc
- Dariusz Bandzarewicz (Bonzo) podesłał skrypt TPSA0012 (136B):
proc main
waitfor "cation"
waitfor "ame:"
transmit "ppp"
transmit "^M"
waitfor "assword:"
transmit "ppp"
transmit "^M"
endproc
- Piotr Andrusiewicz podesłał skrypt TPSA0013 (255B):
;
; Połączenie z Internetem via TP SA - nazwa: tpsa.scp
;
proc main
set screen keyboard off ; wyłącza możliwość pisania poprzez terminal
waitfor "Username: "
transmit "ppp^M"
waitfor "Password: "
transmit "ppp^M"
halt
endproc
- Andrzej J. Turowicz podesłał skrypt TPSA0014 (106B):
proc main
delay 3
transmit "ppp^M"
delay 2
transmit "ppp^M"
delay 3
endproc
- Marcin Mikolajczyk podesłał skrypt TPSA0015 (182B):
proc main
delay 3
transmit "^M"
waitfor "Username:"
transmit "ppp"
transmit "^M"
waitfor "Password:"
transmit "ppp"
transmit "^M"
endproc
- Andrzej J. Turowicz podesłał drugi skrypt TPSA0016 (90B):
proc main
delay 3
transmit "ppp^M"
delay 3
transmit "ppp^M"
endproc
- Artur Nowak podesłał skrypt TPSA0017 (197B):
proc main
waitfor "sername: "
transmit "ppp"
transmit "^M"
waitfor "assword: "
transmit "ppp"
transmit "^M"
waitfor "Your IP address is "
set ipaddr getip
endproc
Dodając uwagę:
"A poza tym skrypt automatycznie ustawia numer IP w odpowiednim miejscu i wszelkie ewentualne problemy nie wystepuja."
- Radosław Popławski podesłał drugi skrypt TPSA0018 (74B):
proc main
delay 3
transmit "ppp^M"
delay 2
transmit "ppp^M"
endproc
- Artur Dziak podesłał skrypt TPSA0019 (196B):
proc main
delay 1
waitfor "Username:"
transmit "ppp"
transmit "^M"
delay 1
waitfor "Password:"
transmit "ppp"
transmit "^M"
delay 1
transmit "^M"
endproc
- Maciej Kosior podesłał skrypt TPSA0020 (180B):
proc main
waitfor "Username: "
transmit "ppp"
transmit "^M"
waitfor "Password: "
transmit "ppp"
transmit "^M"
waitfor "Header compression will match your system."
endproc