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

全局變量表

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

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

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

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

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

系統(tǒng)時(shí)間

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

PC端微信登陸的代碼

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

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

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