※ 引述《[email protected] (☆ 火 炎 焱 燚 ☆)》之銘言：
> #!/usr/bin/expect
> # kkcity.expect - user rwx ONLY
> spawn telnet "-8" "bbs.kkcity.com.tw"
> expect {
> "Connection" { exit }
> "輸入代號：" {
> send "vngirl\n"
> expect "輸入密碼："
> send "password\n"
> # \n = Enter
> send "\n\n\n\nf\n"
> }
> }
> # send out the NULL character every 60 secs
> interact timeout 60 { send -null }
> exit
> 有人可以跟我說明一下嗎＠＠？
我之前有查到一個作法 給你參考
spawn sh -c "exec /usr/bin/telnet -8 ptt.cc"
interact timeout 450 { send " " }
--
※ Origin: 精靈之城<bbs.ntnu.edu.tw> ◆ From: wood.ite.ntnu.edu.tw
> -------------------------------------------------------------------------- <
發信人: [email protected] (我心中的新西多摩), 看板: FreeBSD
標 題: Re: [問題] 一個FreeBSD的問題
發信站: 未來最舊小棧 (Sun Oct 24 23:52:21 2004)
轉信站: ptt!ctu-reader!ctu-peer!Spring!news.nctu!news.ntu!OfO
※ 引述《[email protected] (☆ 火 炎 焱 燚 ☆)》之銘言：
: 我用FreeBSD連BBS時（版本5.2.1）
: 老是因為閒置過長而被強制斷線
: 不知道有沒有辦法寫一個類似防呆裝置的小程式
: 再使用telnet連線時可以用的
: 有人有提供一個給我
: 可是我並不是很瞭解他是怎麼寫的
: #!/usr/bin/expect
: # kkcity.expect - user rwx ONLY
: spawn telnet "-8" "bbs.kkcity.com.tw"
^^^^^^^^^^^^^^^^^ -> (1)
: expect {
: "Connection" { exit }
: "輸入代號：" {
: send "vngirl\n"
^^^^^^ -> (2)
: expect "輸入密碼："
: send "password\n"
^^^^^^^^ -> (3)
: # \n = Enter
: send "\n\n\n\nf\n"
: }
: }
: # send out the NULL character every 60 secs
: interact timeout 60 { send -null }
: exit
: 有人可以跟我說明一下嗎＠＠？
只要有點程式的基礎, 還有會查英文單字,
應該不難看懂它在寫什麼吧!!
如果你只是要改成連別的站,
可以把上面 (1)、(2)、(3) 這三個地方改成其他站的位置、帳號、密碼,
這樣就可以用了.....
關於 expect, 你可以參考下面網址：
http://freebsd.ntu.edu.tw/13/7/14.html
--
◢█◣▏◤█◣ ◆未來最舊小棧 Oldest Future Object
█●▇█▁˙█ ◆通訊頻率 OfO.twbbs.org
◥█◢▉◥█◤ ◆來源座標 203-67-213-153.adsl.dynamic.seed.net.tw
> -------------------------------------------------------------------------- <
發信人: [email protected] (我心中的新西多摩), 看板: FreeBSD
標 題: Re: [問題] 一個FreeBSD的問題
發信站: 未來最舊小棧 (Mon Oct 25 00:36:43 2004)
轉信站: ptt!ctu-reader!ctu-peer!Spring!news.nctu!news.ntu!OfO
※ 引述《[email protected] (☆ 火 炎 焱 燚 ☆)》之銘言：
: ※ 引述《[email protected] (歡迎加入社區服務隊)》之銘言：
: > 我之前有查到一個作法 給你參考
: > spawn sh -c "exec /usr/bin/telnet -8 ptt.cc"
: > interact timeout 450 { send " " }
: 這是在主機端才可以用的指令嗎？
: 輸入結果出現
: spawn: Command not found.
搞了半天, 原來你不知道要把它寫成一個檔案,
那麼你就輸入下面指令吧：
cat > kkcity.sh
(貼上你之前的程式)
(按 Ctrl+D)
chmod a+x kkcity.sh
以後用 ./kkcity.sh 就可以了.....
--
◢█◣▏◤█◣ ◆未來最舊小棧 Oldest Future Object
█●▇█▁˙█ ◆通訊頻率 OfO.twbbs.org
◥█◢▉◥█◤ ◆來源座標 203-67-213-153.adsl.dynamic.seed.net.tw
> -------------------------------------------------------------------------- <
發信人: [email protected] (煩), 看板: FreeBSD
標 題: Re: [問題] 一個FreeBSD的問題
發信站: 無名小站 (Mon Oct 25 23:42:02 2004)
轉信站: ptt!ctu-reader!ctu-peer!news.nctu!netnews.csie.nctu!wretch
※ 引述《[email protected] (☆ 火 炎 焱 燚 ☆)》之銘言：
> ※ 引述《[email protected] (獅子男)》之銘言：
> > 你裝 expect 了沒?
> > Port: expect-5.42.1
> > Path: /usr/ports/lang/expect
> > Info: A sophisticated scripter based on tcl/tk
> > Maint: [email protected]
> > B-deps: expat-1.95.8 fontconfig-2.2.3,1 freetype2-2.1.7_3 imake-6.7.0_2
> > perl-5.8.5 pkgconfig-0.15.0_1 tcl-8.4.6_1,1 tk-8.4.6,1 xorg-libraries-6.7.0_2
> > R-deps: expat-1.95.8 fontconfig-2.2.3,1 freetype2-2.1.7_3 imake-6.7.0_2
> > perl-5.8.5 pkgconfig-0.15.0_1 tcl-8.4.6_1,1 tk-8.4.6,1 xorg-libraries-6.7.0_2
> expect沒裝.....
> 如果我想安裝套件
> 而書本的光碟沒有附贈的話
> 那該怎麼安裝套件呢？
可以參考這個網頁
http://std1.mis.yzu.edu.tw/~s882617/FNP2/faq/ports_pkg.php
順便翻翻FreeBSD handbook...多查查相關資料吧....
http://netlab.cse.yzu.edu.tw/~statue/freebsd/handbook/index.html
--
夫兵者不祥之器物或惡之故有道者不處君子居則貴左用兵則貴右兵者不祥之器非君子
之器不得已BBS telnet://wretch.twbbs.org 開個人板 超快 不用連署得志於天下
矣吉事尚左凶事尚右偏將軍居左上將軍居右言以喪禮處之殺人之眾以哀悲泣之戰勝以
喪禮處之道常無名樸雖小天下莫能臣侯王若能守之萬物將自賓天地相合以降甘露民莫
之令而自均始制有名名亦既有夫亦將知止知止可以不殆譬道wood.ite.ntnu.edu.tw海
> -------------------------------------------------------------------------- <
發信人: [email protected] (天涯明月心), 看板: FreeBSD
標 題: Re: [問題] 一個FreeBSD的問題
發信站: 天之驕子 (Mon Oct 25 23:50:56 2004)
轉信站: ptt!ctu-reader!ctu-gate!news.nctu!news.ncu!YKVS
※ 引述《[email protected] (☆ 火 炎 焱 燚 ☆)》之銘言：
: ※ 引述《[email protected] (獅子男)》之銘言：
: > 你裝 expect 了沒?
: > Port: expect-5.42.1
: > Path: /usr/ports/lang/expect
: > Info: A sophisticated scripter based on tcl/tk
: > Maint: [email protected]
: > B-deps: expat-1.95.8 fontconfig-2.2.3,1 freetype2-2.1.7_3 imake-6.7.0_2
: > perl-5.8.5 pkgconfig-0.15.0_1 tcl-8.4.6_1,1 tk-8.4.6,1 xorg-libraries-6.7.0_2
: > R-deps: expat-1.95.8 fontconfig-2.2.3,1 freetype2-2.1.7_3 imake-6.7.0_2
: > perl-5.8.5 pkgconfig-0.15.0_1 tcl-8.4.6_1,1 tk-8.4.6,1 xorg-libraries-6.7.0_2
: expect沒裝.....
: 如果我想安裝套件
: 而書本的光碟沒有附贈的話
: 那該怎麼安裝套件呢？
勉為其難，用網路裝吧！
ftp://ftp2.tw.freebsd.org/pub3/FreeBSD/i386/
ftp://ftp2.tw.freebsd.org/pub/FreeBSD/releases/i386
ftp://freebsd.nsysu.edu.tw/FreeBSD/releases/i386/
ftp://freebsd.csie.nctu.edu.tw/pub/releases/i386
真的不想，也有.ISO在裡面。
--
※Post by sheng from 218-168-4-221.dynamic.hi
◢◣ ◆ 臺灣第一所縣立高職 ◆ 臺北縣立鶯歌高職－陶瓷薪傳 ______┌┬╮
◢◥◣ 天之驕子 BBS ˙ bbs.ykvs.tpc.edu.tw (163.20.163.9) |▉|▉|▉
╪╪╪,._.,~`~*-,._.,-*~`^`~*-,._.._.,-*~`^'~*-,._.._.,-*~~*-,. ═●═●═┘`~*