源碼調(diào)用了易語(yǔ)言擴(kuò)展界面支持庫(kù)，使用易語(yǔ)言服務(wù)器組件實(shí)現(xiàn)了Telnet服務(wù)端應(yīng)用。

@愛(ài)三葉資源網(wǎng)源碼.版本?2

.支持庫(kù)?iext

.程序集?窗口程序集1

.程序集變量?telnet客戶,?telnet客戶,?,?"0"

.子程序?_服務(wù)器1_客戶進(jìn)入

.局部變量?臨時(shí)_telnet客戶,?telnet客戶

臨時(shí)_telnet客戶.地址?＝?服務(wù)器1.取回客戶?()

加入成員?(telnet客戶,?臨時(shí)_telnet客戶)

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(編輯框1.內(nèi)容?＋?#換行符),?)

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“用戶名：”),?)

.子程序?_服務(wù)器1_數(shù)據(jù)到達(dá)

.局部變量?用戶組ID,?整數(shù)型

.局部變量?來(lái)數(shù)據(jù)客戶,?文本型

.局部變量?數(shù)據(jù),?字節(jié)集

.局部變量?i,?整數(shù)型

.局部變量?temp,?整數(shù)型

.局部變量?temp2,?整數(shù)型

.局部變量?命令,?文本型

來(lái)數(shù)據(jù)客戶?＝?服務(wù)器1.取回客戶?()

數(shù)據(jù)?＝?服務(wù)器1.取回?cái)?shù)據(jù)?()

.計(jì)次循環(huán)首?(取數(shù)組成員數(shù)?(telnet客戶),?i)

.如果真?(telnet客戶?[i].地址?＝?來(lái)數(shù)據(jù)客戶)

用戶組ID?＝?i

跳出循環(huán)?()

.如果真結(jié)束

'?三葉資源網(wǎng)(www.sanye.cx)

.計(jì)次循環(huán)尾?()

.如果真?(數(shù)據(jù)?＝?{?8?})

返回?()

.如果真結(jié)束

.如果真?(數(shù)據(jù)?＝?{?13,?10?})

.如果真?(telnet客戶?[用戶組ID].是否驗(yàn)證通過(guò)?＝?假)

.判斷開(kāi)始?(telnet客戶?[用戶組ID].是否輸入用戶名?＝?假)

列表框1.加入項(xiàng)目?(“得到用戶名：”?＋?telnet客戶?[用戶組ID].命令,?)

temp?＝?驗(yàn)證用戶名?(telnet客戶?[用戶組ID].命令)

.如果真?(temp?＝?-1)

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“輸入用戶名錯(cuò)誤請(qǐng)重新輸入”?＋?#換行符?＋?“用戶名：”),?)

telnet客戶?[用戶組ID].命令?＝?“”

返回?()

.如果真結(jié)束

telnet客戶?[用戶組ID].用戶名?＝?temp

telnet客戶?[用戶組ID].是否輸入用戶名?＝?真

telnet客戶?[用戶組ID].命令?＝?“”

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“密碼：”),?)

.判斷?(telnet客戶?[用戶組ID].是否輸入密碼?＝?假)

列表框1.加入項(xiàng)目?(“得到密碼：”?＋?telnet客戶?[用戶組ID].命令,?)

.如果?(驗(yàn)證密碼?(telnet客戶?[用戶組ID].用戶名,?telnet客戶?[用戶組ID].命令)?＝?真)

telnet客戶?[用戶組ID].是否驗(yàn)證通過(guò)?＝?真

telnet客戶?[用戶組ID].是否輸入密碼?＝?真

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“成功登入您的權(quán)限是：”?＋?超級(jí)列表框1.取標(biāo)題?(telnet客戶?[用戶組ID].用戶名,?2)?＋?#換行符),?)

'?上面這條可以發(fā)送以下登入成功后的信息！

telnet客戶?[用戶組ID].名稱?＝?超級(jí)列表框1.取標(biāo)題?(telnet客戶?[用戶組ID].用戶名,?1)

返回命令?(服務(wù)器1.取回客戶?(),?telnet客戶?[用戶組ID].名稱)

temp2?＝?超級(jí)列表框2.插入表項(xiàng)?(,?到文本?(超級(jí)列表框2.取表項(xiàng)數(shù)?()),?,?,?,?)

超級(jí)列表框2.置標(biāo)題?(temp2,?1,?服務(wù)器1.取回客戶?())

超級(jí)列表框2.置標(biāo)題?(temp2,?2,?超級(jí)列表框1.取標(biāo)題?(telnet客戶?[用戶組ID].用戶名,?0))

超級(jí)列表框2.置標(biāo)題?(temp2,?3,?超級(jí)列表框1.取標(biāo)題?(telnet客戶?[用戶組ID].用戶名,?1))

超級(jí)列表框2.置標(biāo)題?(temp2,?4,?超級(jí)列表框1.取標(biāo)題?(telnet客戶?[用戶組ID].用戶名,?2))

'?三葉資源網(wǎng)(www.sanye.cx)

telnet客戶?[用戶組ID].命令?＝?“”

.否則

telnet客戶?[用戶組ID].是否輸入用戶名?＝?假

