Tencent企点加好友源码

.版本 2
.支持库 spec
.支持库 iext
.支持库 eExcel2000
.支持库 shell

.程序集 窗口程序集_窗口1
.程序集变量 状态, 文本型
.程序集变量 FILE, 整数型

.子程序 _窗口1_创建完毕

CONFIG ＝ 取运行目录 () ＋ “”
FILE ＝ 打开文件 (CONFIG ＋ 到文本 (取日 (取现行时间 ())) ＋ “号操作记录.txt”, 5, 1)
移到文件尾 (FILE)
编辑框time.内容 ＝ 读配置项 (CONFIG ＋ “sz.ini”, “set”, “time”, “3000”)
编辑框ID.内容 ＝ 读配置项 (CONFIG ＋ “sz.ini”, “set”, “ID”, “1”)
窗口1.标题 ＝ 窗口1.标题 ＋ “ 上次记录ID：” ＋ 到文本 (编辑框ID.内容)
调试输出 (文本_加密增强 (“tencent”, “1”, 1))

.子程序 _按钮2_被单击
.局部变量 文件路径, 文本型, , "0"
.局部变量 计次, 整数型

文件路径 ＝ 多文件对话框 (“请选择文件”, “（*.*）|*.TXT”, , , , )
.如果真 (取数组成员数 (文件路径) ＞ 0)
    list.全部删除 ()
    .计次循环首 (取数组成员数 (文件路径), 计次)
        导入文本 (文件路径 [计次])
    .计次循环尾 ()
.如果真结束


.子程序 导入文本
.参数 FileS, 文本型
.局部变量 xx, 整数型
.局部变量 str, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 I
.局部变量 N
.局部变量 ARR2, 文本型, , "0"

