.版本 2 .程序集 窗口程序集1 .程序集变量 窗口句柄, 整数型 .程序集变量 默认窗口程序, 子程序指针 .程序集变量 i, 整数型 .子程序 __启动窗口_创建完毕 窗口句柄 ＝ _启动窗口.取窗口句柄 () RegisterHotKey (窗口句柄, 786, 3, #B键) ' Ctrl+Alt+b 默认窗口程序 ＝ 置窗口特征 (窗口句柄, -4, &新窗口程序) .子程序 新窗口程序, 整数型 .参数 窗口句柄, 整数型 .参数 消息, 整数型 .参数 参数1, 整数型 .参数 参数2, 整数型 .如果 (消息 ＝ 786) SendMessageCallback (取窗口句柄 (), 0, 0, 0, &a, 0) 返回 (0) .否则 .如果结束 返回 (执行窗口程序 (默认窗口程序, 窗口句柄, 消息, 参数1, 参数2)) ' 把不需要处理的消息传递给默认窗口处理程序，使窗口能正常响应消息 .子程序 __启动窗口_将被销毁 置窗口特征 (窗口句柄, -4, 默认窗口程序) ' 窗口销毁前置回原来的消息处理程序 .子程序 a 标签1.标题 ＝ 到文本 (i) i ＝ i ＋ 1