下载地址：https://www.pan38.com/yun/share.php?code=JCnzE 提取密码：1133
该程序包含5个核心模块：主界面、二维码生成、抖音接口、数据库存储和工具类。使用时需要先配置MySQL数据库并安装qrencode支持库。程序实现了UID与二维码的双向转换、抖音号到UID的查询以及历史记录存储功能。
.版本 2
.支持库 eAPI
.支持库 qrencode
.程序集 程序集1
.程序集变量 全局配置, 配置信息
.程序集变量 全局数据库, 数据库连接
.子程序 _启动子程序, 整数型
.局部变量 主窗口, 窗口
.局部变量 菜单, 菜单
' 初始化配置
全局配置 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “System”, “LastPath”, “”)
全局数据库.连接 (“DRIVER={MySQL ODBC 8.0 Driver};SERVER=127.0.0.1;DATABASE=uid_db;USER=root;PASSWORD=123456;”)
' 创建主窗口
主窗口.创建 (, “UID转换工具 v2.0”, , , 800, 600, , , )
主窗口.置背景颜色 (#白色)
菜单.创建 (主窗口)
菜单.添加项目 (“文件”, “文件”)
菜单.添加项目 (“工具”, “工具”)
菜单.添加项目 (“帮助”, “帮助”)
' 添加控件
添加控件 (主窗口, “编辑框”, “编辑框UID”, 50, 50, 200, 30, , )
添加控件 (主窗口, “按钮”, “按钮生成二维码”, 260, 50, 100, 30, “生成二维码”, )
添加控件 (主窗口, “图片框”, “图片框二维码”, 50, 100, 200, 200, , )
添加控件 (主窗口, “编辑框”, “编辑框抖音号”, 50, 350, 200, 30, , )
添加控件 (主窗口, “按钮”, “按钮查询UID”, 260, 350, 100, 30, “查询UID”, )
添加控件 (主窗口, “列表框”, “列表框历史记录”, 400, 50, 350, 500, , )
返回 (0)
版本 2
.支持库 qrencode
.子程序 生成二维码, 逻辑型
.参数 文本内容, 文本型
.参数 图片框句柄, 整数型
.局部变量 qr, QRCode
.局部变量 图片数据, 字节集
.局部变量 临时文件, 文本型
.如果真 (文本内容 ＝ “”)
信息框 (“请输入要生成二维码的内容”, 0, , )
返回 (假)
.如果真结束
qr.创建 ()
qr.置文本 (文本内容)
qr.置尺寸 (200, 200)
qr.置边距 (2)
qr.置前景色 (#黑色)
qr.置背景色 (#白色)
临时文件 ＝ 取临时文件名 () ＋ “.png”
.如果 (qr.生成到文件 (临时文件))
图片数据 ＝ 读入文件 (临时文件)
写组件属性 (图片框句柄, “图片”, 图片数据)
删除文件 (临时文件)
返回 (真)
.否则
信息框 (“二维码生成失败”, 0, , )
返回 (假)
.如果结束
版本 2
.支持库 internet
.子程序 抖音号转UID, 文本型
.参数 抖音号, 文本型
.局部变量 http, HTTP访问
.局部变量 返回数据, 文本型
.局部变量 json, 类_json
.局部变量 uid, 文本型
.如果真 (抖音号 ＝ “”)
信息框 (“请输入抖音号”, 0, , )
返回 (“”)
.如果真结束
http.打开 (“GET”, “https://www.douyin.com/aweme/v1/web/im/user/info/?sec_user_id=” ＋ 抖音号, , , )
http.发送 ()
返回数据 ＝ http.取响应文本 ()
.如果 (json.解析 (返回数据))
uid ＝ json.取通用属性 (“data.uid”, “”)
.如果 (uid ≠ “”)
返回 (uid)
.否则
信息框 (“未找到对应的UID”, 0, , )
返回 (“”)
.如果结束
.否则
信息框 (“接口请求失败”, 0, , )
返回 (“”)
.如果结束
版本 2
.支持库 mysql
.子程序 保存记录
.参数 uid, 文本型
.参数 抖音号, 文本型
.参数 二维码路径, 文本型
.局部变量 SQL, 文本型
SQL ＝ “INSERT INTO conversion_history (uid, douyin_id, qrcode_path, createtime) VALUES (” ＋ 全局数据库.转义 (uid) ＋ “,” ＋ 全局数据库.转义 (抖音号) ＋ “,” ＋ 全局数据库.转义 (二维码路径) ＋ “,NOW())”
全局_数据库.执行 (SQL, )
版本 2
.子程序 取临时文件名, 文本型
.局部变量 临时路径, 文本型
.局部变量 随机数, 文本型
临时路径 ＝ 取临时目录 ()
置随机数种子 ()
随机数 ＝ 到文本 (取随机数 (10000, 99999)) ＋ 到文本 (取现行时间 ())
返回 (临时路径 ＋ “\” ＋ 随机数)
