关于多线程网页访问对象

1436880331

GT白嫖怪 发表于 2024-2-7 00:14
代码放出来吧

.版本 2
.支持库 iext

.子程序 _批量抢购_被单击
.局部变量 局_索引数量, 整数型

全_线程数 ＝ 超级列表框1.取表项数 ()  ' 获取用户设置的线程数量

局_索引数量 ＝ 0  ' 归零操作

.计次循环首 (全_线程数, 局_索引数量)
    全_多线程 [局_索引数量].创建 (&提交购买信息, 局_索引数量, , , , , 真, , , )
    局_索引数量 ＝ 局_索引数量 ＋ 1
.计次循环尾 ()

2.提交购买信息子程序是这个：

.版本 2
.支持库 commobj
.支持库 iext

.子程序 提交购买信息, 文本型, , server_id是服务器id
.参数 局_索引数量, 整数型
.局部变量 局_网址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_正则, 正则表达式类
.局部变量 道具购买地址按钮, 文本型
.局部变量 失败原因, 文本型
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_子匹配数, 整数型
.局部变量 server_id, 文本型
.局部变量 getusername, 文本型
.局部变量 orderid, 文本型
.局部变量 sign, 文本型
.局部变量 cart_type, 文本型
.局部变量 buytype, 文本型
.局部变量 UseGiftMb, 文本型
.局部变量 GiveMode, 文本型
.局部变量 DiscountId, 文本型
.局部变量 UseDiscount, 文本型
.局部变量 AllPrice, 文本型
.局部变量 payType, 文本型
.局部变量 weixinChannel, 文本型
.局部变量 itemname, 文本型
.局部变量 索引, 整数型
.局部变量 日志文本名, 文本型
.局部变量 读取日志文本内容, 快速文本对象
.局部变量 代理IP, 文本型

索引 ＝ 局_索引数量 － 1

代理IP ＝ 超级列表框1.取标题 (索引, 14)

.如果 (超级列表框1.取标题 (索引, 6) ＝ “” 或 超级列表框1.取标题 (索引, 9) ＝ “” 或 超级列表框1.取当前状态图片 (索引) ＝ 0)  ' 如果登录失败且地址没选 勾选没选



.否则
    .判断循环首 (真)
        .如果 (超级列表框1.取标题 (索引, 10) ≠ “抢购成功”)  ' 如果没有抢购成功
            超级列表框1.取标题 (索引, 4)  ' 根据线程操作传过来的索引然后操作超级列表框取值输出调试文本 (服务器ID)
            局_网址 ＝ “http://” ＋ 超级列表框1.取标题 (索引, 4) ＋ “” ＋ 超级列表框1.取标题 (索引, 9) ＋ “”
            ADD_协议头.添加 (“Host”, “”)
            ADD_协议头.添加 (“Proxy-Connection”, “keep-alive”)
            ADD_协议头.添加 (“Upgrade-Insecure-Requests”, “1”)
            ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36”)
            ADD_协议头.添加 (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7”)
            ADD_协议头.添加 (“Referer”, “http://” ＋ 超级列表框1.取标题 (索引, 9))
            ' ADD_协议头.添加 ("Accept-Encoding","gzip, deflate"）' 压缩头 一般不用设置
            ADD_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9”)

            局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

            局_提交cookie ＝ 超级列表框1.取标题 (索引, 6)

            ' 局_结果 ＝ 网页_访问 (局_网址, 0, 局_提交数据, 局_提交cookie, , 局_提交协议头, , , , 代理IP, 真)

            局_结果 ＝ 网页_访问_对象 (局_网址, 0, 局_提交数据, 局_提交cookie, , 局_提交协议头, , , , , 代理IP, , , , , , 真)
            局_返回 ＝ 编码_Utf8到Ansi (局_结果)  ' 自己去找编码
            输出调试文本 (局_返回)

ksksksks

实在解决不了  联系我  远程看看QAQ