各位高人来帮我看看这个小程序

batmanpy

自己写了个 模拟按键的程序，先注册热键，按相应热键后 ，自动复制编辑框 里的相应内容到网页浏览器的回复栏，并自动按组合键ctrl+回车键，达到自动回复论坛的目的，
11111.zip (123.43 KB, 下载次数: 15)

2011-3-7 16:05 上传

点击文件名下载附件
现在按热键后，能复制相应内容到回复栏，但不能实现按组合键的效果
请各位高手帮忙看看，谢谢

jtg827

按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )


按组合键 (#回车键,#Ctrl键, , )

batmanpy

.版本 2
.支持库 shellEx
.支持库 spec

.程序集 窗口程序集1
.程序集变量 热键停止
.程序集变量 热键F2
.程序集变量 热键F3
.程序集变量 热键F4
.程序集变量 热键F5
.程序集变量 热键F6
.程序集变量 热键F7
.程序集变量 热键F8
.程序集变量 热键F9
.程序集变量 热键F10
.程序集变量 热键F11
.程序集变量 回车状态, 逻辑型

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型


回车状态 ＝ 选择框1.选中
.如果 (参数一 ＝ 热键F2)
    标签1.标题 ＝ 回复列表框.取项目文本 (0)
    内容变量 ＝ 回复列表框.取项目文本 (0)
    文本投递 (取焦点句柄 (), 内容变量)
    .判断开始 (回车状态 ＝ 真)
        按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
    .默认

    .判断结束
    处理事件 ()
.否则
    .如果 (参数一 ＝ 热键F3)
        标签1.标题 ＝ 回复列表框.取项目文本 (1)
        内容变量 ＝ 回复列表框.取项目文本 (1)
        文本投递 (取焦点句柄 (), 内容变量)
        .判断开始 (回车状态 ＝ 真)
            按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
        .默认

        .判断结束

        处理事件 ()

    .否则
        .如果 (参数一 ＝ 热键F4)
            标签1.标题 ＝ 回复列表框.取项目文本 (2)
            内容变量 ＝ 回复列表框.取项目文本 (2)
            文本投递 (取焦点句柄 (), 内容变量)
            .判断开始 (回车状态 ＝ 真)
                按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
            .默认

            .判断结束

            处理事件 ()

        .否则
            .如果 (参数一 ＝ 热键F5)
                标签1.标题 ＝ 回复列表框.取项目文本 (3)
                内容变量 ＝ 回复列表框.取项目文本 (3)
                文本投递 (取焦点句柄 (), 内容变量)
                .判断开始 (回车状态 ＝ 真)
                    按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                .默认

                .判断结束

                处理事件 ()

            .否则
                .如果 (参数一 ＝ 热键F6)
                    标签1.标题 ＝ 回复列表框.取项目文本 (4)
                    内容变量 ＝ 回复列表框.取项目文本 (4)
                    文本投递 (取焦点句柄 (), 内容变量)
                    .判断开始 (回车状态 ＝ 真)
                        按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                    .默认

                    .判断结束

                    处理事件 ()
                .否则
                    .如果 (参数一 ＝ 热键F7)
                        标签1.标题 ＝ 回复列表框.取项目文本 (5)
                        内容变量 ＝ 回复列表框.取项目文本 (5)
                        文本投递 (取焦点句柄 (), 内容变量)
                        .判断开始 (回车状态 ＝ 真)
                            按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                        .默认

                        .判断结束

                        处理事件 ()
                    .否则
                        .如果 (参数一 ＝ 热键F8)
                            标签1.标题 ＝ 回复列表框.取项目文本 (6)
                            内容变量 ＝ 回复列表框.取项目文本 (6)
                            文本投递 (取焦点句柄 (), 内容变量)
                            .判断开始 (回车状态 ＝ 真)
                                按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                            .默认

                            .判断结束

                            处理事件 ()
                        .否则
                            .如果 (参数一 ＝ 热键F9)
                                标签1.标题 ＝ 回复列表框.取项目文本 (7)
                                内容变量 ＝ 回复列表框.取项目文本 (7)
                                文本投递 (取焦点句柄 (), 内容变量)
                                .判断开始 (回车状态 ＝ 真)
                                    按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                                .默认

                                .判断结束

                                处理事件 ()
                            .否则
                                .如果 (参数一 ＝ 热键F10)
                                    标签1.标题 ＝ 回复列表框.取项目文本 (8)
                                    内容变量 ＝ 回复列表框.取项目文本 (8)
                                    文本投递 (取焦点句柄 (), 内容变量)
                                    .判断开始 (回车状态 ＝ 真)
                                        按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                                    .默认

                                    .判断结束

                                    处理事件 ()
                                .否则
                                    .如果 (参数一 ＝ 热键F11)
                                        标签1.标题 ＝ 回复列表框.取项目文本 (9)
                                        内容变量 ＝ 回复列表框.取项目文本 (9)
                                        文本投递 (取焦点句柄 (), 内容变量)
                                        .判断开始 (回车状态 ＝ 真)
                                            按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
                                        .默认

                                        .判断结束

                                        处理事件 ()
                                    .否则
                                        .如果 (参数一 ＝ 热键停止)
                                            标签1.标题 ＝ “热键停止”
                                            ' 撤销热键 (标签1.取窗口句柄 (), 热键停止)
                                            处理事件 ()
                                        .否则

                                        .如果结束


                                    .如果结束

                                .如果结束

                            .如果结束

                        .如果结束

                    .如果结束

                .如果结束

            .如果结束

        .如果结束

    .如果结束

.如果结束


.子程序 __启动窗口_创建完毕

热键停止 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)
热键F2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
热键F3 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)
热键F4 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)
热键F5 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键)
热键F6 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)
热键F7 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F7键)
热键F8 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键)
热键F9 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
热键F10 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
热键F11 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键)
调用子程序 (&_载入按钮_被单击, , , )

