DLL命令表
.版本 2.DLL命令 timeGetTime, 長整數型, "winmm.dll", "timeGetTime".DLL命令 GetLocalTime, , "kernel32", "GetLocalTime" .參數 時間格式, 系統時間_
全局變量表
.版本 2.全局變量 scan, 文本型.全局變量 ticket, 文本型.全局變量 r, 文本型.全局變量 tid, 文本型
常量數據表
.版本 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"}}
自定義數據類型表
.版本 2.數據類型 系統時間_, , SYSTEMTIME .成員 年, 短整數型, , , wYear .成員 月, 短整數型, , , wMonth .成員 星期, 短整數型, , , wDayOfWeek .成員 日, 短整數型, , , wDay .成員 小時, 短整數型, , , wHour .成員 分, 短整數型, , , wMinute .成員 秒, 短整數型, , , wSecond .成員 毫秒, 短整數型, , , wMilliseconds
系統時間
.版本 2.程序集 程序集1.子程序 時間, 文本型.局部變量 時間b, 系統時間_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, 文本型.子程序 __啟動窗口_創建完畢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”源碼 = 網頁_訪問S (tid)bid = 文本_取出中間文本 (源碼, #常量1, #引號)圖片框1.圖片 = HTTP讀文件 (“https://login.weixin.qq.com/qrcode/” + bid)時鐘1.時鐘周期 = 1000.子程序 _時鐘1_周期事件.局部變量 心, 文本型.局部變量 文本, 文本型.局部變量 狀態碼, 文本型.局部變量 句柄, 整數型心 = 網頁_訪問S (“https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?uuid=” + bid + “&tip=1&_=” + 時間 (), , , , Cookies)文本 = 文本_取出中間文本 (心, “code=”, “;”).如果真 (文本 = “201”) 狀態碼 = 文本_取出中間文本 (心, “code=”, “;”) _啟動窗口.標題 = “已掃描,未登錄!”.如果真結束.如果真 (文本 = “200”) url = 文本_取出中間文本 (心, #引號, #引號) ticket = 文本_取出中間文本 (url, “ticket=”, “@”) scan = 文本_取右邊 (url, “scan=”, ) 時鐘1.時鐘周期 = 0 調試輸出 (url) _啟動窗口.標題 = “已登錄!” 信息框 (“測試成功”, 0, ) 啟動線程 (&處理, , 句柄).如果真結束.如果真 (文本 = “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” 源碼 = 網頁_訪問S (tid) bid = 文本_取出中間文本 (源碼, #常量1, #引號) 圖片框1.圖片 = HTTP讀文件 (“https://login.weixin.qq.com/qrcode/” + bid).如果真結束調試輸出 (文本).子程序 處理.局部變量 源代碼, 文本型.局部變量 源代碼1, 文本型.局部變量 狀態碼, 文本型.局部變量 文本, 文本型.局部變量 e, 文本型.局部變量 代源碼2, 文本型時鐘1.時鐘周期 = 0源代碼 = 網頁_訪問S (url + “&fun=new&version=v2”)狀態碼 = 文本_取出中間文本 (源代碼, “<error><ret>”, “</ret><message></message>”).如果真 (狀態碼 = “408”) 信息框 (“未知錯誤!”, 0, ).如果真結束skey = 文本_取出中間文本 (源代碼, “<skey>”, “</skey>”)sid = 文本_取出中間文本 (源代碼, “<wxsid>”, “</wxsid>”)uin = 文本_取出中間文本 (源代碼, “<wxuin>”, “</wxuin>”)pass_ticket = 文本_取出中間文本 (源代碼, “<pass_ticket>”, “</pass_ticket>”)r = 到文本 (時間_到時間戳 (取現行時間 (), ))調試輸出 (skey, sid, uin, pass_ticket, r)
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答