Modem编程

开发平台：

Unix_Linux

unixlogin：源码内容

							# Generic UNIX login script.
# Can be used to automatically login to almost every UNIX box.
#
	# Some variables.
	set a 0
	set b a
	print Trying to Login..
	# Skip initial 'send ""', it seems to matter sometimes..
	goto skip
loop1:
	# Send loginname not more than three times.
	send ""
	inc a
skip:
	if a > 3 goto failed1
	expect {
		"ogin:"
		"assword:"	send ""
		"NO CARRIER"	exit
		timeout 60	goto loop1
	}
loop2:
	send "$(LOGIN)"
	# Send password not more than three times.
	inc b
	if b > 3 goto failed1
	expect {
		"assword:"
		"ogin:"		goto loop2
		timeout 60	goto loop2
	}
	send "$(PASS)"
	# If we don't get "incorrect" within 3 seconds, it's probably OK.
	# If they ask for a terminal, we are logged in. Tell them we're
	# using vt100.
	# If we get the bash prompt, send them the screen geometry.
	expect {
		"TERM="		goto wantterm
		"incorrect"	goto loop1
		"bash$"		goto screengeom		
		timeout 3 	break
		"asswd"		break
	}
	exit
wantterm:
	send "vt100"
	exit
screengeom:
	send "stty rows $(TERMLIN) columns 80"
	# If you use a display mode with some other width than 80 columns,
	# you may want to use the following format. 
	#send "stty rows $(TERMLIN) columns $(COLUMNS)"
	exit
failed1:
	print nLogin Failed (wrong password?)
	exit

						