Ngn ng lnh kch bn Dial-up

Ngn ng lnh kch bn Dial-up trong Dial-up Networking
Xem bai viet bang font Unicode

PCWorld VN 11/99

Tng quan

Chc bn  mt ln truy cp mng WAN hay Internet v u khng thot khi th tc u tin l thc hin kt ni vi my ch trc khi c th lm nhng vic tip theo. Thng thng qu trnh kt ni n gin v t ng - ch cn khai bo tn ngi s dng v mt khu l c th ng nhp vo mng. Nhng cng c nhiu nh cung cp dch v Internet (ISP: Internet Service Provider) v dch v trc tuyn (OS: Online Service) i hi bn phi nhp bng tay cc thng tin nh tn ngi s dng v mt khu khi thit lp mt kt ni. Cha ht, bn khng th kt ni vi mt s my ch nu khng cho chy mt file c bit  cung cp cho n nhng thng tin cn thit. y chnh l mt kch bn c vit bng ngn ng lnh kch bn DUN (Dial-Up Networking Scripting Command Language).  t ng ho qu trnh kt ni cng nh c th truy nhp vo c mt s my ch kh tnh, ti xin trnh by s lc di y v ngn ng ny.

Ngn ng lnh kch bn DUN l sn phm ca Microsoft, ra i cng vi Windows 95 v khng thay i trong cc phin bn 97, ri 98 sau ny. Kch bn DUN l mt file dng vn bn c cha mt chui cc lnh, tham s v biu thc c ISP hay OS yu cu  thit lp kt ni v s dng cc dch v. Bn c th s dng bt c trnh son tho vn bn no c th lu file di dng text thun tu  to file kch bn (chng hn nh Microsoft Notepad, NC Editor, DOS Editor). Cc file kch bn thng c lu di phn m rng l .scp  d phn bit. Mt khi  to file kch bn, bn c th lin kt n vo mt kt ni DUN bng cch chy Dial-Up Scripting Tool.

Cch thi hnh mt file lnh kch bn

Khi  to mt file kch bn DUN, bn c th chy n bng cch sau: t ca s My Computer.Dial-Up Networking, nhn phm phi chut vo kt ni m bn mun cho chy kch bn DUN, chn Properties. Trong ca s Properties, chn Scripting, g tn ng dn v tn file kch bn ca bn vo  Script file, bn cng c th s dng lnh Browse  tm file kch bn. Sau  chn OK. T nay tr i, mi khi bn s dng kt ni   kt ni vo mt ISP hay OS th cc lnh trong file kch bn DUN ca bn s c thi hnh mt cch t ng.

Cu trc c bn ca mt kch bn

Lnh l cc ch th c bn trong mt file kch bn DUN. Mt s lnh i hi cc tham s m t nhng g m lnh  phi thc hin.

Biu thc l s kt hp gia cc ton t v i s, cho ra mt kt qu. Biu thc c th c s dng nh l mt gi tr trong mi lnh. Biu thc c th cha cc php ton s hc, php so snh quan h v ghp chui.

Dng c bn ca mt file kch bn DUN nh sau:

;

; Mt ghi ch bt u bng du chm phy (;)

; v ko di n cui dng

;

proc main

;Mt kch bn c th c mi kiu bin

;v kiu lnh

cc khai bo bin

khi lnh

endproc

Mt kch bn DUN nht thit phi c th tc chnh, c trng bng t kho proc v kt thc bng t kho endproc.

Bn phi khai bo cc bin trc khi s dng cho cc lnh. Cc lnh sau  c thi hnh mt cch tun t theo ng th t m n c vit trong file kch bn DUN. Kch bn kt thc khi gp t kho endproc.

Cc bin

Kch bn DUN c th cha cc bin. Tn ca cc bin phi bt u bng mt k t ch ci hay du gch di (_) v c th cha chui k t thng, k t hoa, cc s v du gch di. Bn khng th s dng cc t dnh ring  lm tn bin.  c thm thng tin, hy xem bng lit k cc t dnh ring  cui bi vit ny.

Bn phi khai bo cc bin trc khi c th s dng chng. Khi khai bo mt bin, bn cng phi nh ngha kiu ca n. Bin ca mt s kiu ch c th cha cc gi tr cng kiu. Ba kiu bin sau y c s dng trong ngn ng lnh kch bn DUN:

Integer: Biu din cc s nguyn m v dng, v d 7, -12 hay 5698

String: Biu din chui cc k t trong ngoc kp, v d "Hello world !" hay "Enter your password:"

