网站第一次打开有个检测，然后才能POST ，求破

snce1ce · 发表于 2019-5-31 18:26:38

https://jtb-coin.biz/user/login.html 这个站，我有一种方法但是不成功，

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

变量名	类型	静态	数组	备注
响应	文本型
JScript	文本型
协yi	文本型
脚本	类_脚本组件
返回数据	文本型
http	WinHttpW

http.AutoCookies (真)
http.GET (“https://jtb-coin.biz/”)
响应＝ http.GetResponseTextU2A ()
JScript ＝文本_取出中间文本 (响应, “setTimeout(”, “, 4000);”)
JScript ＝子文本替换 (JScript, “function”, “function Getpwd”, , 1, 真)
JScript ＝子文本替换 (JScript, “document.createElement('div')”, “''”, , 1, 真)
JScript ＝子文本替换 (JScript, “t.firstChild.href”, “'https://jtb-coin.biz/'”, , 1, 真)
JScript ＝子文本替换 (JScript, “document.getElementById('jschl-answer')”, “'jschl_answer'”, , 1, 真)
JScript ＝子文本替换 (JScript, “f = ”, “//f = ”, , 1, 真)
JScript ＝子文本替换 (JScript, “a.value”, “return a.value”, , 1, 真)
脚本.执行 (JScript)
程序_延时 (5000)
http.GET (“https://jtb-coin.biz/cdn-cgi/l/chk_jschl?s=” ＋编码_URL编码 (文本_取出中间文本 (响应, “name=” ＋ #引号＋ “s” ＋ #引号＋ “ value=” ＋ #引号, #引号, , ), 真, 真) ＋ “&jschl_vc=” ＋文本_取出中间文本 (响应, “name=” ＋ #引号＋ “jschl_vc” ＋ #引号＋ “ value=” ＋ #引号, #引号, , ) ＋ “&pass=” ＋编码_URL编码 (文本_取出中间文本 (响应, “name=” ＋ #引号＋ “pass” ＋ #引号＋ “ value=” ＋ #引号, #引号, , ), 真, 真) ＋ “&jschl_answer=” ＋脚本.运行 (“Getpwd”, , , , , , ))
调试输出 (http.GetAllResponseCookies ())
' http.GET (“https://jtb-coin.biz/”)
' http.GET (“https://jtb-coin.biz/user/login.html”)
' 响应＝ http.GetResponseTextU2A ()
' 调试输出 (响应)

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

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 响应, 文本型<br />
.局部变量 JScript, 文本型<br />
.局部变量 协yi, 文本型<br />
.局部变量 脚本, 类_脚本组件<br />
.局部变量 返回数据, 文本型<br />
.局部变量 http, WinHttpW<br />
<br />
http.AutoCookies (真)<br />
http.GET (“https://jtb-coin.biz/”)<br />
响应 ＝ http.GetResponseTextU2A ()<br />
JScript ＝ 文本_取出中间文本 (响应, “setTimeout(”, “, 4000);”)<br />
JScript ＝ 子文本替换 (JScript, “function”, “function Getpwd”, , 1, 真)<br />
JScript ＝ 子文本替换 (JScript, “document.createElement('div')”, “''”, , 1, 真)<br />
JScript ＝ 子文本替换 (JScript, “t.firstChild.href”, “'https://jtb-coin.biz/'”, , 1, 真)<br />
JScript ＝ 子文本替换 (JScript, “document.getElementById('jschl-answer')”, “'jschl_answer'”, , 1, 真)<br />
JScript ＝ 子文本替换 (JScript, “f = ”, “//f = ”, , 1, 真)<br />
JScript ＝ 子文本替换 (JScript, “a.value”, “return a.value”, , 1, 真)<br />
脚本.执行 (JScript)<br />
程序_延时 (5000)<br />
http.GET (“https://jtb-coin.biz/cdn-cgi/l/chk_jschl?s=” ＋ 编码_URL编码 (文本_取出中间文本 (响应, “name=” ＋ #引号 ＋ “s” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ), 真, 真) ＋ “&jschl_vc=” ＋ 文本_取出中间文本 (响应, “name=” ＋ #引号 ＋ “jschl_vc” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ) ＋ “&pass=” ＋ 编码_URL编码 (文本_取出中间文本 (响应, “name=” ＋ #引号 ＋ “pass” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ), 真, 真) ＋ “&jschl_answer=” ＋ 脚本.运行 (“Getpwd”, , , , , , ))<br />
调试输出 (http.GetAllResponseCookies ())<br />
' http.GET (“https://jtb-coin.biz/”)<br />
' http.GET (“https://jtb-coin.biz/user/login.html”)<br />
' 响应 ＝ http.GetResponseTextU2A ()<br />
' 调试输出 (响应)