易語言怎么做一個網(wǎng)站登錄器？利用服務(wù)器控件和客戶控件可以做出一個局域網(wǎng)的登錄、控制系統(tǒng)源碼如下： .版本 2.支持庫 sock.程序集 窗口程序集1.程序集變量 用戶， 文本型.程序集變量 密碼， 文

易語言怎么做一個網(wǎng)站登錄器？

利用服務(wù)器控件和客戶控件可以做出一個局域網(wǎng)的登錄、控制系統(tǒng)源碼如下： .版本 2

.支持庫 sock.程序集 窗口程序集1

.程序集變量 用戶， 文本型

.程序集變量 密碼， 文本型.子程序 __啟動窗口_創(chuàng)建完畢

.局部變量 IP， 文本型， ， "0"IP ＝ 取本機IP ()

編輯框1.內(nèi)容 ＝ IP [1].子程序 _服務(wù)器_數(shù)據(jù)到達

.局部變量 數(shù)據(jù)， 文本型數(shù)據(jù) ＝ 刪首尾空 (到文本 (服務(wù)器.取回數(shù)據(jù) ()))

用戶 ＝ 取文本左邊 (數(shù)據(jù)， 尋找文本 (數(shù)據(jù)， “#”， ， 真) － 1)

密碼 ＝ 取文本右邊 (數(shù)據(jù)， 取文本長度 (數(shù)據(jù)) － 尋找文本 (數(shù)據(jù)， “#”， ， 真))

信息框 (“有用戶登錄:” ＋ #換行符 ＋ 用戶 ＋ #換行符 ＋ 密碼， 0， )

.子程序 _按鈕1_被單擊客戶.連接 (編輯框1.內(nèi)容， 19730)

客戶.發(fā)送數(shù)據(jù) (到字節(jié)集 (編輯框2.內(nèi)容 ＋ “#” ＋ 編輯框3.內(nèi)容))

.子程序 _服務(wù)器_客戶進入輸出調(diào)試文本 (服務(wù)器.取回客戶 ())