吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 612|回复: 71

[源码] 输入法自动切换,解决win10,64位重启失效问题

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-23 16:17 | 显示全部楼层 |阅读模式


中文输入法ctrl+shift+1,输入法切换 ctrl+shift


下面为代码:
;封小风20160923,20180129加入鼠标双击反应器20180331增加了快速添加命令20200810解决win10输入法重启失效问题
;英文输入法ctrl+shift
;cad输入法自动切换程序
(vl-load-reactors)
(vl-load-com)
(setq shell (vlax-create-object "WScript.Shell"))
(vlax-invoke shell "SendKeys" "+^1")
(vlax-invoke shell "SendKeys" "+^")
(if (not mouse_reactor) (setq mouse_reactor (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . test11)))))
(defun test11(a b)
        (vlax-invoke shell "SendKeys" "+^1")
)
;;;设计的输入切换命令
;;;x参数命令集合
(defun mlh(c)
        (setq mljh '("FIND" "MTEDIT" "DDEDIT" "TEXT" "TEXTEDIT" "MTEXT" "_saveas"))
        (setq mljh1 (mapcar '(lambda (x) (= (car c) x)) mljh))
        (apply 'or mljh1)
        )
;cad命令输入反应器
(if (not command_reactor)(setq command_reactor
        (vlr-command-reactor NIL '((:vlr-commandWillStart . Test_12)))
))
(defun test_12(a b)
        (if (mlh b)      
                        (progn (vlax-invoke shell "SendKeys" "+^1")
                                )
        (princ)   
        ))
;;取消CAD命令反应器
(if (not command_reactor3)(setq command_reactor3
        (vlr-command-reactor nil '((:vlr-commandCancelled . Test2)))
))

(defun Test2(a b)
        (if (mlh b)                       
                        (progn (vlax-invoke shell "SendKeys" "+^1")
                                (vlax-invoke shell "SendKeys" "+^")
                              
                        )
        (princ)

        ))
;;;无法完成CAD命令反应器
(if (not command_reactor2)(setq command_reactor2
        (vlr-command-reactor nil '((:vlr-commandFailed . Test5)))
))

(defun Test5(a b)
        (if (mlh b)               
                        (progn (vlax-invoke shell "SendKeys" "+^1")
                                (vlax-invoke shell "SendKeys" "+^")
                                 )
        (princ)

        ))
;;;cad命令完成反应器
(if (not command_reactor1)(setq command_reactor1
        (vlr-command-reactor NIL '((:vlr-commandEnded . Test3)))
))
(defun test3(a b)
        (if (not (= (car b) "QSAVE"))
                (progn (vlax-invoke shell "SendKeys" "+^1") ;ctrl+shift+1为中文,ctrl+shift^5为英文
                        (vlax-invoke shell "SendKeys" "+^")
                )
        )
        ;(vlax-invoke shell "SendKeys" "^5")
        (princ)
)  



(defun c:bangzhu()
        (alert "输入法设置ctrl+shift+1为中文,ctrl+shift为英文")
)

评分

参与人数 14HB +9 THX +8 收起 理由
DeeDarrick + 1
agan8888 + 1
pmm018 + 1
boot + 2
risingsun + 1
endbeach + 1 + 1
pupu + 1
king51999 + 1 [快捷评语]--评分=感恩!简单却充满爱!感谢您的作品!
foreversos + 1
531814517 + 1 [通知]学破解论坛即将在近期更名为吾爱汇编论坛WWW.52HB.COM
1561478079 + 1 [快捷评语]--你将受到所有人的崇拜!
jhf123 + 1 [快捷评语]--评分=感恩!简单却充满爱!感谢您的作品!
mxx852 + 1 + 1 [快捷评语]--2021年,我们爱0爱1
Damnie + 1 [快捷评语]--你将受到所有人的崇拜!

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   13.33%

 楼主| zhangmaobo721 发表于 2021-11-23 16:18 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   45%

1250110641 发表于 2021-11-24 00:16 | 显示全部楼层


厉害的知识有阵加了,赶紧学习起来
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   60%

sibaichi 发表于 2021-11-24 01:57 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   10%

justlike 发表于 2021-11-24 16:02 | 显示全部楼层


感谢,学会了
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  在线 

升级   40%

djj1076185529 发表于 2021-11-26 09:06 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

冷酷保卫水壶 发表于 2022-1-22 19:07 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

酷酷就豆芽 发表于 2022-1-22 19:26 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

儒雅方毛衣 发表于 2022-1-22 19:52 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   63.77%

wtOEh5 发表于 2022-1-24 13:34 | 显示全部楼层


不可多得,支持楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-23 19:50 , Processed in 0.357915 second(s), 76 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

快速回复 返回顶部 返回列表