telnet客戶?[用戶組ID].命令?＝?“”

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“輸入信息錯(cuò)誤請(qǐng)重新輸入”?＋?#換行符?＋?“用戶名：”),?)

.如果結(jié)束

.默認(rèn)

.判斷結(jié)束

返回?()

.如果真結(jié)束

命令?＝?telnet客戶?[用戶組ID].命令

列表框1.加入項(xiàng)目?(“得到命令：”?＋?命令,?)

telnet客戶?[用戶組ID].命令?＝?“”

.如果真?(命令?＝?“hlep”)??'?再這個(gè)后面接著各種分析自己的命令和參數(shù)就可以了！~~~~~~

服務(wù)器1.發(fā)送數(shù)據(jù)?(服務(wù)器1.取回客戶?(),?到字節(jié)集?(“?????????shutdown?????關(guān)機(jī)命令?跟參數(shù)?秒”?＋?#換行符),?)

.如果真結(jié)束

返回命令?(服務(wù)器1.取回客戶?(),?telnet客戶?[用戶組ID].名稱)

返回?()

.如果真結(jié)束

telnet客戶?[用戶組ID].命令?＝?telnet客戶?[用戶組ID].命令?＋?到文本?(數(shù)據(jù))

.子程序?__啟動(dòng)窗口_創(chuàng)建完畢

.局部變量?temp,?整數(shù)型

temp?＝?超級(jí)列表框1.插入表項(xiàng)?(,?“user”,?,?,?,?)

超級(jí)列表框1.置標(biāo)題?(temp,?1,?“user”)

超級(jí)列表框1.置標(biāo)題?(temp,?2,?“1”)

temp?＝?超級(jí)列表框1.插入表項(xiàng)?(,?“admin”,?,?,?,?)

超級(jí)列表框1.置標(biāo)題?(temp,?1,?“admin”)

超級(jí)列表框1.置標(biāo)題?(temp,?2,?“2”)

temp?＝?超級(jí)列表框1.插入表項(xiàng)?(,?“super”,?,?,?,?)

超級(jí)列表框1.置標(biāo)題?(temp,?1,?“super”)

超級(jí)列表框1.置標(biāo)題?(temp,?2,?“3”)

'?三葉資源網(wǎng)(www.sanye.cx)

.子程序?驗(yàn)證用戶名,?整數(shù)型

.參數(shù)?用戶名,?文本型

.局部變量?i,?整數(shù)型

.計(jì)次循環(huán)首?(超級(jí)列表框1.取表項(xiàng)數(shù)?(),?i)

.如果真?(超級(jí)列表框1.取標(biāo)題?(i?－?1,?0)?＝?用戶名)

跳出循環(huán)?()

.如果真結(jié)束

.計(jì)次循環(huán)尾?()

.如果真?(超級(jí)列表框1.取標(biāo)題?(i?－?1,?0)?＝?用戶名)

返回?(i?－?1)

.如果真結(jié)束

返回?(-1)

.子程序?驗(yàn)證密碼,?邏輯型

.參數(shù)?用戶名ID,?整數(shù)型

.參數(shù)?密碼,?文本型

.如果真?(超級(jí)列表框1.取標(biāo)題?(用戶名ID,?1)?＝?密碼)

返回?(真)

.如果真結(jié)束

返回?(假)

.子程序?驗(yàn)證用戶,?邏輯型

.參數(shù)?用戶名,?文本型

.參數(shù)?密碼,?文本型

'?三葉資源網(wǎng)(www.sanye.cx)

.子程序?返回命令

.參數(shù)?用戶,?文本型

.參數(shù)?名稱,?文本型

服務(wù)器1.發(fā)送數(shù)據(jù)?(用戶,?到字節(jié)集?(名稱?＋?“@：”),?)

.子程序?__啟動(dòng)窗口_將被銷毀

.子程序?_服務(wù)器1_客戶離開(kāi)

.局部變量?i,?整數(shù)型

.計(jì)次循環(huán)首?(取數(shù)組成員數(shù)?(telnet客戶),?i)

.如果真?(telnet客戶?[i].地址?＝?服務(wù)器1.取回客戶?())

刪除成員?(telnet客戶,?i,?)

跳出循環(huán)?()

.如果真結(jié)束

'?三葉資源網(wǎng)(www.sanye.cx)

.計(jì)次循環(huán)尾?()

.計(jì)次循環(huán)首?(超級(jí)列表框2.取表項(xiàng)數(shù)?(),?i)

.如果真?(超級(jí)列表框2.取標(biāo)題?(i?－?1,?1)?＝?服務(wù)器1.取回客戶?())

超級(jí)列表框2.刪除表項(xiàng)?(i?－?1)

跳出循環(huán)?()

.如果真結(jié)束

.計(jì)次循環(huán)尾?()

文件下載

解壓密碼：

來(lái)源：三葉資源網(wǎng)，歡迎分享，公眾號(hào)：iisanye，(三葉資源網(wǎng)⑤群：21414575)

總結(jié)

以上是生活随笔為你收集整理的telnet服务端c 语言源码,Telnet服务端易语言源码的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。