|

楼主 |
发表于 2025-2-7 20:11:50
|
显示全部楼层
重庆市重庆市
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 cookie_1, 文本型
.程序集变量 cookie_2, 文本型
.子程序 __启动窗口_创建完毕
网页_访问_对象 (“http://www.pceggs.com/”, 0, , , cookie_2)
' cookie_1 = cookie_2
' 调试输出 (cookie_1)
获取验证码 ()
.子程序 _按钮_登录_被单击
.局部变量 返回文本, 文本型
' 网页_访问_对象 (“http://www.pceggs.com/”, 1, “__VIEWSTATE=%2FwEPDwULLTE5MjMyMzc2MDVkZA%3D%3D&hidMIndex=0&txt_UserName=” + 编辑框_登录账号.内容 + “&txt_PWD=” + 编辑框_登录密码.内容 + “&txt_VerifyCode2=&txt_VerifyCode=” + 编辑框_验证码.内容 + “&Login_Submit=%E7%99%BB%E5%BD%95”, cookie_1, cookie_2)
返回文本 = 编码_Utf8到Ansi (网页_访问_对象 (“http://www.pceggs.com/”, 1, “__VIEWSTATE=%2FwEPDwULLTE5MjMyMzc2MDVkZA%3D%3D&hidMIndex=0&txt_UserName=” + 编辑框_登录账号.内容 + “&txt_PWD=” + 编辑框_登录密码.内容 + “&txt_VerifyCode2=&txt_VerifyCode=” + 编辑框_验证码.内容 + “&Login_Submit=%E7%99%BB%E5%BD%95”, cookie_1, ))
调试输出 (编码_usc2到ansi (返回文本))
.子程序 获取验证码
.局部变量 CLIENTKEY, 文本型
图片框1.图片 = 网页_访问_对象 (“http://www.pceggs.com/VerifyCode_Login.aspx?id=” + 时间_取随机时间戳 (), 0, , , CLIENTKEY)
置随机数种子 ()
cookie_1 = #cookie常量 + CLIENTKEY + “;” + “Hm_lpvt_f8f6a0064a3e891522bdf044119d462a=1738925” + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + “;” + “CLIENTKEY_ShowLogin=” + 到文本 (取随机数 (1, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + “-” + 到文本 (取随机数 (1, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + “-” + 到文本 (取随机数 (1, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9)) + 到文本 (取随机数 (0, 9))
' cookie_1 = 网页_Cookie合并更新 (cookie_1, cookie_2)
调试输出 (cookie_1)
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
获取验证码 ()
.子程序 _按钮1_被单击
|
|