360网址安全检测源码

360网址安全检测 https://chaxun.360.cn/chaxun/query

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 g_cookie, 文本型

.子程序 __启动窗口_创建完毕

读验证码 ()

.子程序 Get_xml, 字节集
.参数 Url, 文本型
.局部变量 http, 对象
.局部变量 return, 字节集
.局部变量 str, 文本型

加载_G (0)
.如果真 (http.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
    调试输出 (“Microsoft.XMLHTTP -> 不成功”)
    .如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
        调试输出 (“WinHttp.WinHttpRequest.5.1 -> 不成功”)
        .如果真 (http.创建 (“MSXML2.ServerXMLHTTP.6.0”, ) ＝ 假)
            调试输出 (“MSXML2.ServerXMLHTTP.6.0 -> 不成功”)
            .如果真 (http.创建 (“MSXML2.ServerXMLHTTP.5.0”, ) ＝ 假)
                调试输出 (“MSXML2.ServerXMLHTTP.5.0 -> 不成功”)
                信息框 (“系统不支持本操作”, #警告图标, , )
                返回 ({  })  ' 不支持返回
            .如果真结束

        .如果真结束

    .如果真结束

.如果真结束
http.方法 (“Open”, “GET”, Url, 假)
http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/79.0.3945.88 Safari/537.36”)
http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)
http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“Send”, )
str ＝ http.读文本属性 (“GetallResponseHeaders”, )
g_cookie ＝ 文本_取出中间文本 (str, “Set-Cookie: ”, #换行符)

return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()
卸载_G ()
返回 (return)

.子程序 Post_xml, 字节集
.参数 Url, 文本型
.参数 Send, 文本型
.局部变量 http, 对象
.局部变量 return, 字节集

加载_P (0)
.如果真 (http.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
    调试输出 (“Microsoft.XMLHTTP -> 不成功”)
    .如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
        调试输出 (“WinHttp.WinHttpRequest.5.1 -> 不成功”)
        .如果真 (http.创建 (“MSXML2.ServerXMLHTTP.6.0”, ) ＝ 假)
            调试输出 (“MSXML2.ServerXMLHTTP.6.0 -> 不成功”)
            .如果真 (http.创建 (“MSXML2.ServerXMLHTTP.5.0”, ) ＝ 假)
                调试输出 (“MSXML2.ServerXMLHTTP.5.0 -> 不成功”)
                信息框 (“系统不支持本操作”, #警告图标, , )
                返回 ({  })  ' 不支持返回
            .如果真结束

        .如果真结束

    .如果真结束

.如果真结束
http.方法 (“Open”, “POST”, Url, 假)
http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/79.0.3945.88 Safari/537.36”)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)
http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
http.方法 (“SetRequestHeader”, “Cookie”, g_cookie)
http.方法 (“Send”, Send)
return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()
卸载_P ()
返回 (return)

.子程序 _按钮1_被单击
.局部变量 str, 文本型

str ＝ 编码_utf8到gb2312 (到文本 (Post_xml (“https://chaxun.360.cn/chaxun/query”, “captcha=” ＋ 编辑框1.内容 ＋ “&search=” ＋ 编辑框2.内容 ＋ “&type=url”)))
调试输出 (str)
编辑框_返回内容.内容 ＝ “”
str ＝ 文本_取出中间文本 (str, “main index show-result”, “<h2>”)
编辑框_返回内容.加入文本 (str ＋ #换行符)

.子程序 读验证码

图片框1.图片 ＝ Get_xml (“https://captcha.360.cn/image.php?app=safecare&t=1618983068322”)
调试输出 (g_cookie)

@亿意亦易