A. 易語言網路注冊登錄
三次握手就搞定了。
先把分上了,給你寫個!
剛才寫的代碼,不是很完善,.
.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
.判斷開始 (文件是否存在 (取運行目錄 () + 「\data.edb」) = 假)
寫到文件 (取運行目錄 () + 「\data.edb」, #初始資料庫)
.默認
.判斷結束
打開 (取運行目錄 () + 「\data.edb」, , , , , , )
.子程序 _按鈕1_被單擊
.判斷開始 (客戶1.連接 (「127.0.0.1」, 19730) = 真)
.判斷開始 (用戶編輯框.內容 ≠ 「」)
.判斷開始 (密碼編輯框.內容 ≠ 「」)
客戶1.發送數據 (「登陸|&|!!」 + 用戶編輯框.內容 + 「|&|!!」 + 密碼編輯框.內容)
.默認
.判斷結束
.默認
.判斷結束
.默認
.判斷結束
.子程序 _伺服器1_數據到達
.局部變數 返迴文本, 文本型
.局部變數 操作代碼, 文本型
返迴文本 = 到文本 (伺服器1.取回數據 ())
操作代碼 = 取文本左邊 (返迴文本, 9)
.判斷開始 (操作代碼 = 「登陸|&|!!」) ' 從這里開始判斷,操作是登陸還是注冊。這里判斷為登陸!
信息框 (返迴文本, 0, )
登陸 (返迴文本)
.默認
.判斷結束
.判斷開始 (操作代碼 = 「注冊|&|!!」) ' 這里是注冊操作的判斷條件
注冊 (返迴文本)
.默認
.判斷結束
.子程序 注冊
.參數 數據包, 文本型
.局部變數 數組變數, 文本型, , "0"
.局部變數 注冊用戶名, 文本型
.局部變數 注冊密碼, 文本型
.局部變數 注冊郵箱, 文本型
.局部變數 循環數, 整數型
.局部變數 可以注冊, 邏輯型
.局部變數 用戶名, 文本型
.局部變數 密碼, 文本型
.局部變數 郵箱, 文本型
可以注冊 = 假
循環數 = 取記錄數 ()
數組變數 = 分割文本 (數據包, 「|&|!!」, )
注冊用戶名 = 數組變數 [2]
注冊密碼 = 數組變數 [3]
注冊郵箱 = 數組變數 [4]
到首記錄 ()
.計次循環首 (循環數, )
用戶名 = 讀 (「用戶」)
密碼 = 讀 (「密碼」)
郵箱 = 讀 (「郵箱」)
.判斷開始 (用戶名 + 密碼 + 郵箱 ≠ 注冊用戶名 + 注冊密碼 + 注冊郵箱)
可以注冊 = 真
跳出循環 ()
.默認
跳過 ()
.判斷結束
.計次循環尾 ()
.判斷開始 (可以注冊 = 真)
加空記錄 ()
寫 (「用戶」, 注冊用戶名)
寫 (「密碼」, 注冊密碼)
寫 (「郵箱」, 注冊郵箱)
伺服器1.發送數據 (伺服器1.取回客戶 (), 「注冊成功!」, )
.默認
.判斷結束
.判斷開始 (可以注冊 = 假)
伺服器1.發送數據 (伺服器1.取回客戶 (), 「有了!」, )
.默認
.判斷結束
.子程序 登陸, , , 驗證登陸
.參數 待處理數據, 文本型
.局部變數 登陸用戶, 文本型
.局部變數 用戶密碼, 文本型
.局部變數 數組, 文本型, , "0"
.局部變數 循環, 整數型
.局部變數 資料庫_用戶, 文本型
.局部變數 資料庫_密碼, 文本型
.局部變數 記錄數, 整數型
.局部變數 以讀取數, 整數型
.局部變數 驗證標簽, 邏輯型
.局部變數 驗證郵箱, 文本型
.局部變數 資料庫_郵箱, 文本型
記錄數 = 取記錄數 ()
驗證標簽 = 假
數組 = 分割文本 (待處理數據, 「|&|!!」, )
登陸用戶 = 數組 [2]
用戶密碼 = 數組 [3]
到首記錄 ()
.計次循環首 (記錄數, 以讀取數)
資料庫_用戶 = 讀 (「用戶」)
資料庫_密碼 = 讀 (「密碼」)
資料庫_郵箱 = 讀 (「郵箱」)
.判斷開始 (資料庫_用戶 + 資料庫_密碼 = 登陸用戶 + 用戶密碼)
驗證標簽 = 真
跳出循環 ()
.默認
跳過 ()
.判斷結束
.計次循環尾 ()
.判斷開始 (驗證標簽 = 真)
伺服器1.發送數據 (伺服器1.取回客戶 (), 「登陸成功!」, )
.默認
伺服器1.發送數據 (伺服器1.取回客戶 (), 「登陸失敗!」, )
.判斷結束
.子程序 _客戶1_數據到達, , , 反饋登陸信息
.判斷開始 (到文本 (客戶1.取回數據 ()) = 「登陸成功!」)
信息框 (「來自伺服器的消息:登陸成功!」, 0, )
.默認
.判斷結束
.判斷開始 (到文本 (客戶1.取回數據 ()) = 「登陸失敗!」)
信息框 (「來自伺服器的消息:登陸失敗!」, 0, )
.默認
.判斷結束
' ==============================================以上為登陸操作,下面是注冊的=======================
.判斷開始 (到文本 (客戶1.取回數據 ()) = 「有了!」)
信息框 (「來自伺服器的消息:欲注冊的用戶已經存在!」, 0, )
.默認
.判斷結束
.判斷開始 (到文本 (客戶1.取回數據 ()) = 「注冊成功!」)
信息框 (「來自伺服器的消息:注冊成功!」, 0, )
.默認
.判斷結束
.子程序 _按鈕2_被單擊, , , 客戶1進行數據操作
.局部變數 注冊數據包, 文本型, , , 這是發送注冊信息的完整的變數
.局部變數 分割標簽, 文本型, , , 將幾個數據屬性(用戶、密碼、郵箱)分開以保證伺服器區別的特殊文本
.局部變數 用戶, 文本型
.局部變數 密碼, 文本型
.局部變數 郵箱, 文本型
分割標簽 = 「|&|!!」
.判斷開始 (編輯框3.內容 ≠ 「」)
用戶 = 編輯框3.內容
.判斷開始 (編輯框4.內容 ≠ 「」)
.判斷開始 (編輯框5.內容 ≠ 「」)
.判斷開始 (編輯框6.內容 ≠ 「」)
郵箱 = 編輯框6.內容
.判斷開始 (編輯框4.內容 = 編輯框5.內容)
密碼 = 編輯框4.內容
.默認
.判斷結束
.默認
.判斷結束
.默認
.判斷結束
.默認
.判斷結束
.默認
.判斷結束
注冊數據包 = 「注冊|&|!!」 + 用戶 + 分割標簽 + 密碼 + 分割標簽 + 郵箱
客戶1.連接 (「127.0.0.1」, 19730)
客戶1.發送數據 (注冊數據包)
下載地址
http://mail.qq.com/cgi-bin/ftnExs_download?k=&t=exs_ftn_download&code=d6d96612
B. 易語言怎麼做一個網站登錄器
1、打開易語言編輯軟體,然後新建一個Windows窗口程序
2、調整窗口大小並畫上一些組件,如圖。
版本2
.如果真(編輯框1.內容=「」)
信息框(「請輸入賬號!」,0,)
返回()
.如果真結束
.如果真(編輯框2.內容=「」)
信息框(「請輸入密碼!」,0,)
返回()
.如果真結束
.如果真(編輯框1.內容=「123456」且編輯框2.內容=「654321」)
信息框(「登陸成功!」,0,)
結束()
5、點擊上方三角形按鈕調試運行程序。
這樣只有賬號是 123456 且密碼是 654321才能登陸成功,否則沒辦法登陸成功的。
詳細圖文教程:
http://jingyan..com/article/5d6edee22a448699eadeeccb.html
易語言製作簡單的一個登陸器 網路經驗
C. 如何用易語言打開某個網站,並自動輸入賬號密碼登陸
樓主你好
可以用超文本瀏覽框打開,然後用精易模塊的網頁填表實現
精易模塊網頁填表的填表教程可以在網路上找~~~~~~~~~
D. 易語言如何實現軟體登錄網頁,並取網頁每個頁面的源代碼,取出想要的信息到超級列表框,求大哥幫幫忙!
先用POST取到登陸的那個提交信息,也就是賬號的信息,實現登陸!登陸後獲取網頁源碼! 然後在用正則取需要的信息,並顯示在超級列表框中!