發信人: lintw001@tpts1.seed.net.tw (ABCD), 信區: winsock
標 題: 上 Hinet 免輸入 ID & Password 方法
發信站: SEEDNET InterNetNews News System (Tue Sep 24 10:22:18 1996)
轉信站: TKU-BBS!netnews.tku!news!spring!voyager.iii.org.tw!news
Origin: 139.175.48.25
;==============================================================================
; 此 Script 程式是修改 Windows 95 內所附的 PPPMENU.SCP 程式, 可在
Win95 下直接
; 撥接 Hinet 上網而不須再跳到 Terminal Mode 去輸入 ID & Password ,
經我測試多
; 次都沒問題,您可以直接套用在您的 Hinet 上省去不少痲煩.
;
; Andrew Lin <lintw001@tpts1.seed.net.tw> 9/24/1996
;==============================================================================
; Username & Password 設定方法 : 我的電腦 -=> 撥號網路 -=> 新的聯線
-=> 完成
; 新的聯線 -=> 使用者名稱 "Username"
; -=> 密碼 "Password"
; -=> 儲存密碼請打勾
;==============================================================================
; Script File 設定方法 : 請先將本文存檔為 Hinet.scp 放在
; C:\PROGRAM FILE\ACCESSORIES\HINET.SCP
; 開始 > 程式集 > 附屬應用程式 > 撥號 Script 編輯工具
; 新的聯線點一下 > 瀏覽 > Hinet.scp > 套用 > 結束
; 此時你可在 新的聯線 上點兩下開使聯線,
您將會看到所有輸入都自動執行輕輕鬆鬆的
; 就聯上 Hinet 啦.
;******************************************************************************
proc main ;Script 進入點
integer nTries = 3 ;主機沒回應重試三次
string szLogin = "username:" ;尋找輸入 username 的字串
integer nLoginTimeout = 3 ;Timeout = 3
string szPW = "password:" ;尋找輸入 password 的字串
integer nPWTimeout = 3 ;Timeout = 3
string szPrompt = "===>" ;尋找主選單的輸入字串 "===>"
string szConnect = "1^M" ;主選單中選 1 (PPP User Server)
boolean bUseSlip = FALSE ;不要顯示 IP 由電腦自行取得, Set TRUE 為自定
IP
;==============================================================================
while 0 < nTries do ;\
waitfor szLogin then DoLogin ; -=> 等待主機回應, 如回應則跳到
DoLogin
until nLoginTimeout ;/ 如沒得到回應則跳到 Bailout
TryAgain: ;/
transmit "^M" ;/
nTries = nTries - 1 ;/
endwhile ;/
goto BailOut ;/
;==============================================================================
DoLogin: ;主機回應了,開始輸入
transmit $USERID, raw ;輸入使用者 ID (Username)
transmit "^M" ;輸入 "Enter"
waitfor szPW until nPWTimeout ;\
if FALSE == $SUCCESS then ; \ ==> 等待輸入密碼 "Password"
goto TryAgain ; /
endif ;/
transmit $PASSWORD, raw ;輸入蜜碼
transmit "^M" ;輸入 "Enter"
waitfor szPrompt ;\
transmit szConnect ; \
if bUseSlip then ; -=> 等待主選單中的 "===>" 字串出現後輸入
set ipaddr getip 2 ; / "1" 的選項
endif ;/
goto Done ;全部輸入完成跳到 Down 結束 Script 程式
;==============================================================================
BailOut: ;\
set screen keyboard on ; -=> 主機沒回應程式跳到此結束
halt ;/
;==============================================================================
Done:
endproc
以上修改後剩下程式部份....
但還是不能用耶....
不知道可否指點一下那邊出錯誤...
謝謝...
● Origin : 雲技藍天使 BBS <bbs.yuntech.edu.tw> [FROM: 140.125.251.101]