易語言獲取網(wǎng)頁端的好友管理頁面信息導(dǎo)出QQ好友的代碼
更新時(shí)間：2018年11月27日 10:57:40 作者：易語言源碼貝貝吧
今天小編就為大家分享一篇關(guān)于易語言獲取網(wǎng)頁端的好友管理頁面信息導(dǎo)出QQ好友的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
全局變量表
.版本 2 .全局變量 Cookie_Overall, 文本型 .全局變量 BKN_Overall, 文本型
QQ快捷啟動(dòng)的代碼
.版本 2 .程序集 窗口程序集_窗口1 .子程序 _超文本瀏覽框1_跳轉(zhuǎn)完畢 .局部變量 Cookie, 文本型 .局部變量 Uin, 文本型 .局部變量 Skey, 文本型 Cookie ＝ 網(wǎng)頁_取Cookie (“qun.qq.com”) .如果真 (尋找文本 (Cookie, “p_skey”, , 假) ≠ -1) Uin ＝ 文本_取出中間文本 (Cookie, “p_uin=o”, “;”) Skey ＝ 文本_取出中間文本 (Cookie, “skey=”, “;”) BKN_Overall ＝ Get_BKN (Skey) Cookie_Overall ＝ Cookie _啟動(dòng)窗口.按鈕_快速登錄.標(biāo)題 ＝ “已登錄” _啟動(dòng)窗口.標(biāo)簽_QQ號(hào)碼.標(biāo)題 ＝ “QQ號(hào)碼：” ＋ 到文本 (到整數(shù) (Uin)) _啟動(dòng)窗口.圖片框1.圖片 ＝ Get_QQHEAD (Uin) 初始化 () 銷毀 () .如果真結(jié)束
獲取代碼
.版本 2 .程序集 程序集1 .子程序 Get_BKN, 文本型 .參數(shù) Skey, 文本型 .局部變量 基值, 整數(shù)型 .局部變量 計(jì)數(shù), 整數(shù)型 .局部變量 長度, 整數(shù)型 .局部變量 結(jié)果, 整數(shù)型 基值 ＝ 5381 計(jì)數(shù) ＝ 0 長度 ＝ 取文本長度 (Skey) .判斷循環(huán)首 (計(jì)數(shù) ＜ 長度) 基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代碼 (Skey, 計(jì)數(shù) ＋ 1) 計(jì)數(shù) ＝ 計(jì)數(shù) ＋ 1 .判斷循環(huán)尾 () 結(jié)果 ＝ 位與 (基值, 2147483647) 返回 (到文本 (結(jié)果)) .子程序 Get_QQHEAD, 字節(jié)集 .參數(shù) Uin, 文本型 .局部變量 Url, 文本型 Url ＝ “http://q4.qlogo.cn/g?b=qq&nk=” ＋ Uin ＋ “&s=140” 返回 (網(wǎng)頁_訪問 (Url)) .子程序 Get_Friend_List, 文本型 .參數(shù) Cookie, 文本型 .參數(shù) BKN, 文本型 .局部變量 Url, 文本型 .局部變量 Post, 文本型 .局部變量 Ret, 文本型 Url ＝ “http://qun.qq.com/cgi-bin/qun_mgr/get_friend_list” Post ＝ “bkn=” ＋ BKN Ret ＝ 編碼_Utf8到Ansi (網(wǎng)頁_訪問 (Url, 1, Post, Cookie)) 返回 (Ret)
QQ好友導(dǎo)出的代碼
此功能需要加載精易模塊5.6
.版本 2
.支持庫 iext
.支持庫 eExcel2000
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
圖片框1.圖片 ＝ #QQ頭像
.子程序 初始化
.局部變量 Ret, 文本型
.局部變量 Json, 類_json
.局部變量 i1, 整數(shù)型
.局部變量 i2, 整數(shù)型
.局部變量 Gname, 文本型
.局部變量 Name, 文本型
.局部變量 Uin, 文本型
.局部變量 s, 整數(shù)型
超級(jí)列表框1.全部刪除 ()
Ret ＝ Get_Friend_List (Cookie_Overall, BKN_Overall)
Json.解析 (Ret)
.計(jì)次循環(huán)首 (15, i1)
Gname ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].gname”)
.如果真 (Gname ＝ “”)
Gname ＝ “我的好友”
.如果真結(jié)束
.計(jì)次循環(huán)首 (Json.成員數(shù) (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems”), i2)
Name ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems[” ＋ 到文本 (i2 － 1) ＋ “].name”)
Uin ＝ Json.取通用屬性 (“result[” ＋ 到文本 (i1 － 1) ＋ “].mems[” ＋ 到文本 (i2 － 1) ＋ “].uin”)
s ＝ 超級(jí)列表框1.插入表項(xiàng) (, , , , , )
超級(jí)列表框1.置標(biāo)題 (s, 0, 到文本 (s ＋ 1))
超級(jí)列表框1.置標(biāo)題 (s, 1, Uin)
超級(jí)列表框1.置標(biāo)題 (s, 2, Name)
超級(jí)列表框1.置標(biāo)題 (s, 3, Gname)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.子程序 _按鈕_快速登錄_被單擊
載入 (窗口1, , 假)
.子程序 _按鈕_注銷登錄_被單擊
網(wǎng)頁_清除Cookie (“qun.qq.com”)
Cookie_Overall ＝ “”
BKN_Overall ＝ “”
按鈕_快速登錄.標(biāo)題 ＝ “快速登錄”
標(biāo)簽_QQ號(hào)碼.標(biāo)題 ＝ “QQ號(hào)碼：未登錄”
圖片框1.圖片 ＝ #QQ頭像
超級(jí)列表框1.全部刪除 ()
信息框 (“注銷登錄成功”, 0, )
.子程序 _按鈕_全部選中_被單擊
.局部變量 i, 整數(shù)型
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)
超級(jí)列表框1.置狀態(tài)圖片 (i － 1, 1)
.計(jì)次循環(huán)尾 ()
.子程序 _按鈕_全部不選_被單擊
.局部變量 i, 整數(shù)型
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)
超級(jí)列表框1.置狀態(tài)圖片 (i － 1, -1)
.計(jì)次循環(huán)尾 ()
.子程序 _按鈕_導(dǎo)出全部_被單擊
通用對(duì)話框1.初始目錄 ＝ 取運(yùn)行目錄 ()
通用對(duì)話框1.類型 ＝ 1
通用對(duì)話框1.默認(rèn)文件后綴 ＝ “.xls”
通用對(duì)話框1.過濾器 ＝ “Excel文件（*.xls）|*.xls|文本文件（*.txt）|*.txt”
通用對(duì)話框1.文件名 ＝ 文本_取右邊 (標(biāo)簽_QQ號(hào)碼.標(biāo)題, “QQ號(hào)碼：”)
.如果真 (通用對(duì)話框1.打開 ())
.如果真 (倒找文本 (通用對(duì)話框1.文件名, “.xls”, , 假) ≠ -1)
導(dǎo)出Excel (通用對(duì)話框1.文件名, 真)
.如果真結(jié)束
.如果真 (倒找文本 (通用對(duì)話框1.文件名, “.txt”, , 假) ≠ -1)
導(dǎo)出Txt (通用對(duì)話框1.文件名, 真)
.如果真結(jié)束
信息框 (“保存成功”, 0, )
.如果真結(jié)束
.子程序 _按鈕_導(dǎo)出選中_被單擊
通用對(duì)話框1.初始目錄 ＝ 取運(yùn)行目錄 ()
通用對(duì)話框1.類型 ＝ 1
通用對(duì)話框1.默認(rèn)文件后綴 ＝ “.xls”
通用對(duì)話框1.過濾器 ＝ “Excel文件（*.xls）|*.xls|文本文件（*.txt）|*.txt”
通用對(duì)話框1.文件名 ＝ 文本_取右邊 (標(biāo)簽_QQ號(hào)碼.標(biāo)題, “QQ號(hào)碼：”)
.如果真 (通用對(duì)話框1.打開 ())
.如果真 (倒找文本 (通用對(duì)話框1.文件名, “.xls”, , 假) ≠ -1)
導(dǎo)出Excel (通用對(duì)話框1.文件名, 假)
.如果真結(jié)束
.如果真 (倒找文本 (通用對(duì)話框1.文件名, “.txt”, , 假) ≠ -1)
導(dǎo)出Txt (通用對(duì)話框1.文件名, 假)
.如果真結(jié)束
信息框 (“保存成功”, 0, )
.如果真結(jié)束
.子程序 導(dǎo)出Txt
.參數(shù) 文件名, 文本型
.參數(shù) 全部, 邏輯型
.局部變量 i, 整數(shù)型
.局部變量 Uin, 文本型
.局部變量 Name, 文本型
.局部變量 Gname, 文本型
.局部變量 Str, 文本型
.如果真 (全部 ＝ 真)
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)
Uin ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 1)
Name ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 2)
Gname ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 3)
Str ＝ Str ＋ Uin ＋ “----” ＋ Name ＋ “----” ＋ Gname ＋ #換行符
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
.如果真 (全部 ＝ 假)
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)
.如果真 (超級(jí)列表框1.取當(dāng)前狀態(tài)圖片 (i － 1) ＝ 1)
Uin ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 1)
Name ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 2)
Str ＝ Str ＋ Uin ＋ “----” ＋ Name ＋ “----” ＋ Gname ＋ #換行符
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
寫到文件 (文件名, 到字節(jié)集 (Str))
.子程序 導(dǎo)出Excel
.參數(shù) 文件名, 文本型
.參數(shù) 全部, 邏輯型
.局部變量 Data_Head, 文本型, , "0"
.局部變量 i1, 整數(shù)型
.局部變量 i2
Excel程序1.創(chuàng)建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序號(hào) ＝ 1
Data_Head ＝ { “QQ號(hào)碼”, “QQ昵稱”, “QQ分組” }
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (Data_Head), i1)
Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (1)
Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (1)
Excel工作簿1.內(nèi)容格式 ＝ “@”
Excel工作簿1.內(nèi)容 ＝ Data_Head [i1]
Excel工作簿1.列寬 ＝ 20
.計(jì)次循環(huán)尾 ()
.如果真 (全部 ＝ 真)
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i2)
處理事件 ()
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (Data_Head), i1)
Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1)
Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1)
Excel工作簿1.內(nèi)容格式 ＝ “@”
Excel工作簿1.內(nèi)容 ＝ 超級(jí)列表框1.取標(biāo)題 (i2 － 1, i1)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
.如果真 (全部 ＝ 假)
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i2)
.如果真 (超級(jí)列表框1.取當(dāng)前狀態(tài)圖片 (i2 － 1) ＝ 1)
處理事件 ()
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (Data_Head), i1)
Excel工作簿1.首單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1)
Excel工作簿1.尾單元格 ＝ 字符 (97 ＋ i1 － 1) ＋ 到文本 (i2 ＋ 1)
Excel工作簿1.內(nèi)容格式 ＝ “@”
Excel工作簿1.內(nèi)容 ＝ 超級(jí)列表框1.取標(biāo)題 (i2 － 1, i1)
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
Excel工作簿1.保存 (文件名)
Excel工作簿1.關(guān)閉 ()
Excel工作簿1.釋放 ()
Excel程序1.退出 ()
Excel程序1.釋放 ()
.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型
.局部變量 按鈕, 整數(shù)型
按鈕 ＝ 信息框 (“是否關(guān)閉軟件”, #詢問圖標(biāo) ＋ #是否鈕, )
.如果真 (按鈕 ＝ #是鈕)
結(jié)束 ()
.如果真結(jié)束
返回 (假)
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
相關(guān)文章
今天小編就為大家分享一篇關(guān)于易語言取運(yùn)行目錄命令使用講解，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-11-11
在本篇文章里小編給大家分享了關(guān)于易語言制作國王的勇士輔助步驟教程，有興趣的朋友們可以學(xué)習(xí)下。2019-01-01
一步一步跟我學(xué)易語言之關(guān)于數(shù)組
今天小編就為大家分享一篇關(guān)于一步一步跟我學(xué)易語言之關(guān)于數(shù)組，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-10-10
今天小編就為大家分享一篇關(guān)于易語言實(shí)現(xiàn)PC端登陸微信的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-11-11
在本文中小編給大家整理的是關(guān)于易語言dll調(diào)用使用教程，需要的可以跟著學(xué)習(xí)下。2018-12-12
今天小編就為大家分享一篇關(guān)于易語言刪除數(shù)組重復(fù)成員的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-11-11
在本篇文章里小編給大家分享的是關(guān)于易語言數(shù)據(jù)庫的“取庫文件名”命令詳解內(nèi)容，需要的朋友們可以參考下。2020-03-03
易語言設(shè)置組合框內(nèi)容自動(dòng)排序的方法
今天小編就為大家分享一篇關(guān)于易語言設(shè)置組合框內(nèi)容自動(dòng)排序的方法，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-11-11
今天小編就為大家分享一篇關(guān)于易語言中易模塊的開發(fā)與使用簡介，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-10-10
今天小編就為大家分享一篇關(guān)于易語言從前或從后尋找指定字節(jié)集，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-11-11