截图小功能

大胜科技

开源精神必须支持~

eavesyang

好牛逼的功能  把qq截图的功能都完善上去吧

wxb130260

谢谢楼主分享

designer

66666666666666666666666

Seven3in

Win+Shift+S

ufo8877

ufo8877

ufo8877

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 监听服务器, Fiddler

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

.如果真 (IsAdministrator () ＝ 假)
    .如果 (是否为调试版 ())
        信息框 (“当前非管理员模式运行，请使用管理员运行易语言程序后，在打开源码进行调试！”, #警告图标, , )
        结束 ()
    .否则
        ' 如果不是调试模式，则使用管理员权限重新启动本程序
        系统_以管理员模式创建进程 ()

    .如果结束

.如果真结束

监听服务器.置证书方式 (1)  ' 建议采用makecert.exe方式,如果采用BCMakeCert.dll则导致每次都创建证书
.如果真 (监听服务器.检查是否存在根证书 () ＝ 假)
    调试输出 (“创建证书”, 监听服务器.创建根证书 ())
.如果真结束
.如果真 (监听服务器.检查是否安装根证书 () ＝ 假)
    调试输出 (“安装证书”, 监听服务器.安装证书 ())
.如果真结束
监听服务器.置SSL抓包 (真)  ' 启动抓取https模式
监听服务器.置自动注册代理 (真)  ' 运行后自动开启IE代理
监听服务器.启动代理 (7788, &回调_数据)
填表_初始化soket高速填表 ()

.子程序 回调_数据
.参数 数据地址, 整数型, , 通过该地址来接受网页的数据，不可忽略！
.参数 数据序号, 整数型, , 通过该序号来对网页进行控制，不可忽略！
.局部变量 fd, Fiddler数据结构
.局部变量 标识符, 文本型

fd ＝ 监听服务器.解析数据 (数据地址)
.如果真 (fd.数据类型 ＝ “recv”)  ' recv
    ' 调试输出 (“返回包:” ＋ fd.网页地址)
    .如果真 (寻找文本 (fd.网页数据_字符串, “</title>”, , 假) ≠ -1)
        标识符 ＝ 监听服务器.开启填表 (fd, 数据序号, “”, “</title>”)
        调试输出 (“绑定填表标识符：” ＋ 标识符, “绑定网址：” ＋ fd.网页地址)

    .如果真结束



.如果真结束
.如果真 (fd.数据类型 ＝ “send”)
    ' 调试输出 (“提交包:” ＋ fd.网页地址)
.如果真结束
.如果真 (fd.数据类型 ＝ “websocket”)
    .如果 (fd.websocket.数据类型 ＝ “send”)
        调试输出 (“wss提交包:” ＋ fd.websocket.数据内容_字符串)
    .否则
        调试输出 (“wss返回包:” ＋ fd.websocket.数据内容_字符串)
    .如果结束

.如果真结束


.子程序 __启动窗口_可否被关闭, 逻辑型

监听服务器.停止代理 ()

.子程序 _按钮1_被单击

调试输出 (填表操作_取源码 (“标识符”, “button”, “pn pnc”))

' '填表操作_写内容 (“标识符”, “input”, “srchtxt”, “啊啊啊”, )

阿Q3

支持开源~！感谢分享

阿Q3

小白还在追求技术，膜拜大佬