Skrypt DialUp Windows95

Thread View: pl.comp.os.win95

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Quickkwik Fri, 27 Dec 1996 18:32

#350

Author: Quickkwik
Date: Fri, 27 Dec 1996 18:32

82 lines
2280 bytes

;
; 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

-- 
Jacek Jędrzejowski alias Quickkwik
<jacek@dom.zabrze.pl>

Re: Skrypt DialUp Windows95

#351

Author: Jacek Żoch
Date: Sun, 29 Dec 1996 21:17

10 lines
983 bytes


Quickkwik <jacek@dom.zabrze.pl> napisał(a) w artykule
<01bbf424$04bfcfa0$0100007f@HERA>...
> ;
> ; Skrypt do połączenia z Internet via TPSA
Tą część skryptu, która powoduje powtarzanie dzwonienia chyba najlepiej
zastąpić takim programem shareware'owym DUNCE, który sam powtarza
dzwoniwnie i "klika" na OK w odpowiednich okienkach dialogowych.
                JZ

Re: Skrypt DialUp Windows95

#352

Author: Quickkwik
Date: Mon, 30 Dec 1996 12:08

5 lines
770 bytes

Jak Ktos lubi klopoty, zamiast najprostszych rozwiazan, to Jego sprawa...
-- 
Jacek Jedrzejowski alias Quickkwik
       `
<jacek@dom.zabrze.pl>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads