发个贴，证明我还活着。刚写的小玩意儿，分享下。

艾鱼

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口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))

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

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

揰掵佲

艾鱼

揰掵佲 发表于 2017-2-12 23:30

哈哈哈哈哈。

我真的是油条

我还是看看好了

E小歪

太棒了，感谢楼主，Mrak一下