易語言實(shí)現(xiàn)PC端登陸微信的代碼

更新時間：2018年11月28日 14:08:54 作者：易語言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語言實(shí)現(xiàn)PC端登陸微信的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 timeGetTime, 長整數(shù)型, "winmm.dll", "timeGetTime"
.DLL命令 GetLocalTime, , "kernel32", "GetLocalTime"
  .參數(shù) 時間格式, 系統(tǒng)時間_

全局變量表

.版本 2
.全局變量 scan, 文本型
.全局變量 ticket, 文本型
.全局變量 r, 文本型
.全局變量 tid, 文本型

常量數(shù)據(jù)表

.版本 2
.常量 常量1, "<文本長度: 50>", , window.QRLogin.code = 200; window.QRLogin.uuid = "
.常量 常量2, "<文本長度: 97>", , BaseRequest:{DeviceID:”x”,Sid: “xx”,Skey: “xxx”,Uin: “xxxx”,}
.常量 常量3, "<文本長度: 72>", , {"BaseRequest":{"Uin":"UIN","Sid":"SID","Skey":"SKEY","DeviceID":"E"}}

自定義數(shù)據(jù)類型表

.版本 2
.數(shù)據(jù)類型 系統(tǒng)時間_, , SYSTEMTIME
  .成員 年, 短整數(shù)型, , , wYear
  .成員 月, 短整數(shù)型, , , wMonth
  .成員 星期, 短整數(shù)型, , , wDayOfWeek
  .成員 日, 短整數(shù)型, , , wDay
  .成員 小時, 短整數(shù)型, , , wHour
  .成員 分, 短整數(shù)型, , , wMinute
  .成員 秒, 短整數(shù)型, , , wSecond
  .成員 毫秒, 短整數(shù)型, , , wMilliseconds

系統(tǒng)時間

.版本 2
.程序集 程序集1
.子程序 時間, 文本型
.局部變量 時間b, 系統(tǒng)時間_
GetLocalTime (時間b)
返回 (到文本 (時間b.年) ＋ “-” ＋ 到文本 (時間b.月) ＋ “-” ＋ 到文本 (時間b.日) ＋ “ ” ＋ 取文本右邊 (到文本 (時間b.星期 ＋ 100), 2) ＋ “ ” ＋ 到文本 (時間b.小時) ＋ “:” ＋ 到文本 (時間b.分) ＋ “:” ＋ 到文本 (時間b.秒) ＋ “.” ＋ 到文本 (時間b.毫秒))

PC端微信登陸的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫 internet
.支持庫 spec
.支持庫 EThread
.程序集 窗口程序集_啟動窗口
.程序集變量 bid, 文本型
.程序集變量 Cookies, 文本型
.程序集變量 skey, 文本型
.程序集變量 sid, 文本型
.程序集變量 uin, 文本型
.程序集變量 源碼, 文本型
.程序集變量 新源碼, 文本型
.程序集變量 pass_ticket, 文本型
.程序集變量 url, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
tid ＝ “https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-in%2Fwebwxnewloginpage&fun=new&lang=zh_CN”
源碼 ＝ 網(wǎng)頁_訪問S (tid)
bid ＝ 文本_取出中間文本 (源碼, #常量1, #引號)
圖片框1.圖片 ＝ HTTP讀文件 (“https://login.weixin.qq.com/qrcode/” ＋ bid)
時鐘1.時鐘周期 ＝ 1000
.子程序 _時鐘1_周期事件
.局部變量 心, 文本型
.局部變量 文本, 文本型
.局部變量 狀態(tài)碼, 文本型
.局部變量 句柄, 整數(shù)型
心 ＝ 網(wǎng)頁_訪問S (“https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?uuid=” ＋ bid ＋ “&tip=1&_=” ＋ 時間 (), , , , Cookies)
文本 ＝ 文本_取出中間文本 (心, “code=”, “;”)
.如果真 (文本 ＝ “201”)
  狀態(tài)碼 ＝ 文本_取出中間文本 (心, “code=”, “;”)
  _啟動窗口.標(biāo)題 ＝ “已掃描，未登錄！”
.如果真結(jié)束
.如果真 (文本 ＝ “200”)
  url ＝ 文本_取出中間文本 (心, #引號, #引號)
  ticket ＝ 文本_取出中間文本 (url, “ticket=”, “@”)
  scan ＝ 文本_取右邊 (url, “scan=”, )
  時鐘1.時鐘周期 ＝ 0
  調(diào)試輸出 (url)
  _啟動窗口.標(biāo)題 ＝ “已登錄！”
  信息框 (“測試成功”, 0, )
  啟動線程 (&處理, , 句柄)
.如果真結(jié)束
.如果真 (文本 ＝ “408”)
  tid ＝ “https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-in%2Fwebwxnewloginpage&fun=new&lang=zh_CN”
  源碼 ＝ 網(wǎng)頁_訪問S (tid)
  bid ＝ 文本_取出中間文本 (源碼, #常量1, #引號)
  圖片框1.圖片 ＝ HTTP讀文件 (“https://login.weixin.qq.com/qrcode/” ＋ bid)
.如果真結(jié)束
調(diào)試輸出 (文本)
.子程序 處理
.局部變量 源代碼, 文本型
.局部變量 源代碼1, 文本型
.局部變量 狀態(tài)碼, 文本型
.局部變量 文本, 文本型
.局部變量 e, 文本型
.局部變量 代源碼2, 文本型
時鐘1.時鐘周期 ＝ 0
源代碼 ＝ 網(wǎng)頁_訪問S (url ＋ “&fun=new&version=v2”)
狀態(tài)碼 ＝ 文本_取出中間文本 (源代碼, “<error><ret>”, “</ret><message></message>”)
.如果真 (狀態(tài)碼 ＝ “408”)
  信息框 (“未知錯誤！”, 0, )
.如果真結(jié)束
skey ＝ 文本_取出中間文本 (源代碼, “<skey>”, “</skey>”)
sid ＝ 文本_取出中間文本 (源代碼, “<wxsid>”, “</wxsid>”)
uin ＝ 文本_取出中間文本 (源代碼, “<wxuin>”, “</wxuin>”)
pass_ticket ＝ 文本_取出中間文本 (源代碼, “<pass_ticket>”, “</pass_ticket>”)
r ＝ 到文本 (時間_到時間戳 (取現(xiàn)行時間 (), ))
調(diào)試輸出 (skey, sid, uin, pass_ticket, r)

運(yùn)行結(jié)果：