.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 http, winHttp .程序集变量 url, 文本型 .程序集变量 str, 文本型 .程序集变量 header, 文本型 .程序集变量 s, 文本型 .程序集变量 jschl_vc, 文本型 .程序集变量 pass, 文本型 .程序集变量 jscry, jscript .程序集变量 js, 文本型 .程序集变量 jsadd, 文本型 .程序集变量 jschl_answer, 文本型 .程序集变量 ck, 文本型 .子程序 __启动窗口_创建完毕 header ＝ #header ' http.SetProxy (“127.0.0.1:8888”) url ＝ “https://lkc.ink/user/reg/ref/286912.html” str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header)) s ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “s” ＋ #引号 ＋ “ value=” ＋ #引号, #引号) jschl_vc ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “jschl_vc” ＋ #引号 ＋ “ value=” ＋ #引号, #引号) pass ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “pass” ＋ #引号 ＋ “ value=” ＋ #引号, #引号) 调试输出 (s, jschl_vc, pass) jsadd ＝ 文本_取出中间文本 (str, “setTimeout(function(){”, “};”) ＋ “};” jsadd ＝ jsadd ＋ 文本_取出中间文本 (str, #常量1, “toFixed(10);”) ＋ “toFixed(10);” js ＝ 子文本替换 (“function getck(){ var t ='1234567';” ＋ jsadd ＋ #换行符 ＋ “ return a;}”, “a.value”, “a”, , , 真) jscry.执行 (js) jschl_answer ＝ jscry.运行 (“getck”) 调试输出 (jschl_answer) 延时 (4000) url ＝ “https://lkc.ink/cdn-cgi/l/chk_jschl?s=” ＋ 编码_URL编码 (s, 真, 真) ＋ “&jschl_vc=” ＋ jschl_vc ＋ “&pass=” ＋ pass ＋ “&jschl_answer=” ＋ jschl_answer str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header)) url ＝ “https://lkc.ink/user/reg/ref/286912.html” str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header)) 调试输出 (str)