求指点cookie获取的问题

0or1

大哥们帮我看看下边这个代码，有两个问题，第一个是cookie获取总是有问题，每次输出都是一大堆代码；第二个是为什么程序运行以后都要手动点一下验证码的框才会出现验证码，能一运行就出现验证码吗？谢啦
监控采集V1.0.1.e (637.42 KB, 下载次数: 6)

2018-11-16 11:21 上传

点击文件名下载附件

0or1

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
idhash	文本型
loginhash	文本型
formhash	文本型
update	文本型

子程序名	返回值类型	公开	备 注
获取验证码

变量名	类 型	静态	数组	备 注
updateurl	文本型
formhashurl	文本型
idhashurl	文本型
验证码url	文本型
url	文本型
txt	文本型
cookie	文本型
返回Cookies	文本型

' 获取动态参数idhash的值（id="seccode_cSkX8mzJ"）
idhashurl ＝ 到文本 (网页_访问 (“http://www.womai.biz/member.php?mod=logging&action=login”))
idhash ＝ 文本_取出中间文本 (idhashurl, “seccode_”, #引号 )
调试输出 (“idhash: ” ＋ idhash)
' 获取登录动态loginhash值（loginhash=Ld1v0）
loginhash ＝ 文本_取出中间文本 (idhashurl, “loginhash=”, #引号 )
调试输出 (“loginhash: ” ＋ loginhash)
' 获取登录动态formhash值（）
formhash ＝ 文本_取出中间文本 (idhashurl, “formhash#引号 value=#引号”, “#引号 />”, , )
调试输出 (“formhash:” ＋ formhash)
' 获取动态参数update的值
' http://www.womai.biz/misc.php?mod=seccode&action=update&idhash=cSczfAAD&0.4983989885638486&modid=undefined
updateurl ＝ 到文本 (网页_访问 (“http://www.womai.biz/misc.php?mod=seccode&action=update&idhash=” ＋ idhash ＋ “&” ＋ 时间_取随机时间戳 () ＋ “&modid=undefined”))
update ＝ 文本_取出中间文本 (updateurl, “&update=”, “&”)
调试输出 (“update:” ＋ update)
' 获取cookie
cookie ＝ 到文本 (网页_访问 (“http://www.womai.biz/forum.php?”, , cookie, ))
' 调试输出 (“cookie：” ＋ cookie)
' 获取验证码
' height="30" src="misc.php?mod=seccode&update=62245&idhash=cSczfAAD"
验证码url ＝ “http://www.womai.biz/misc.php?mod=seccode&update=” ＋ loginhash ＋ “&idhash=” ＋ idhash
调试输出 (验证码url)
' 验证码输出
图片框验证码.图片 ＝ 网页_访问 (验证码url, , , , , #协yi头_网页 )

子程序名	返回值类型	公开	备 注
_编辑框验证码_内容被改变

子程序名	返回值类型	公开	备 注
_图片框验证码_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

获取验证码 ()

子程序名	返回值类型	公开	备 注
登录

变量名	类 型	静态	数组	备 注
提交地址	文本型
提交数据	文本型
返回文本	文本型
编辑框运行记录	文本型

提交地址 ＝ “http://www.womai.biz/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=” ＋ loginhash ＋ “&inajax=1”
提交数据 ＝ “formhash=” ＋ formhash ＋ “&referer=http%3A%2F%2Fwww.womai.biz%2F.%2F&loginfield=username&username=” ＋ 用户名.内容 ＋ “&password=” ＋ 密码框.内容 ＋ “&questionid=0&answer=&seccodehash=” ＋ idhash ＋ “&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框验证码.内容
返回文本 ＝ 到文本 (网页_访问 (提交地址, 1, 提交数据, , ))
返回文本 ＝ 编码_URL解码 (返回文本, 真)
调试输出 (返回文本)
判断 (寻找文本 (返回文本, “现在将转入登录前页面”, , 假) ≠ -1)
提示框 (“登录成功” ＋ #换行符 )
提示框 (“登录失败” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_登录_被单击

登录 ()

子程序名	返回值类型	公开	备 注
_发送_被单击

变量名	类 型	静态	数组	备 注
提交地址	文本型
提交数据	文本型
返回文本	文本型
formhash1	文本型
formhashurl1	文本型
帖子标题	文本型
帖子内容	文本型

提交地址 ＝ “http://www.womai.biz/forum.php?mod=post&action=newthread&fid=2&extra=&topicsubmit=yes”
' 获取登录动态formhash1值（formhash=76d88f62"）
formhashurl1 ＝ 到文本 (网页_访问 (“http://www.womai.biz/forum.php?mod=post&action=newthread&fid=2&referer=http%3A//www.womai.biz/forum.php%3Fmod%3Dforumdisplay%26fid%3D2”))
' formhash1 ＝ 文本_取出中间文本 (formhashurl1, “formhash=”, #引号)为什么这么写就会把取值后边的东西都取出来了呢？
formhash1 ＝ 文本_取出中间文本 (formhashurl1, “formhash#引号 value=#引号”, “#引号 />”, , )
调试输出 (“formhash1:” ＋ formhash1)
帖子标题 ＝ 编辑框帖子标题.内容
帖子内容 ＝ 编辑框帖子内容.内容
帖子标题 ＝ 编码_URL编码 (帖子标题, 真, 真)
帖子内容 ＝ 编码_URL编码 (帖子内容, 真, 真)
提交数据 ＝ “ formhash=” ＋ formhash1 ＋ “&posttime=” ＋ 时间_取现行时间戳 (真) ＋ “&wysiwyg=1&subject=” ＋ 帖子标题 ＋ “&message=” ＋ 帖子内容 ＋ “&allownoticeauthor=1&usesig=1&save=”
' 提交数据 ＝ “ formhash=” ＋ formhash1 ＋ “&posttime=” ＋ 时间_取现行时间戳 (真) ＋ “&wysiwyg=1&subject="+帖子标题+"&message="+帖子内容+"&replycredit_extcredits=0&replycredit_times=1&replycredit_membertimes=1&replycredit_random=100&readperm=&price=&allownoticeauthor=1&usesig=1&save=”
返回文本 ＝ 到文本 (网页_访问 (提交地址, 1, 提交数据, ))
返回文本 ＝ 编码_URL解码 (返回文本, 真)
调试输出 (“返回文本:” ＋ 返回文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 idhash, 文本型<br /> .程序集变量 loginhash, 文本型<br /> .程序集变量 formhash, 文本型<br /> .程序集变量 update, 文本型<br /> <br /> .子程序 获取验证码<br /> .局部变量 updateurl, 文本型<br /> .局部变量 formhashurl, 文本型<br /> .局部变量 idhashurl, 文本型<br /> .局部变量 验证码url, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 txt, 文本型<br /> .局部变量 cookie, 文本型<br /> .局部变量 返回Cookies, 文本型<br /> <br /> ' 获取动态参数idhash的值（id="seccode_cSkX8mzJ"）<br /> idhashurl ＝ 到文本 (网页_访问 (“http://www.womai.biz/member.php?mod=logging&action=login”))<br /> idhash ＝ 文本_取出中间文本 (idhashurl, “seccode_”, #引号)<br /> 调试输出 (“idhash: ” ＋ idhash)<br /> <br /> ' 获取登录动态loginhash值（loginhash=Ld1v0）<br /> loginhash ＝ 文本_取出中间文本 (idhashurl, “loginhash=”, #引号)<br /> 调试输出 (“loginhash: ” ＋ loginhash)<br /> <br /> ' 获取登录动态formhash值（）<br /> formhash ＝ 文本_取出中间文本 (idhashurl, “formhash#引号 value=#引号”, “#引号 />”, , )<br /> 调试输出 (“formhash:” ＋ formhash)<br /> <br /> ' 获取动态参数update的值<br /> ' http://www.womai.biz/misc.php?mod=seccode&action=update&idhash=cSczfAAD&0.4983989885638486&modid=undefined<br /> updateurl ＝ 到文本 (网页_访问 (“http://www.womai.biz/misc.php?mod=seccode&action=update&idhash=” ＋ idhash ＋ “&” ＋ 时间_取随机时间戳 () ＋ “&modid=undefined”))<br /> update ＝ 文本_取出中间文本 (updateurl, “&update=”, “&”)<br /> 调试输出 (“update:” ＋ update)<br /> <br /> ' 获取cookie<br /> cookie ＝ 到文本 (网页_访问 (“http://www.womai.biz/forum.php?”, , cookie, ))<br /> <br /> ' 调试输出 (“cookie：” ＋ cookie)<br /> <br /> ' 获取验证码<br /> ' height="30" src="misc.php?mod=seccode&update=62245&idhash=cSczfAAD"<br /> 验证码url ＝ “http://www.womai.biz/misc.php?mod=seccode&update=” ＋ loginhash ＋ “&idhash=” ＋ idhash<br /> 调试输出 (验证码url)<br /> <br /> ' 验证码输出<br /> 图片框验证码.图片 ＝ 网页_访问 (验证码url, , , , , #协yi头_网页)<br /> <br /> <br /> .子程序 _编辑框验证码_内容被改变<br /> <br /> <br /> <br /> <br /> .子程序 _图片框验证码_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 获取验证码 ()<br /> <br /> <br /> <br /> .子程序 登录<br /> .局部变量 提交地址, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 编辑框运行记录, 文本型<br /> <br /> 提交地址 ＝ “http://www.womai.biz/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=” ＋ loginhash ＋ “&inajax=1”<br /> 提交数据 ＝ “formhash=” ＋ formhash ＋ “&referer=http%3A%2F%2Fwww.womai.biz%2F.%2F&loginfield=username&username=” ＋ 用户名.内容 ＋ “&password=” ＋ 密码框.内容 ＋ “&questionid=0&answer=&seccodehash=” ＋ idhash ＋ “&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框验证码.内容<br /> 返回文本 ＝ 到文本 (网页_访问 (提交地址, 1, 提交数据, , ))<br /> 返回文本 ＝ 编码_URL解码 (返回文本, 真)<br /> 调试输出 (返回文本)<br /> .判断开始 (寻找文本 (返回文本, “现在将转入登录前页面”, , 假) ≠ -1)<br />     提示框 (“登录成功” ＋ #换行符)<br /> .默认<br />     提示框 (“登录失败” ＋ #换行符)<br /> .判断结束<br /> <br /> <br /> <br /> <br /> .子程序 _登录_被单击<br /> <br /> 登录 ()<br /> <br /> .子程序 _发送_被单击<br /> .局部变量 提交地址, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 formhash1, 文本型<br /> .局部变量 formhashurl1, 文本型<br /> .局部变量 帖子标题, 文本型<br /> .局部变量 帖子内容, 文本型<br /> <br /> 提交地址 ＝ “http://www.womai.biz/forum.php?mod=post&action=newthread&fid=2&extra=&topicsubmit=yes”<br /> ' 获取登录动态formhash1值（formhash=76d88f62"）<br /> formhashurl1 ＝ 到文本 (网页_访问 (“http://www.womai.biz/forum.php?mod=post&action=newthread&fid=2&referer=http%3A//www.womai.biz/forum.php%3Fmod%3Dforumdisplay%26fid%3D2”))<br /> <br /> ' formhash1 ＝ 文本_取出中间文本 (formhashurl1, “formhash=”, #引号)为什么这么写就会把取值后边的东西都取出来了呢？<br /> formhash1 ＝ 文本_取出中间文本 (formhashurl1, “formhash#引号 value=#引号”, “#引号 />”, , )<br /> 调试输出 (“formhash1:” ＋ formhash1)<br /> 帖子标题 ＝ 编辑框帖子标题.内容<br /> 帖子内容 ＝ 编辑框帖子内容.内容<br /> 帖子标题 ＝ 编码_URL编码 (帖子标题, 真, 真)<br /> 帖子内容 ＝ 编码_URL编码 (帖子内容, 真, 真)<br /> <br /> 提交数据 ＝ “ formhash=” ＋ formhash1 ＋ “&posttime=” ＋ 时间_取现行时间戳 (真) ＋ “&wysiwyg=1&subject=” ＋ 帖子标题 ＋ “&message=” ＋ 帖子内容 ＋ “&allownoticeauthor=1&usesig=1&save=”<br /> ' 提交数据 ＝ “ formhash=” ＋ formhash1 ＋ “&posttime=” ＋ 时间_取现行时间戳 (真) ＋ “&wysiwyg=1&subject="+帖子标题+"&message="+帖子内容+"&replycredit_extcredits=0&replycredit_times=1&replycredit_membertimes=1&replycredit_random=100&readperm=&price=&allownoticeauthor=1&usesig=1&save=”<br /> 返回文本 ＝ 到文本 (网页_访问 (提交地址, 1, 提交数据, ))<br /> 返回文本 ＝ 编码_URL解码 (返回文本, 真)<br /> 调试输出 (“返回文本:” ＋ 返回文本)

Troubled

一运行就出现验证码的话，直接在启动窗口下面添加获取验证码代码就好了。

trfeiky

把你获取验证码的子程序在启动窗口事件下调用下就可以了

0or1

Troubled 发表于 2018-11-16 12:22
一运行就出现验证码的话，直接在启动窗口下面添加获取验证码代码就好了。

具体怎么弄呢？

Troubled