.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 窗口, 窗口类, , "0" .程序集变量 句柄, 整数型, , "0" .程序集变量 按钮, 按钮类, , "0" .程序集变量 编辑框, 编辑框类, , "0" .程序集变量 个数, 整数型 .程序集变量 第几个, 整数型 .子程序 _按钮1_被单击 ' 本源码来自三叶资源网(www.sanye.cx) 个数 ＝ 个数 ＋ 1 重定义数组 (窗口, 真, 个数) 重定义数组 (按钮, 真, 个数) 重定义数组 (编辑框, 真, 个数) 窗口 [个数].创建 (0, 到文本 (个数), &窗口创建完毕, , , , 300, 500, , , , , , 真) .子程序 窗口创建完毕 .参数 hWnd, 整数型 调试输出 (hWnd) 加入成员 (句柄, hWnd) 窗口 [个数].事件_被激活 (&窗口被激活) 按钮 [个数].创建 (hWnd, “我是按钮哦~”, , , 20, 50, 100, 50, ) 按钮 [个数].事件_被单击 (&按钮单机) 编辑框 [个数].创建 (hWnd, “”, #编辑框_多行显示, 20, 200, 200, 200, ) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 窗口被激活 .局部变量 hWnd, 整数型 .局部变量 i, 整数型 hWnd ＝ GetForegroundWindow () .计次循环首 (取数组成员数 (句柄), i) .如果真 (句柄 [i] ＝ hWnd) 第几个 ＝ i 跳出循环 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () 调试输出 (hWnd, 第几个) .子程序 按钮单机 ' 本源码来自三叶资源网(www.sanye.cx) 编辑框 [第几个].内容 (“我是第” ＋ 到文本 (第几个) ＋ “个哦~”) 信息框 (“我是第” ＋ 到文本 (第几个) ＋ “个哦~”, 0, ) .子程序 __启动窗口_创建完毕