post网页跳转问题

深蓝浅出 · 发表于 2015-12-24 16:04:28

上个问题大神解决了，现在遇见跳转的问题。求源码。网址：http://www.scjj.gov.cn:8638/index/user/login.aspx
密码：UXTV5E
账号：511112198006284816

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
cookie	文本型
tc	逻辑型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

图片框1.图片＝彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/indexBitmap.aspx?flagPassword=” ＋到文本 (时间_取随机时间戳 ()), , , , , , , cookie, )

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

图片框1.图片＝彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/indexBitmap.aspx?flagPassword=” ＋到文本 (时间_取随机时间戳 ()), , , , , , , cookie, )

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
返回文本	文本型
__EVENTVALIDATION	文本型
__VIEWSTATE	文本型
data	文本型
验证码1	文本型
跳转1	文本型

返回文本＝网页_访问S (“http://www.scjj.gov.cn:8638/index/user/login.aspx”, , , cookie)
__EVENTVALIDATION ＝文本_取出中间文本 (返回文本, “id=” ＋ #引号＋ “__EVENTVALIDATION” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
__VIEWSTATE ＝文本_取出中间文本 (返回文本, “id=” ＋ #引号＋ “__VIEWSTATE” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
验证码1 ＝编辑框_验证码.内容
data ＝ “__VIEWSTATE=” ＋编码_URL编码 (__VIEWSTATE, 真, 真) ＋ “&txtUserName=” ＋编辑框_用户名.内容＋ “&txtPwd=” ＋编辑框_密码.内容＋ “&txtYZM=” ＋验证码1 ＋ “&=&btnLogin=%E7%99%BB++%E5%BD%95&__EVENTVALIDATION=” ＋编码_URL编码 (__EVENTVALIDATION, 真, 真)
返回文本＝到文本 (彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/user/login.aspx”, “post”, , , data, , , , ))
返回文本＝编码_utf8到gb2312 (返回文本)
跳转1 ＝到文本 (HTTP读文件 (“http://www.scjj.gov.cn:8638/index/basic.aspx?sfzmhm= + 编辑框_用户名.内容”))
跳转1 ＝编码_utf8到gb2312 (跳转1)
调试输出 (跳转1)

i支持库列表	支持库注释
CometHttp	(未知支持库)
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 CometHttp<br />
.支持库 internet<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 cookie, 文本型<br />
.程序集变量 tc, 逻辑型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
图片框1.图片 ＝ 彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/indexBitmap.aspx?flagPassword=” ＋ 到文本 (时间_取随机时间戳 ()), , , , , , , cookie, )<br />
<br />
<br />
.子程序 _图片框1_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
图片框1.图片 ＝ 彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/indexBitmap.aspx?flagPassword=” ＋ 到文本 (时间_取随机时间戳 ()), , , , , , , cookie, )<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 返回文本, 文本型<br />
.局部变量 __EVENTVALIDATION, 文本型<br />
.局部变量 __VIEWSTATE, 文本型<br />
.局部变量 data, 文本型<br />
.局部变量 验证码1, 文本型<br />
.局部变量 跳转1, 文本型<br />
<br />
返回文本 ＝ 网页_访问S (“http://www.scjj.gov.cn:8638/index/user/login.aspx”, , , cookie)<br />
__EVENTVALIDATION ＝ 文本_取出中间文本 (返回文本, “id=” ＋ #引号 ＋ “__EVENTVALIDATION” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
__VIEWSTATE ＝ 文本_取出中间文本 (返回文本, “id=” ＋ #引号 ＋ “__VIEWSTATE” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
验证码1 ＝ 编辑框_验证码.内容<br />
data ＝ “__VIEWSTATE=” ＋ 编码_URL编码 (__VIEWSTATE, 真, 真) ＋ “&txtUserName=” ＋ 编辑框_用户名.内容 ＋ “&txtPwd=” ＋ 编辑框_密码.内容 ＋ “&txtYZM=” ＋ 验证码1 ＋ “&=&btnLogin=%E7%99%BB++%E5%BD%95&__EVENTVALIDATION=” ＋ 编码_URL编码 (__EVENTVALIDATION, 真, 真)<br />
返回文本 ＝ 到文本 (彗星HTTP读文件 (“http://www.scjj.gov.cn:8638/index/user/login.aspx”, “post”, , , data, , , , ))<br />
返回文本 ＝ 编码_utf8到gb2312 (返回文本)<br />
跳转1 ＝ 到文本 (HTTP读文件 (“http://www.scjj.gov.cn:8638/index/basic.aspx?sfzmhm= + 编辑框_用户名.内容”))<br />
跳转1 ＝ 编码_utf8到gb2312 (跳转1)<br />
调试输出 (跳转1)

后面搞不定了。。。先谢大神