Boolean: Biu din cc gi tr lun l TRUE hay FALSE

Cc bin c gn gi tr bng cch s dng pht biu gn sau:

Bin = biu thc

Bin s nhn gi tr c tnh t biu thc.

Th d:

integer count = 5

;khai bo bin count c kiu integer v

;gn cho n tr khi ng l 5

integer timeout = (4*3)

;khai bo bin timeout c kiu integer

;v gn cho n gi tr 12 nhn c t

;biu thc (4*3)

integer i

boolean bDone = FALSE

string szIP = (getip 2);khai bo bin szIP

; c kiu l string v

;gn cho n tr ban u ly t lnh

;(getip 2)

set ipaddr szIP



Vic s dng cp du ngoc khng mang  ngha g c bit trong cc v d trn, n ch lm cho cu lnh thm r rng.

Cc bin h thng

Cc bin h thng c t bng cc cu lnh kch bn DUN hay c xc nh bng cc thng tin m bn a vo khi thit lp mt kt ni DUN. Cc bin h thng c thuc tnh ch c, c ngha l chng khng th thay i trong kch bn. Cc bin h thng bao gm:

$USERID (kiu: string): Bin nhn dng ngi s dng cho kt ni hin thi. Bin ny mang gi tr l tn user name trong hp thoi Connect To khi thc hin mt kt ni.

$PASSWORD (string): Mt khu cho kt ni hin thi. Bin ny mang gi tr password trong hp thoi Connect To khi thc hin kt ni.

$SUCCESS (boolean): Bin ny c t bi mt s lnh  ch ra rng lnh c c thc hin thnh cng hay khng. Kch bn c th ra quyt nh da trn gi tr ca bin ny.

$FAILURE (boolean): Bin ny c t bi mt s lnh  ch ra rng lnh c tht bi hay khng. Kch bn c th ra quyt nh da trn gi tr ca bin ny.

Cc bin trn y c th c s dng  nhng ni m mt biu thc c kiu tng t c s dng. Th d cu lnh sau:

transmit $USERID

l hp l bi v $USERID l bin c kiu string.

Chui k t

Ngn ng lnh kch bn DUN cho php s dng chui escape (escape sequences) v chui caret (caret translation) v c m t di y.

^char: Chui caret. Nu char l mt gi tr trong khong @' v _ th chui k t c dch thnh cc gi tr byte n trong khong t 0 n 31. Th d, ^M c chuyn thnh m xung dng carriage return.

Nu char l mt gi tr trong khong t "a" n "z" th chui k t c dch thnh cc byte n trong khong t 1 n 26.

Nu char c gi tr bt k khc, chui k t khng c x l.

<cr> K hiu xung dng carriage return

<lf> K hiu v u dng

\" Du nhy kp "

\^ Du m ^

\< Du <

\\ Du \

Th d:

transmit "^M" ;gi i k t xung dng Enter

transmit "Joe^M" ;gi i chui Joe v k t xung dng

transmit "<cr><lf>" ;gi i k t xung v v u dng

waitfor "<cr><lf>" ;ch nhn c k t xung v v u dng

Biu thc

Biu thc l s kt hp gia cc ton t v i s, cho ra mt kt qu. Biu thc c th s dng nh gi tr trong mi cu lnh.

Biu thc c th kt hp mi bin (kiu integer, string, boolean) vi mi ton t tnh cht v ton t kt hp nh trong cc bng di y. Mi ton t tnh cht u c  u tin cao nht.  u tin ca cc ton t kt hp c sp xp nh sau.

Cc ton t tnh cht:

- : du m

! : phn b ca mt gi tr

Cc ton t kt hp c lit k sau theo th t u tin ca chng. Cc ton t c  u tin cao hn c lit k trc:

* / : Nhn chia (integer)

+ - : Cng tr (integer, string (ch s dng vi ton t +))

<, >, <=, >= : Quan h (integer)

==, != :So snh (integer, string, boolean)

and : Lun l AND (boolean)

or : Lun l OR (boolean)

Th d:

count = -x ;gn phn m ca x cho count

yes = !FALSE ;gn tr TRUE cho bin yes

count = 3 + 5 * 40 ;gn tr 203 cho bin count

transmit "Hello" + " there" ;chuyn i chui "Hello there"

delay 24 / (7  1) ;tm dng trong vng 4 giy

Ghi ch

