|
100精币
.版本 2
.支持库 spec
.支持库 iconv
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 文本_取中间文本
.子程序 _按钮2_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 临时变量, 文本型
.局部变量 账号加密, 文本型
.局部变量 获取的网页文本, 文本型
.局部变量 账号信息, 文本型
.局部变量 获取的网页文本2, 文本型
账号加密 = 编码_URL编码 (编辑框_用户名.内容, , 真)
调试输出 (账号加密)
提交地址 = “https://cas.szhome.com/cas/login”
提交数据 = “username=” + 账号加密 + “&password=” + 编辑框_密码.内容 + “&isRememberMe=0&returnurl=http%253a%252f%252fbbs.szhome.com%252fComment%252fAdd-580010.html”
临时变量 = 到文本 (编码转换 (网页_访问 (提交地址, 1, 提交数据, , , , , ), #编码_UTF_8, #编码_GB2312, ))
调试输出 (临时变量)
获取的网页文本 = 网页_取网页源码 (“http://bbs.szhome.com/Comment/Add-580010.html”)
获取的网页文本2 = 编码_utf8到gb2312 (获取的网页文本)
调试输出 (获取的网页文本2)
账号信息 = 文本_取出中间文本 (获取的网页文本2, #常量2, #常量3)
信息框 (账号信息 + “欢迎您回来”, 0, , )
.子程序 _按钮1_被单击
.局部变量 发帖标题, 文本型
.局部变量 发帖内容, 文本型
.局部变量 提交发帖数据, 文本型
.局部变量 发帖提交地址, 文本型
.局部变量 发帖返回数据, 文本型
.局部变量 提取信息, 文本型
发帖标题 = 到文本 (编辑框1.内容)
发帖内容 = 到文本 (“” + 编辑框1.内容 + “[br]” + 编辑框2.内容)
发帖标题 = 编码_URL编码 (发帖标题, 真, 真)
调试输出 (发帖标题)
发帖内容 = 编码_URL编码 (发帖内容, 真, 真)
调试输出 (发帖内容)
发帖提交地址 = “http://bbs.szhome.com/Comment/CommentAddSave/”
提交发帖数据 = “txtSubjectTitle=” + 发帖标题 + “&radType=0&hdBoard=80&hdYezhuProject=&hdProject=580010&hdCommunityType=0&hdSecondEnchangeParentArea=0&hdSecondEnchangeAreaId=0&txtAddress=&txtPrice=&txtPhoneNumber=&txtRemark=&hdSellParentArea=0&hdSellAreaId=0&tbSellProjectName=&tbSellAddress=&hdSellHouseType=0&tbSellHouseArea=&tbSellPrice=&tbSellFloor=&tbSellTotalFloor=&tbSellContact=&tbSellPhone=&tbBuildyear=&hdRentParentArea=0&hdRentAreaId=0&tbRentProjectName=&tbRentAddress=&hdRentHouseType=0&tbRentHouseArea=&tbRentPrice=&hdCashPledge=面议&tbRentContact=&tbRentPhone=&tbRentFloor=&tbRentTotalFloor=&radIsAddMark=1&txtDetail=” + 发帖内容 + “&vote_option=&vote_option=&rblVoteType=0&hdvotetimeout=0&hfCommentType=0&hfPlusInfos=&hfAddProject=&hfAtUserIds=&hfIsVideo=0&hfDetail=” + 发帖内容 + “&hfTagIds=&hdEditMode=0&E581ACDB6BF57626=3CEB3E22”
调试输出 (提交发帖数据)
发帖返回数据 = 到文本 (编码转换 (网页_访问 (发帖提交地址, 1, 提交发帖数据, , , , , ), #编码_UTF_8, #编码_GB2312, ))
调试输出 (发帖返回数据)
账号密码:罪剑问天谴----a8608691
补充内容 (2020-5-29 15:03):
目的就是 在这里登陆发帖:http://bbs.szhome.com/Comment/Add-580010.html 搞了半天还是不行,求助老司机!不胜感激 |
|