.版本 2.程序集 窗口程序集_启动窗口.程序集变量 采集数据, 数据类型1, , "0".程序集变量 是否停止, 逻辑型.程序集变量 浏览器路径, 文本型.程序集变量 当前关键词, 文本型.程序集变量 当前CK, 文本型
.数据类型 数据类型1 .成员 uid, 文本型 .成员 粉丝量, 整数型 .成员 点赞量, 整数型 .成员 是否蓝V, 逻辑型
.DLL命令 InternetGetCookieEx, 逻辑型, "wininet.dll", "InternetGetCookieExA" .参数 lpszUrl, 文本型 .参数 lpszCookieName, 文本型 .参数 lpszCookieData, 文本型 .参数 lpdwSize, 整数型, 传址 .参数 dwFlags, 整数型 .参数 lpReserved, 整数型
.子程序 __启动窗口_创建完毕 超文本浏览框1.静默 = 真 编辑框_浏览器路径.内容 = 取运行目录 () + "\chrome.exe" 浏览器路径 = 编辑框_浏览器路径.内容 编辑框_CK.内容 = "" 当前CK = ""
.子程序 _按钮_获取CK_被单击 .局部变量 当前URL, 文本型 当前URL = 超文本浏览框1.地址 .如果真 (寻找文本 (当前URL, "douyin.com", , 假) ≠ -1) 当前CK = 获取抖音Cookie(当前URL) 编辑框_CK.内容 = 当前CK 信息框 ("Cookie获取成功!", 0, , ) .否则 信息框 ("请先访问抖音网站!", 0, , ) .如果真结束
.子程序 获取抖音Cookie, 文本型 .参数 目标URL, 文本型 .局部变量 cookie长度, 整数型 .局部变量 cookie数据, 文本型 .局部变量 标志, 整数型 标志 = 8192 ' INTERNET_COOKIE_HTTPONLY cookie长度 = 2048 cookie数据 = 取空白文本 (cookie长度) .如果真 (InternetGetCookieEx(目标URL, 0, cookie数据, cookie长度, 标志, 0)) 返回 (取文本左边 (cookie数据, cookie长度)) .否则 返回 ("") .如果真结束
.子程序 _按钮_开始_被单击 .如果真 (当前CK = "") 信息框 ("请先获取Cookie!", 0, , ) 返回 () .如果真结束 是否停止 = 假 当前关键词 = 编辑框_关键词.内容 线程_启动 (&采集主流程)
.子程序 采集主流程 .局部变量 当前页数, 整数型 .局部变量 最后高度, 整数型 .局部变量 新高度, 整数型
超文本浏览框1.跳转 ("https://www.douyin.com/search/" + 当前关键词 + "?type=user", , ) 等待网页加载完成 () 处理CK注入 () ' 注入获取到的Cookie
.判断循环首 (是否停止 = 假) 处理数据 () 最后高度 = 超文本浏览框1.取网页高度 () 执行滚动 () 延时 (2000) 等待网页加载完成 () 新高度 = 超文本浏览框1.取网页高度 () .如果 (新高度 = 最后高度) 跳出循环 () .否则 最后高度 = 新高度 .如果结束 .判断循环尾 ()
.子程序 处理CK注入 .局部变量 js代码, 文本型 js代码 = "document.cookie = '" + 当前CK + "';" 超文本浏览框1.执行脚本 (js代码)
.子程序 处理数据 .局部变量 网页源码, 文本型 .局部变量 数据数组, 文本型, , "0" .局部变量 i, 整数型 .局部变量 临时数据, 数据类型1
网页源码 = 超文本浏览框1.取网页源码 () ' 示例解析逻辑(需根据实际结构修改): ' 数据数组 = 正则_匹配批量(网页源码, "uid:(\w+).*?粉丝量:

.数据类型 数据类型1 .成员 uid, 文本型 .成员 粉丝量, 整数型 .成员 点赞量, 整数型 .成员 是否蓝V, 逻辑型
.DLL命令 InternetGetCookieEx, 逻辑型, "wininet.dll", "InternetGetCookieExA" .参数 lpszUrl, 文本型 .参数 lpszCookieName, 文本型 .参数 lpszCookieData, 文本型 .参数 lpdwSize, 整数型, 传址 .参数 dwFlags, 整数型 .参数 lpReserved, 整数型
.子程序 __启动窗口_创建完毕 超文本浏览框1.静默 = 真 编辑框_浏览器路径.内容 = 取运行目录 () + "\chrome.exe" 浏览器路径 = 编辑框_浏览器路径.内容 编辑框_CK.内容 = "" 当前CK = ""
.子程序 _按钮_获取CK_被单击 .局部变量 当前URL, 文本型 当前URL = 超文本浏览框1.地址 .如果真 (寻找文本 (当前URL, "douyin.com", , 假) ≠ -1) 当前CK = 获取抖音Cookie(当前URL) 编辑框_CK.内容 = 当前CK 信息框 ("Cookie获取成功!", 0, , ) .否则 信息框 ("请先访问抖音网站!", 0, , ) .如果真结束
.子程序 获取抖音Cookie, 文本型 .参数 目标URL, 文本型 .局部变量 cookie长度, 整数型 .局部变量 cookie数据, 文本型 .局部变量 标志, 整数型 标志 = 8192 ' INTERNET_COOKIE_HTTPONLY cookie长度 = 2048 cookie数据 = 取空白文本 (cookie长度) .如果真 (InternetGetCookieEx(目标URL, 0, cookie数据, cookie长度, 标志, 0)) 返回 (取文本左边 (cookie数据, cookie长度)) .否则 返回 ("") .如果真结束
.子程序 _按钮_开始_被单击 .如果真 (当前CK = "") 信息框 ("请先获取Cookie!", 0, , ) 返回 () .如果真结束 是否停止 = 假 当前关键词 = 编辑框_关键词.内容 线程_启动 (&采集主流程)
.子程序 采集主流程 .局部变量 当前页数, 整数型 .局部变量 最后高度, 整数型 .局部变量 新高度, 整数型
超文本浏览框1.跳转 ("https://www.douyin.com/search/" + 当前关键词 + "?type=user", , ) 等待网页加载完成 () 处理CK注入 () ' 注入获取到的Cookie
.判断循环首 (是否停止 = 假) 处理数据 () 最后高度 = 超文本浏览框1.取网页高度 () 执行滚动 () 延时 (2000) 等待网页加载完成 () 新高度 = 超文本浏览框1.取网页高度 () .如果 (新高度 = 最后高度) 跳出循环 () .否则 最后高度 = 新高度 .如果结束 .判断循环尾 ()
.子程序 处理CK注入 .局部变量 js代码, 文本型 js代码 = "document.cookie = '" + 当前CK + "';" 超文本浏览框1.执行脚本 (js代码)
.子程序 处理数据 .局部变量 网页源码, 文本型 .局部变量 数据数组, 文本型, , "0" .局部变量 i, 整数型 .局部变量 临时数据, 数据类型1
网页源码 = 超文本浏览框1.取网页源码 () ' 示例解析逻辑(需根据实际结构修改): ' 数据数组 = 正则_匹配批量(网页源码, "uid:(\w+).*?粉丝量:
