.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口, , , 精易模块请自个调用
.子程序 __启动窗口_创建完毕
.局部变量 响应, 文本型
.局部变量 JScript, 文本型
.局部变量 cookie, 文本型
.局部变量 协议, 文本型
.局部变量 arg, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 v8, V8
.局部变量 jschl_answer, 文本型
.局部变量 str, 文本型
.局部变量 cf_chl_jschl_tk__, 文本型
.局部变量 pass, 文本型
.局部变量 jschl_vc, 文本型
.局部变量 r, 文本型
.局部变量 URL, 文本型
.局部变量 data, 文本型
v8.InitializeV8 ()
响应 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“//bbs.zhuanker.com/forum.php”, , , , cookie, , , , , , , , , , , , ))
JScript ＝ 文本_取出中间文本 (响应, “setTimeout(”, “f.action += location.hash”, , ) ＋ “}”
JScript ＝ 子文本替换 (JScript, “function”, “function Getpwd”, , 1, 真)
JScript ＝ 子文本替换 (JScript, “document.createElement('div')”, “''”, , 1, 真)
JScript ＝ 子文本替换 (JScript, “t.firstChild.href”, “'//bbs.zhuanker.com/'”, , 1, 真)
JScript ＝ 子文本替换 (JScript, “document.getElementById('jschl+answer'.replace('+', '-'))”, “'jschl_answer'”, , 1, 真)
JScript ＝ 子文本替换 (JScript, “f = ”, “//f = ”, , 1, 真)
JScript ＝ 子文本替换 (JScript, “a.value”, “return a.value”, , 1, 真)
arg ＝ 文本_取右边 (文本_取出中间文本 (JScript, “));”, “=function(p)”, , ), “]));”, , )
.如果 (arg ≠ “”)
JScript ＝ 子文本替换 (JScript, “return +(p)}()”, “return +(p)})”, , , 真)
JScript ＝ 子文本替换 (JScript, arg ＋ “=function(p”, “(function(p”, , , 真)
jschl_answer ＝ 到文本 (到数值 (v8.ExecJavaScriptV8 (JScript, “Getpwd()”, , )) － 1)
.否则
jschl_answer ＝ v8.ExecJavaScriptV8 (JScript, “Getpwd()”, , )
.如果结束
调试输出 (jschl_answer, arg)
cookie ＝ cookie ＋ “; _fmdata=I799rzPGdkBqkIPugF7ZMx7vcyVaYEWD0MJzWvOnUPTmQ1zIDLolGoE7Eqa6EAwsqsy9dC94X3LXIR2jl%2BllfxFpWDkSrPslyRNAIbhDvG8%3D”
调试输出 (cookie)
cf_chl_jschl_tk__ ＝ 文本_取出中间文本 (响应, “cf_chl_jschl_tk__=”, #引号, , )
pass ＝ 编码_URL编码 (文本_取出中间文本 (响应, “hidden” ＋ #引号 ＋ “ name=” ＋ #引号 ＋ “pass” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ), 真, 真)
jschl_vc ＝ 编码_URL编码 (文本_取出中间文本 (响应, “type=” ＋ #引号 ＋ “hidden” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ), 真, 真)
r ＝ 编码_URL编码 (文本_取出中间文本 (响应, “type=” ＋ #引号 ＋ “hidden” ＋ #引号 ＋ “ name=” ＋ #引号 ＋ “r” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , ), 真, 真)
程序_延时 (5000, )
URL ＝ “//bbs.zhuanker.com/forum.php?__cf_chl_jschl_tk__=” ＋ cf_chl_jschl_tk__
data ＝ “r=” ＋ r ＋ “&jschl_vc=” ＋ jschl_vc ＋ “&pass=” ＋ pass ＋ “&jschl_answer=” ＋ jschl_answer
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (URL, 1, data, cookie, , #常量1, 协议, , 真, , , , , , , , ))
调试输出 (str)
.子程序 V8_Getpwd, 文本型, , l
.参数 aa, 文本型
.局部变量 return, 文本型
' V8.InitializeV8 () ' 初始化V8 返回引擎句柄,写在启动窗口创建完毕或者启动子程序下面 不写一定会崩溃！
return ＝ V8.ExecJavaScriptV8 (aa, “Getpwd” ＋ “('')”, , ) ' 请在常量_Js中放入调试成功的JS代码段
返回 (return)