微店ua算法开源源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 JS调试, 文本型, 公开, 代码由鬼鬼JS调试工具生成 BY QQ:120220707
.局部变量 js, 对象
.局部变量 return, 文本型

' CoInitialize (0) 线程中请初始化COM  否则会出错
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JavaScript”)
js.数值方法 (“AddCode”, #常量1)  ' 调试成功的JS代码段
return ＝ js.通用方法 (“eval”, “getUa()”).取文本 ()
' CoUninitialize ()
返回 (return)
' 本例程调用方法直接复制    JS调试 (调试成功的JS代码,"getUa" ,"" )

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

子程序1 (编辑框1.内容, 编辑框2.内容)

.子程序 子程序1
.参数 Phone, 文本型
.参数 Password, 文本型
.局部变量 Http, WinHttpW
.局部变量 Response, 文本型
.局部变量 Data, 文本型
.局部变量 Ua, 文本型
.局部变量 Json, zyJsonValue
.局部变量 TipsMessage, 文本型

Ua ＝ JS调试 ()
.如果真 (Ua ＝ “”)
    返回 ()
.如果真结束
Ua ＝ URLEncode (Ua)
Data ＝ “phone=” ＋ Phone ＋ “&countryCode=86&password=” ＋ Password ＋ “&version=1&subaccountId=&clientInfo=%7B%22clientType%22%3A1%7D&captcha_session=&captcha_answer=&vcode=&mediaVcode=&ua=” ＋ Ua ＋ “&wdtoken=dfcecc33”
Http.Open (“POST”, “https://sso1.weidian.com/user/login”)
Http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.83 Safari/537.36”)
Http.Send (Data)
Response ＝ Http.GetResponseTextA ()
调试输出 (Response)
Json.解析 (Response, , , )
TipsMessage ＝ Json.取文本 (“status.status_reason”)
信息框 (TipsMessage, 0, “提示”, )

@Tenacitys