您好,登錄后才能下訂單哦!
使用易語言怎么實現PC端登陸微信?很多新手對此不是很清楚,為了幫助大家解決這個難題,下面小編將為大家詳細講解,有這方面需求的人可以來學習下,希望你能有所收獲。
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)
看完上述內容是否對您有幫助呢?如果還想對相關知識有進一步的了解或閱讀更多相關文章,請關注億速云行業資訊頻道,感謝您對億速云的支持。
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。