.版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集_窗口1
.程序集变量 C_QQWindow, 整数型, , "0"
.程序集变量 C_WindowHwnd, 整数型

.子程序 _窗口1_创建完毕
Info_Date (取运行目录 () ＋ “\快捷回复.txt”)
.子程序 lpEnumFunc, 整数型
.参数 NowHwnd, 整数型
.参数 PmtAdd_, 整数型
.局部变量 tmp_ClassName, 文本型
.局部变量 tmp_Text, 文本型
tmp_ClassName ＝ 取空白文本 (255)
tmp_Text ＝ 取空白文本 (255)
GetClassName_ (NowHwnd, tmp_ClassName, 255)
GetWindowTextA (NowHwnd, tmp_Text, 255)
.if (tmp_ClassName ＝ “TXGuiFoundation”)
.if (tmp_Text ≠ “” 且 tmp_Text ≠ “TXMenuWindow” 且 tmp_Text ≠ “QQ”)
调试输出 (NowHwnd, tmp_ClassName, tmp_Text)
加入成员 (C_QQWindow, NowHwnd)
.如果真结束
.如果真结束
return (NowHwnd)
.子程序 NowWindow
.局部变量 Rect, Rect
.局部变量 Count, 整数型
.局部变量 tmp_WindowHwnd, 整数型
清除数组 (C_QQWindow)
EnumWindows (到整数 (&lpEnumFunc), 100)
tmp_WindowHwnd ＝ GetForegroundWindow ()
.if (tmp_WindowHwnd ＝ 窗口1.取窗口句柄 ())
输出调试文本 (“This window is mine.”)
return ()
.如果真结束
.counter (取数组成员数 (C_QQWindow), Count)
.if (C_QQWindow [Count] ＝ tmp_WindowHwnd)
GetWindowRect (tmp_WindowHwnd, Rect)
C_WindowHwnd ＝ C_QQWindow [Count]
调试输出 (tmp_WindowHwnd, Rect.左边, Rect.顶边, Rect.右边, Rect.底边)
窗口1.可视 ＝ 真
窗口1.移动 (Rect.右边 － 2, Rect.顶边 ＋ 10, , )
return ()
.如果真结束
.CounterLoop ()
窗口1.可视 ＝ 假
.子程序 _时钟1_周期事件
NowWindow ()
.子程序 Info_Date
.参数 Path, 文本型
.局部变量 InDate, 文本型, , "0"
.局部变量 Count, 整数型
InDate ＝ 分割文本 (读入文本 (打开文件 (Path, , ), ), #换行符, )
.counter (取数组成员数 (InDate), Count)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (Count － 1, 0, 到文本 (Count))
超级列表框1.置标题 (Count － 1, 1, InDate [Count])
.CounterLoop ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.if (超级列表框1.现行选中项 ＝ -1)
return ()
.如果真结束
置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))
' 投递信息 (C_WindowHwnd, 7, 0)
' 投递信息 (C_WindowHwnd, #WM_KEYDOWN, 17)
' 投递信息 (C_WindowHwnd, #WM_KEYDOWN, 86)
' 投递信息 (C_WindowHwnd, #WM_KEYUP, 86)
' 投递信息 (C_WindowHwnd, #WM_KEYUP, 17)