str ＝ 到文本 (读入文件 (FileS))
str ＝ 文本_删除空行 (str)
arr ＝ 分割文本 (str, #换行符, )
I ＝ 取数组成员数 (arr)
.计次循环首 (I, N)
    xx ＝ list.插入表项 (-1, 到文本 (list.取表项数 () ＋ 1), , , , )
    list.置标题 (xx, 1, arr [N])
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 hwnd, 整数型

EnumWindows (&获取句柄, 0)

.子程序 保存EXCL
.参数 FILES, 文本型
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
.局部变量 st, 文本型

' Excel程序1.创建 ()
载入 (窗口_导出进度, 窗口1, 假)
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 ＝ 1
局部_导出头 ＝ { “姓名”, “手机号” }
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
    Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
    Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
    Excel工作簿1.内容格式 ＝ “@”
    Excel工作簿1.内容 ＝ 局部_导出头 [局部_计次1]
.计次循环尾 ()
窗口_导出进度.进度条1.最大位置 ＝ list.取表项数 ()
' 调试输出 (取数组成员数 (局部_导出头))
' 暂停 ()
.计次循环首 (list.取表项数 (), 局部_计次)
    处理事件 ()
    .计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
        Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
        Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
        Excel工作簿1.内容格式 ＝ “@”
        st ＝ list.取标题 (局部_计次, 局部_计次1)
        Excel工作簿1.内容 ＝ st
    .计次循环尾 ()
    窗口_导出进度.进度条1.位置 ＝ 窗口_导出进度.进度条1.位置 ＋ 1
.计次循环尾 ()
.如果真 (是否已创建 (窗口_导出进度))
    窗口_导出进度.销毁 ()
.如果真结束
Excel工作簿1.保存 (FILES)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
信息框 (“导出成功!”, #信息图标, , )
执行 (4, FILES, , , )

.子程序 保存到EXCL
.参数 FILES, 文本型
.局部变量 bool, 逻辑型
.局部变量 str, 文本型
.局部变量 行数, 整数型
.局部变量 列数, 整数型
.局部变量 始行, 整数型
.局部变量 始列, 整数型
.局部变量 数据范围, 对象
.局部变量 行对象, 对象
.局部变量 列对象, 对象
.局部变量 单元格对象, 对象
.局部变量 工作簿对象, 对象
.局部变量 N, 整数型
.局部变量 ARR, 文本型, , "0"
.局部变量 N2, 整数型
.局部变量 xx, 整数型

' Excel工作簿1.置程序 (Excel程序1)
' Excel工作簿1.激活工作簿 ()
' Excel工作簿1.打开 (FILES)
' Excel工作簿1.表格序号 ＝ 1
' 工作簿对象 ＝ Excel工作簿1.取表格对象 ()
' 数据范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
' 行对象 ＝ 数据范围.读对象型属性 (“Rows”, )
' 行数 ＝ 行对象.读数值属性 (“Count”, )
' 列对象 ＝ 数据范围.读对象型属性 (“Columns”, )
' 列数 ＝ 列对象.读数值属性 (“Count”, )
' 始行 ＝ 行对象.读数值属性 (“Row”, )
' 始列 ＝ 列对象.读数值属性 (“Column”, )
' 调试输出 (行数, 列数, 始行, 始列)
' Excel工作簿1.关闭 ()
' Excel工作簿1.释放 ()
' Excel程序1.退出 ()
' Excel程序1.释放 ()

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

线程_启动 (&work, 到整数 (编辑框ID.内容))

.子程序 work
.参数 index, 整数型
.局部变量 I
.局部变量 n
.局部变量 QQ, 文本型
.局部变量 retn, 文本型
.局部变量 当前, 整数型

I ＝ list.取表项数 ()
.如果真 (I ＝ 0)
    信息框 (“请先导入帐号”, 0, , 窗口1.取窗口句柄 ())
    返回 ()
.如果真结束
I ＝ I － index
.计次循环首 (I, n)
    .如果真 (exit)
        信息框 (“软件已经被你停止”, 0, , 窗口1.取窗口句柄 ())
        返回 ()
    .如果真结束
    当前 ＝ n － 1 ＋ index
    QQ ＝ list.取标题 (当前, 1)
    调试输出 (QQ)
    retn ＝ 添加好友 (QQ)
    _延时 (到整数 (编辑框time.内容))
    list.置标题 (当前, 2, retn)
    写文本行 (FILE, QQ ＋ “----” ＋ retn)
    list.保证显示 (n ＋ 1)
    编辑框ID.内容 ＝ 到文本 (当前)
    写配置项 (CONFIG ＋ “sz.ini”, “set”, “ID”, 编辑框ID.内容)
.计次循环尾 ()
信息框 (“全部操作完成”, 0, , 窗口1.取窗口句柄 ())

.子程序 添加好友, 文本型
.参数 QQ, 文本型
.局部变量 ret, 文本型
.局部变量 hwnd, 整数型
.局部变量 URL, 文本型

' 运行 (“cmd.exe tencent://message/?Menu=yes&uin=” ＋ QQ ＋ “&Site=&Service=300&sigT=45a1e5847943b64c6ff3990f8a9e644d2b31356cb0b4ac6b24663a3c8dd0f8aa12a595b1714f9d45”, 假, )
' URL ＝ “tencent://message/?Menu=yes&uin=” ＋ QQ ＋ “&Site=&Service=300&sigT=45a1e5847943b64c6ff3990f8a9e644d2b31356cb0b4ac6b24663a3c8dd0f8aa12a595b1714f9d45”
置入代码 ({ 235, 7, 83, 69, 66, 69, 71, 78, 85 })  ' SE过程加密开始
URL ＝ 网络控制返回 ＋ “://message/?Menu=yes&uin=” ＋ QQ ＋ “&Site=&Service=300&sigT=45a1e5847943b64c6ff3990f8a9e644d2b31356cb0b4ac6b24663a3c8dd0f8aa12a595b1714f9d45”
网页_打开指定网址 (URL)
_延时 (500)
EnumWindows (&获取句柄, 0)
返回 (状态)
置入代码 ({ 235, 7, 83, 69, 69, 78, 68, 80, 0 })

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

添加好友 (“1249190021”)

.子程序 获取句柄, 整数型
.参数 hwnd, 整数型
.参数 马甲, 文本型
.局部变量 temp, 整数型
.局部变量 ret, 文本型
.局部变量 class, 文本型
.局部变量 title, 文本型
.局部变量 lpRect, 精易_矩形
.局部变量 X, 整数型
.局部变量 Y, 整数型

状态 ＝ “失败”
.如果真 (hwnd ≠ 0)
    连续赋值 (取空白文本 (255), title, class)
    GetWindowTextA (hwnd, title, 255)
    GetClassNameA (hwnd, class, 255)
    .如果真 (title ≠ “” 且 class ＝ “TXGuiFoundation”)
        .判断开始 (title ＝ “腾讯企点” 或 title ＝ “TXMenuWindow”)
            返回 (1)
        .判断 (title ＝ “AnJone” 或 title ＝ “NewBizHidden”)
            返回 (1)
        .默认
            调试输出 (title, hwnd)
            PostMessagexy (hwnd, 501, 178, 1, 200)
            状态 ＝ “成功”
            窗口_关闭 (hwnd)
            返回 (0)
        .判断结束

    .如果真结束
    返回 (1)
.如果真结束
返回 (1)

.子程序 _窗口1_将被销毁

写配置项 (CONFIG ＋ “sz.ini”, “set”, “time”, 编辑框time.内容)

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

exit ＝ 真

.子程序 _窗口1_首次激活

置入代码 ({ 235, 7, 83, 69, 66, 69, 71, 78, 85 })
线程_启动 (&Getdatebin)
置入代码 ({ 235, 7, 83, 69, 69, 78, 68, 80, 0 })

@qq54222717