.版本 2
.支持库 ietb
.支持库 spec
.支持库 iext
.支持库 internet
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 页面, 谷歌页面
.程序集变量 ccookiesA, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 是否成功, 逻辑型
.局部变量 谷歌浏览器路径, 文本型
.局部变量 arg, 谷歌启动参数
' 谷歌浏览器都必须初始化, 初始化1() 是简化版的初始化
谷歌浏览器路径 ＝ “C:\Program Files\Google\Chrome Dev\Application\chrome.exe” ' 获取失败需要手动指定浏览器路径
' 谷歌浏览器路径 ＝ 谷歌浏览器.取谷歌浏览器路径 () ' 获取失败需要手动指定浏览器路径
arg.添加参数 (“https://mail.163.com/”, )
' arg.添加参数 (“www.douyin.com”, )
arg.缓存目录 ＝ 取运行目录 () ＋ “\例程缓存目录”
arg.调试端口 ＝ 36125
是否成功 ＝ 谷歌浏览器.初始化 (arg, , , 真, , , , )
.如果真 (是否成功 ＝ 假)
信息框 (格式化文本A (“初始化失败, 错误原因 = %s”, 谷歌浏览器.取最后错误 ()), 0, , )
返回 ()
.如果真结束
输出调试文本 (“浏览器初始化成功”)
' 谷歌浏览器.置回调函数 (&连接回调, )
' 按钮_取页面.禁止 ＝ 假
' 按钮_取页面.禁止 ＝ 假
.子程序 _按钮2_被单击
.局部变量 页面数量, 整数型
.局部变量 cookies, 文本型
.局部变量 页面ID, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 返回数据, 文本型
.局部变量 分割账号ID, 文本型, , "0"
.局部变量 返回的ck, 文本型
页面数量 ＝ 谷歌浏览器.取标签数量 (页面ID)
调试输出 (页面数量)
.计次循环首 (页面数量, i)
页面 ＝ 谷歌浏览器.取页面 (i, )
调试输出 (页面.取标题 ())
返回数据 ＝ 页面.取标题 ()
返回的ck ＝ 页面.获取Cookies (, 真)
.判断开始 (寻找文本 (返回数据, “音”, , 假) ＞ 0)
加入成员 (ccookiesA, 返回的ck)
.默认
.判断结束
.计次循环尾 ()
' 调试输出 (页面ID)
' 如果真 (页面数量 ＝ 0)
' 信息框 (格式化文本A (“获取页面失败, 失败原因 = %s”, 谷歌浏览器.取最后错误 ()), 0, , )
' 返回 ()
' 页面 ＝ 谷歌浏览器.取页面 (1, )
' 调试输出 (页面)
' 页面.附加 (页面ID [1], 真)
' ccookiesA ＝ 页面.获取Cookies (, 真)
' 编辑框1.内容 ＝ ccookiesA
' 页面 ＝ 谷歌浏览器.取页面 (2, )
' 页面.附加 (页面ID [2], 真)
' ccookiesB ＝ 页面.获取Cookies (, 真)
' 编辑框2.内容 ＝ ccookiesB
' 调试输出 (ccookiesA)
.子程序 连接回调, 整数型, , 此回调不是在初始化线程调用, 请注意线程安全
.参数 页面ID, 整数型
.参数 事件类型, 整数型
.参数 附加参数1, 整数型
.参数 附加参数2, 整数型
.如果真 (事件类型 ＜ 256)
返回 (0)
.如果真结束
.判断开始 (事件类型 ＝ #谷歌事件.页面_框架停止加载)
' PostMessageA (取窗口句柄 (), #WM_COMMAND, GetDlgCtrlID (按钮_获取cookie.取窗口句柄 ()), 按钮_获取cookie.取窗口句柄 ()) ' 投递消息是为了在主线程中执行
' _按钮1_被单击 () ' 如果直接调用, 那按钮1被单击的代码就会在这个事件的线程内执行
.默认
.判断结束
返回 (0)
.子程序 _按钮3_被单击
页面 ＝ 谷歌浏览器.取页面 (1, )
页面.添加Cookies (ccookiesA [到整数 (编辑框4.内容)], 真)
.子程序 _按钮7_被单击
.局部变量 分割账号, 文本型, , "0"
.子程序 _按钮8_被单击
.局部变量 返回数据, 文本型
.局部变量 返回的ck, 文本型
.局部变量 文件号, 整数型
页面 ＝ 谷歌浏览器.取页面 (1, )
调试输出 (页面.取标题 ())
返回数据 ＝ 页面.取标题 ()
文件号 ＝ 打开文件 (取运行目录 () ＋ “/账号cookie.txt”, #写出, )
返回的ck ＝ 页面.获取Cookies (, 真)
.判断开始 (寻找文本 (返回数据, “网易”, , 假) ＞ 0)
加入成员 (ccookiesA, 返回的ck)
' 信息框 (“coolie加入成功”, 0, , )
_启动窗口.标题 ＝ “coolie加入成功”
移到文件尾 (文件号)
写出文本 (文件号, 返回的ck ＋ “----------”)
关闭文件 (文件号)
调试输出 (ccookiesA)
标签2.标题 ＝ 到文本 (取数组成员数 (ccookiesA))
id ＝ id ＋ 1
调试输出 (id)
超级列表框1.插入表项 (id － 1, “”, , , , )
超级列表框1.置标题 (id － 1, 0, 到文本 (id))
超级列表框1.置标题 (id － 1, 1, 返回的ck)
.默认
.判断结束
.子程序 _按钮5_被单击
页面 ＝ 谷歌浏览器.取页面 (1, )
页面.清除Cookie ()
.子程序 _按钮4_被单击
.局部变量 数量, 整数型
.局部变量 a, 整数型
.局部变量 发送id, 文本型, , "0"
.局部变量 登录情况, 逻辑型
.局部变量 z, 整数型
.局部变量 cookieAAA, 文本型
.局部变量 记录id, 整数型
.局部变量 分组ck, 文本型, , "0"
.局部变量 当前ck, 文本型
_启动窗口.位置 ＝ 2
发送id ＝ 分割文本 (编辑框5.内容, #换行符, )
页面 ＝ 谷歌浏览器.取页面 (1, )
' 登录情况 ＝ 页面.添加Cookies (ccookiesA [到整数 (编辑框4.内容)], 真)
记录id ＝ 1
cookieAAA ＝ 到文本 (读入文件 (取运行目录 () ＋ “/账号cookie.txt”))
调试输出 (cookieAAA)
分组ck ＝ 分割文本 (cookieAAA, “----------”, )
_启动窗口.标题 ＝ “登录成功”
.计次循环首 (取数组成员数 (分组ck), a)
调试输出 (取数组成员数 (分组ck))
当前ck ＝ 分组ck [a]
页面 ＝ 谷歌浏览器.取页面 (1, )
登录情况 ＝ 页面.添加Cookies (当前ck, 真)
.判断开始 (登录情况 ＝ 真)
_启动窗口.标题 ＝ “登录成功了”
延迟 (1000)
.计次循环首 (取数组成员数 (发送id) ÷ 取数组成员数 (分组ck), z)
记录id ＝ 记录id ＋ 1
标签6.标题 ＝ 到文本 (记录id)
页面.浏览网页 (“https://www.douyin.com/user/” ＋ 发送id [记录id], 真)
延迟 (3000)
_按钮6_被单击 ()
延迟 (2000)
.计次循环尾 ()
.默认
.判断结束
.计次循环尾 ()
.子程序 _按钮6_被单击
.局部变量 搜索框, 网页元素
.局部变量 按钮, 网页元素, , "0"
.局部变量 a, 整数型
.局部变量 源码, 文本型
.局部变量 v, 整数型
.局部变量 私信源码, 网页元素, , "0"
.局部变量 g, 整数型
.局部变量 源码B, 文本型
.局部变量 话术, 文本型, , "0"
话术 ＝ 分割文本 (编辑框2.内容, #换行符, )
' 搜索框 ＝ 页面.元素_取对象 (编辑框3.内容, , ) ' 选择器方式
' 调试输出 (搜索框.取内容 ())
' 调试输出 (搜索框.取网页源码W ())
' 页面.清除Cookie ()
.子程序 _分组框6_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 cookieAAA, 文本型
.局部变量 分组ck, 文本型, , "0"
.局部变量 文件奥
.判断开始 (文件是否存在 (取运行目录 () ＋ “/账号cookie.txt”) ＝ 真)
_启动窗口.标题 ＝ “cookie文件存在”
cookieAAA ＝ 到文本 (读入文件 (取运行目录 () ＋ “/账号cookie.txt”))
分组ck ＝ 分割文本 (cookieAAA, “----------”, )
调试输出 (cookieAAA)
标签2.标题 ＝ 到文本 (取数组成员数 (分组ck))
.默认
写到文件 (取运行目录 () ＋ “/账号cookie.txt”, 到字节集 (“”))
.判断结束
.子程序 _分组框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
id ＝ 0
.子程序 _按钮9_被单击
.如果 (是否已在线 () ＝ 假)
拨号 (“@”, 编辑框_帐号.内容, 编辑框_密码.内容, , 标签_状态)
.否则
标签_状态.标题 ＝ “已经连接上了，不需要拨号了！”
.如果结束
.子程序 _按钮10_被单击
.局部变量 数量, 整数型
.局部变量 a, 整数型
.局部变量 发送id, 文本型, , "0"
.局部变量 登录情况, 逻辑型
.局部变量 z, 整数型
.局部变量 cookieAAA, 文本型
.局部变量 记录id, 整数型
.局部变量 分组ck, 文本型, , "0"
.局部变量 当前ck, 文本型
.局部变量 账号密码, 文本型, , "0"
.局部变量 邮箱账号, 文本型
.局部变量 邮箱密码, 文本型
.局部变量 u, 整数型
_启动窗口.位置 ＝ 2
发送id ＝ 分割文本 (编辑框5.内容, #换行符, )
页面 ＝ 谷歌浏览器.取页面 (1, )
' 登录情况 ＝ 页面.添加Cookies (ccookiesA [到整数 (编辑框4.内容)], 真)
记录id ＝ 1
.计次循环首 (取数组成员数 (发送id), u)
' '这里加入登录换IP功能
.判断开始 (拨号 (“@”, 编辑框_帐号.内容, 编辑框_密码.内容, , 标签_状态) ＝ 真)
_启动窗口.标题 ＝ “连接成功了”
页面.浏览网页 (“https://mail.163.com/”, 真)
延迟 (10000)
账号密码 ＝ 分割文本 (发送id [u], “----”, )
模拟鼠标点击 (871, 363, )
模拟按键 (#Ctrl键, #A键, )
置剪辑板文本 (账号密码 [1])
模拟按键 (#Ctrl键, #V键, )
延迟 (1000)
置剪辑板文本 (账号密码 [2])
模拟鼠标点击 (863, 425, )
延迟 (1000)
模拟按键 (#Ctrl键, #V键, )
延迟 (1000)
模拟鼠标点击 (981, 538, )
延迟 (10000)
_按钮8_被单击 ()
页面.清除Cookie ()
页面.浏览网页 (“https://mail.163.com/”, 真)
延迟 (10000)
挂断 ()
标签_状态.标题 ＝ “已经成功断开”
.默认
_启动窗口.标题 ＝ “连接失败”
.判断结束
' '这里加入登录和换IP功能
.计次循环尾 ()
.子程序 _按钮11_被单击
挂断 ()
标签_状态.标题 ＝ “已经成功断开”
新库软件 