.子程序 _修改当前文本按钮_被单击

.如果 (回复列表框.现行选中项 ＜ 0)
    信息框 (“请选择一个项目”, 0, )
.否则
    回复列表框.置项目文本 (回复列表框.现行选中项, 输入编辑框.内容)
.如果结束


.子程序 _保存按钮_被单击
.局部变量 i, 整数型
.局部变量 文本, 文本型

.计次循环首 (回复列表框.取项目数 (), i)
    文本 ＝ 文本 ＋ 回复列表框.取项目文本 (i － 1) ＋ #换行符
    写到文件 (取运行目录 () ＋ “\” ＋ “项目文本.txt”, 到字节集 (文本))
.计次循环尾 ()

.子程序 _载入按钮_被单击
.局部变量 文本1, 文本型
.局部变量 项目数组, 文本型, , "0"
.局部变量 j, 整数型

.如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ “项目文本.txt”))
    文本1 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “项目文本.txt”))
    项目数组 ＝ 分割文本 (文本1, #换行符, )

    .计次循环首 (取数组成员数 (项目数组), j)
        .判断开始 (j ≥ 11 或 回复列表框.取项目数 () ≥ 10)
            跳出循环 ()
        .默认

        .判断结束
        回复列表框.加入项目 (项目数组 [j], )
    .计次循环尾 ()
.如果真结束


.子程序 _清空按钮_被单击

回复列表框.清空 ()


.子程序 __启动窗口_将被销毁

调用子程序 (&_保存按钮_被单击, , , )


.子程序 _清空修改框_被单击

输入编辑框.内容 ＝ “”


.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

载入 (窗口1, , 真)

战斗舞者

我是菜鸟  只能帮你顶一下  那么复杂的源码还看不懂

876818134

好难看懂啊

batmanpy

按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )


按组合键 (#回车键,#Ctrl键, , )
jtg827 发表于 2011-3-7 16:05

    谢谢高手指点！