Tt c chui k t trn cng mt dng bt u bng mt du chm phy (;) u c b qua khi kch bn chy. Chui k t sau du chm phy c s dng  thm cc ghi ch vo kch bn.

Th d:

; y l mt ghi ch

transmit "hello" ; chuyn chui "hello" i

Cc t kha

Cc t kho c trng cho cu trc ca ngn ng lnh kch bn DUN. Khng ging nh cc cu lnh, chng khng thc hin mt hnh ng. Cc t kho ca ngn ng lnh kch bn DUN c lit k nh sau:

proc name: T kho ch ra s bt u ca mt th tc. Tt c kch bn phi c mt th tc chnh (proc main). Kch bn bt u thi hnh t th tc chnh v kt thc cng ti th tc chnh.

endproc: T kho ch ra s kt thc ca mt th tc. Khi mt kch bn thc hin n pht biu endproc ca th tc chnh, Dial-Up Networking s khi ng PPP (Point to Point Protocol: giao thc im i im) hay SLIP (Serial Line Internet Protocol: giao thc Internet dng ng ni tip)  hon thnh kt ni.

integer name [= value]: T kho dng  khai bo mt bin name c kiu integer. Bn c th s dng bt k biu thc hay bin s hc no  gn tr ban u cho bin ny.

string name [= value]: T kho dng  khai bo mt bin name c kiu string. Bn c th s dng bt k chui k t hay bin s hc no  gn tr ban u cho bin ny.

boolean name [= value]: T kho dng  khai bo mt bin name c kiu boolean. Bn c th s dng bt k biu thc hay bin boolean no  gn tr ban u cho bin ny.

Cc cu lnh

Tt c cc lnh l cc t dnh ring, c ngha l bn khng th khai bo cc bin c cng tn vi cc lnh. Cc lnh trong ngn ng lnh kch bn DUN:

delay nSeconds: To thi gian dng theo s giy c ch trong tham s nSeconds trc khi thi hnh tip lnh k tip trong kch bn.

Th d

delay 2 ;to thi gian dng 2 giy

delay x * 3 ;to thi gian dng x*3 giy

getip value: i  nhn a ch IP (Internet Protocol : giao thc Internet) t my tnh ang c truy cp. Nu ISP ca bn tr li cc a ch IP trong mt chui, khi ny ta s dng tham s value  qui nh a ch IP no trong chui c s dng.

Th d:

;nhn a ch IP th hai trong chui nhn v

set ipaddr getip 2 ;gn a ch IP u tin

;vo bin szAddress

szAddress = getip

goto label: Nhy n v tr trong kch bn c ch ra bi nhn label v tip tc thc hin cc lnh sau nhn label. Cc nhn label phi ng sau du ":"

Th d:

waitfor "Prompt>" until 10

if !$SUCCESS then

Goto BailOut ;nhy n nhn BailOut v

;thc hin cc lnh sau n

endif

transmit "bbs^M"

goto End

BailOut:

Transmit "^M"

halt: Ngng thc thi kch bn. Lnh ny khng loi b hp thoi Terminal. Bn phi nhn chut vo nt Continue  thit lp li kt ni. Bn khng th khi ng li kch bn.

if iu kin then
cc lnh

endif

Thi hnh mt chui cc lnh nu iu kin l TRUE

Th d:

;nu bin h thng $USERID l John th

if $USERID == "John" then

;chuyn i chui Johnny v k t xung dng

transmit "Johnny^M"

endif

Nhn: Ch ra v tr trong kch bn  nhy trong cu lnh goto. Nhn phi l mt tn thng nht trong sut kch bn v tun theo cch t tn ca bin.

set port databits 5/ 6 /7 /8: Thay i s lng bit trong mt byte c truyn v nhn trong sut kt ni. S lng bit c th thay i trong khong t 5 n 8. Nu bn khng s dng lnh ny, DUN s s dng cc thit lp ph hp i vi mi kt ni.

Th d:

set port databits 7

set port parity none | old | even | mark | space: Thay i s phi hp bnh ng cho cng trong qu trnh kt ni. Nu bn khng s dng lnh ny, DUN s s dng cc thit lp ph hp i vi mi kt ni

Th d:

set port parity even

set port stopbits 1 | 2: Thay i s lng bit dng cho cng trong qu trnh kt ni. S bit dng c th l 1 hay 2. Nu bn khng s dng lnh ny, DUN s s dng cc thit lp ph hp i vi mi kt ni

Th d:

set port stopbits 2

set screen keyboard on | off: Kch hot hay v hot kh nng nhp liu t bn phm trong ca s Terminal

