# Compuserve Login Skript

Gültig für: Windows 95 | Windows 98 | Windows ME | Windows NT | Windows 2000 | Windows XP

;-------------- Anfang

proc main

set port databits 7

set port parity even

delay 2

transmit "<cr>"

waitfor "ame:"

transmit "CIS<cr>"

waitfor "ID:"

transmit $USERID

transmit "/GO:PPPCONNECT<cr>"

waitfor "word:"

transmit $PASSWORD

transmit "<cr>"

waitfor "PPP"

set port databits 8

set port parity none

endproc

;-------------- Ende

Skript für eine RAS-Verbindung zu CompuServe.

Die Adressen:

149.174.211.5 DNS-Adresse

149.174.213.5 DNS-Adresse

Skript:

;***********************************************

;* Login-Skript für die Einwahl ins

;* Internet über Datex-J und Compuserve

;* (Telefonnummer in Deutschland: 01910)

;***********************************************

;* Version 2.1 (c) 1996 Wolfgang Wirth

;* Letzte Änderung am 22:06 19.09.96

;* E-Mail : 71333.1421@compuserve.com

;***********************************************

proc main

string ErrStr

;***********************************************

;*** Dial-up Port auf 8n1 setzen

set port databits 8

set port parity none

;***********************************************

;*** Hier befinden wir uns auf der T-Online

; Startseite. Als erstes muss ein Dezimalpunkt

; mit <CR> geschickt werden, um auf einen

; "Text-Dekoder" hinzuweisen.

;

delay 3

transmit ".^M"

;***********************************************

;*** Hier befinden wir uns auf der T-Online

; Login-Seite. Wenn das Wort "kennung"

; erscheint, wird die Compuserve-

; Kennung geschickt. Ein <CR> ist nicht

; nötig, da die Seite automatisch nach

; der Kennungseingabe wechselt.

;

waitfor "kennung" until 30

if !$SUCCESS then

Errstr="Datex-J-Kennung"

goto fehler

endif

transmit "000255975978"

;***********************************************

;*** Hier befinden wir uns auf der Compuserve

; Login-Seite. Punkt "2" steht für Login von

; Mitgliedern. Ein <CR> wird geschickt, um

; auch die nachfolgende Seite zu quittieren.

;

transmit "2^M"

;***********************************************

;*** Datex-J haben wir jetzt passiert. Jetzt stehen

; wir bei Compuserve auf der Matte. Das System

; fragt hier nach dem Host-Namen, der in unserem

; Fall "CIS" lautet und mit einem <CR> abgeschlos-

; sen werden muss.

;

waitfor "Host Name:" until 30

if !$SUCCESS then

Errstr="Compuserve Host-Name"

goto fehler

endif

transmit "CIS^M"

;***********************************************

;*** Jetzt muss unsere CIS-Anwenderkennung übermittelt

; werden. Es wird die Systemvariable $USERID benutzt,

; die den entsprechenden Eintrag aus dem Anwahl-

; Dialog enthält. Die ID wird mit dem Parameter

; RAW gesendet, damit keine Steuer- bzw. So nder-

; zeichenübersetzung auf dem Host stattfindet.

; Das Kommando für einen PPP-Connect kann man gleich

; an die ID mitanhängen. Das ganze muss mit einem <CR>

; abgeschlossen werden.

;

waitfor "User ID:" until 30

if !$SUCCESS then

Errstr="Compuserve Anwenderkennung"

goto fehler

endif

transmit $USERID, raw

transmit "/go:pppconnect^M"

;***********************************************

;*** Mit der Übermittlung des Passwortes wird das Login

; abgeschlossen. Es wird die Systemvariable $PASSWORD

; benutzt, die den entsprechenden Eintrag aus dem

; Anwahl-Dialog enthält. Das Passwort wird mit dem

; Parameter RAW gesendet, damit keine Steuer- bzw.

; Sonderzeichenübersetzung auf dem Host stattfindet.

; Das ganze muss mit einem <CR> abgeschlossen werden.

;

waitfor "Password:" until 30

if !$SUCCESS then

Errstr="Compuserve Anwenderpasswort"

goto fehler

endif

transmit $PASSWORD, raw

transmit "^M"

;***********************************************

;*** Damit ist das Login abgeschlossen. Wir warten

; jetzt nur noch auf eine kleine Quittierung vom

; System

;

waitfor "One moment please" until 60

;***********************************************

;*** Hurra - Wir stehen im Internet! Das Skript endet

; hier und das Login-Fenster schließt sich.

;

goto ende

;***********************************************

;*** Mist! Ein Fehler ist aufgetreten.

; Der Grund wird über Modem-Echo ins

; Verbindungsfenster geleitet

;

fehler:

transmit "+++" ; Modem in Kommandomodus schicken

delay 3 ; Kommandomoduszwangspause

waitfor "ok", "0" until 5 ; Auf OK oder 0 warten

transmit "ate1^M" ; Modem: Echo ein

waitfor "ok", "0" until 2 ; Auf OK oder 0 warten

; Fehlerinformation senden (kommt als Echo ins Fenster)

transmit "*** VERBINDUNGSFEHLER:^M^J"

transmit "*** " + ErrStr + " wurde nicht angefordert^M^J"

transmit "*** Das Skript wird daher abgebrochen.^M^J"

delay 3 ; Anwender Zeit zum Lesen lassen

transmit "ath0^M" ; Modem soll auflegen

delay 10 ; Zeit für System zum Gen. des

halt ; Meldungsfensters

;***********************************************

ende:

endproc

WinFAQ: Startseite | WinFAQ: HTMLMenü | WinFAQ: Java Version

Der Tipp enthält einen Fehler oder Sie haben noch eine Ergänzung dafür? Schreiben Sie uns über die Feedback-Seite an: Feedback-Formular

URL: http://www.winfaq.de/faq_html/Content/tip0000/tip0088.htm

WinFAQ ® Version 9.01 Copyright © 1996/2016 by Frank Ullrich