|
第一个代码:.版本 2.支持库 iext
.子程序 _批量抢购_被单击
.局部变量 局_索引数量, 整数型
全_线程数 = 超级列表框1.取表项数 () ' 获取用户设置的线程数量
局_索引数量 = 0 ' 归零操作
.计次循环首 (全_线程数, 局_索引数量)
全_多线程 [局_索引数量].创建 (&提交购买信息, 局_索引数量, , , , , 真, , , )
局_索引数量 = 局_索引数量 + 1
.计次循环尾 ()
第二个代码:(上面调用的子程序,提交购买信息):
.版本 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) + “&item_key%5B%5D=” + 超级列表框1.取标题 (索引, 9) + “&buytype=buy”
ADD_协议头.添加 (“Host”, “shop.9you.com”)
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 (局_结果) ' 自己去找编码
输出调试文本 (局_返回)
提问:请问哪里写错了,代理能用。导入一个账户的时候返回正常,多账号就不行了,网址屏蔽了,请问是写法问题吗?如果是的能否给我一个【多线程批量代理网页访问对象的例子呀 不要许可、临界 ,任务完成即使关闭线程的例子】,代码好的话可以请华子。谢谢各位
|
|