Th d:

set screen keyboard on

set ipaddr string: Ch ra a ch IP ca trm lm vic trong qu trnh kt ni. Tham s string phi c dng a ch IP

Th d:

szIPAddress= "11.543.23 .13"

set ipaddr szIPAddress

set ipaddr "11.543.23.13"

set ipaddr getip

transmit string [,raw]: Gi cc k t trong chui string n my tnh t xa.

My tnh t xa s nhn bit chui escape v chui caret lc dch tr khi bn thm tham s raw vo cu lnh. Tham s raw rt hu dng khi chuyn i cc bin h thng $USERID v $PASSWORD c cha cc k t c bit m nu khng s dng tham s raw, cc k t ny s c dch nh cc chui escape v caret.

Th d:

transmit "slip" + "^M"

;chuyn i bin h thng $USERID vi nguyn

;dng a vo

transmit $USERID, raw

waitfor string[, matchcase] [then label

{, string [, matchcase] then label}]

[until time]: Ch cho n khi my tnh nhn c mt hay nhiu chui k t c qui nh trong chui string t my tnh t xa. Tham s string khng phn bit ch hoa v ch thng tr khi bn thm vo tham s matchcase.

Nu mt chui k t khp vi string c nhn, lnh then label c s dng v s nhy n v tr trong kch bn c nhn label.

Tham s tu chn until time c nh ngha l s thi gian ti a m my tnh phi ch  nhn c chui thch hp t my tnh t xa trc khi thi hnh lnh k tip trong kch bn. Nu khng c tu chn ny, my tnh ca bn s ch my tnh t xa cho n khi no chui thch hp c nhn.

Nu my tnh ca bn nhn c cc chui thch hp, bin h thng $SUCCESS c t l TRUE. Ngc li, n c t l FALSE nu thi gian ch  ht trc khi nhn c chui thch hp.

Th d:

waitfor "Login:";ch nhn c chui Login

waitfor "Password ?", matchcase

;ch nhn c chui Prompt trong vng 10

;giy

waitfor "Prompt>" until 10

waitfor

"Login:" then DoLogin

"Password?"then DoPassword

"BBS:" then DoBBS

"Other:" then DoOther

until 10

while iu kin do

cc lnh

endwhile

Thi hnh cc lnh cho n khi iu kin l FALSE.

Th d:

integer count = 0

while count < 4 do

transmit "^M"

waitfor "Login:" until 10

if $SUCCESS then

goto DoLogin

endif

count = cont +1

endwhile

Cc t dnh ring

Cc t sau y c ngn ng lnh kch bn DUN s dng nh l cc t dnh ring; bn khng th s dng chng  t tn cho cc bin.

and boolean databits delay do endif endproc endwhile even FALSE getip goto halt if integer idaddr keyboard mark on or parity port proc raw screen set space stopbits string then transmit TRUE until waitfor while

Xy dng ng dng

Nh vy l chng ta  kho st hu nh ton b ngn ng lnh kch bn DUN. Ngn ng ny khng ch pht huy th mnh t ng ho vic ni kt m trong mt s trng hp n l th khng th thiu i vi vic ni kt vo mt s ISP.  Vit Nam, c nhng my ch khi kt ni vo chng, bn phi bt buc s dng ngn ng lnh kch bn DUN. Th d nh my ch ca VDC t ti Vng Tu.  kt ni vo my ch ny, bn phi chy mt file c tn X25.SCP y b him v nu bn hi cc qun mng vin v chng th chc chn ch nhn c s im lng! (ti  tng hi). Nhng thc ra file ny ch cha mt s lnh kch bn n gin sau:

proc main

delay 2

transmit "@D^M"

waitfor "NAL="

transmit "^M"

waitfor "@"

transmit "97340046^M"

delay 1

endproc

Chc khi cn thuyt minh cc bn cng hiu c  ngha ca tng cu lnh trn y.

Sau khi nm vng cch s dng ngn ng lnh kch bn DUN (ti ngh l n d hn nhiu so vi cc ngn ng khc), ti tin rng cc bn s vit c nhng file kch bn DUN  t ng ho cng vic kt ni ca mnh.

Nguyn Tt V

T26 Hong Hoa Thm, P.13, Q.Tn Bnh TP. H Ch Minh

Tel : (8) 842 8492

E-mail: genhitsuu@yahoo.com
Theo Dial-Up Scripting Command Language for DUN scripting support- Microsoft Corp. (1995)

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com