3293人阅读
Const&vbKeyLButton&=&1&&
Const&vbKeyRButton&=&2&&
Const&vbKeyCancel&=&3&
Const&vbKeyMButton&=&4&&
Const&vbKeyBack&=&8&
Const&vbKeyTab&=&9&&
Const&vbKeyClear&=&12&
Const&vbKeyReturn&=&13&&
Const&vbKeyShift&=&16&
Const&vbKeyConterol&=&17&
Const&vbKeyMenu&=&18&
Const&vbKeyPause&=&19&
Const&vbKeyCapital&=&20&
Const&vbKeyEscape&=&27&&
Const&vbKeySpace&=&32&
Const&vbKeyPageUp&=&33&&
Const&vbKeyPageDown&=&34&
Const&vbKeyEnd&=&35&
Const&vbKeyHome&=&36&
Const&vbKeyLeft&=&37&
Const&vbKeyUp&=&38&&
Const&vbKeyRight&=&39&
Const&vbKeyDown&=&40&
Const&vbKeySelect&=&41&&
Const&vbKeyPrint&=&42&
Const&vbKeyExecute&=&43&
Const&vbKeySnapshot&=&44&
Const&vbKeyInser&=&45&
Const&vbKeyDelete&=&46&&
Const&vbKeyHelp&=&47&
Const&vbKey0&=&48&
Const&vbKey1&=&49&
Const&vbKey2&=&50&
Const&vbKey3&=&51&
Const&vbKey4&=&52&
Const&vbKey5&=&53&
Const&vbKey6&=&54&
Const&vbKey7&=&55&
Const&vbKey8&=&56&
Const&vbKey9&=&57&
Const&vbKeyA&=&65&
Const&vbKeyB&=&66&
Const&vbKeyC&=&67&
Const&vbKeyD&=&68&
Const&vbKeyE&=&69&
Const&vbKeyF&=&70&
Const&vbKeyG&=&71&
Const&vbKeyH&=&72&
Const&vbKeyI&=&73&
Const&vbKeyJ&=&74&
Const&vbKeyK&=&75&
Const&vbKeyL&=&76&
Const&vbKeyM&=&77&
Const&vbKeyN&=&78&
Const&vbKeyO&=&79&
Const&vbKeyP&=&80&
Const&vbKeyQ&=&81&
Const&vbKeyR&=&82&
Const&vbKeyS&=&83&
Const&vbKeyT&=&84&
Const&vbKeyU&=&85&
Const&vbKeyV&=&86&
Const&vbKeyW&=&87&
Const&vbKeyX&=&88&
Const&vbKeyY&=&89&
Const&vbKeyZ&=&90&
Const&vbKeyNum0&=&96&
Const&vbKeyNum1&=&97&
Const&vbKeyNum2&=&98&
Const&vbKeyNum3&=&99&
Const&vbKeyNum4&=&100&
Const&vbKeyNum5&=&101&
Const&vbKeyNum6&=&102&
Const&vbKeyNum7&=&103&
Const&vbKeyNum8&=&104&
Const&vbKeyNum9&=&105&
Const&vbKeyMultiply&=&106&
Const&vbKeyAdd&=&107&
Const&vbKeySeparator&=&108&&
Const&vbKeySubtract&=&109&
Const&vbKeyDecimal&=&110&
Const&vbKeyDivide&=&111&
Const&vbKeyF1&=&112&
Const&vbKeyF2&=&113&
Const&vbKeyF3&=&114&
Const&vbKeyF4&=&115&
Const&vbKeyF5&=&116&
Const&vbKeyF6&=&117&&&&&
Const&vbKeyF7&=&118&
Const&vbKeyF8&=&119&
Const&vbKeyF9&=&120&
Const&vbKeyF10&=&121&
Const&vbKeyF11&=&122&
Const&vbKeyF12&=&123&
Const&vbKeyF13&=&124&
Const&vbKeyF14&=&125&
Const&vbKeyF15&=&126&
Const&vbKeyF16&=&127&
Const&vbKeyNumlock&=&144&
Const KEYEVENTF_KEYUP = &H2
Private&Declare&Sub&keybd_event&Lib&"user32"&(ByVal&bVk&As&Byte,&ByVal&Scan&As&Byte,&ByVal&dwFlags&As&Long,&ByVal&dwExtraInfo&As&Long)
Private&Declare&Function&GetAsyncKeyState&Lib&"user32"&(ByVal&vkey&As&Long)&As&Integer
Private&Declare&Function&MapVirtualKey&Lib&"user32"&Alias&"MapVirtualKeyA"&(ByVal&wCode&As&Long,&ByVal&wMapType&As&Long)&As&Long&&&&
Private&Declare&Function&GetKeyState&Lib&"user32"&(ByVal&nVirtKey&As&Integer)&As&Integer&&&&
Private&Declare&Sub&Sleep&Lib&"kernel32"&(ByVal&dwMilliseconds&As&Long)
Private&Declare&Function&GetKeyboardLayoutList&Lib&"user32"&(ByVal&nBuff&As&Long,&lpList&As&Long)&As&Long&&&
Private&Declare&Function&ImmGetDescription&Lib&"imm32.dll"&Alias&"ImmGetDescriptionA"&(ByVal&hkl&As&Long,&ByVal&lpsz&As&String,&ByVal&uBufLen&As&Long)&As&Long
Private&Declare&Function&ImmIsIME&Lib&"imm32.dll"&(ByVal&hkl&As&Long)&As&Long&&&
Private&Declare&Function&ActivateKeyboardLayout&Lib&"user32"&(ByVal&hkl&As&Long,&ByVal&flags&As&Long)&As&Long&&&
Private&Declare&Function&GetKeyboardLayout&Lib&"user32"&(ByVal&dwLayout&As&Long)&As&Long&&&&
Private&Declare&Function&GetKeyboardLayoutName&Lib&"user32"&Alias&"GetKeyboardLayoutNameA"&(ByVal&pwszKLID&As&String)&As&Long
Private&Declare&Function&LoadKeyboardLayout&Lib&"user32"&Alias&"LoadKeyboardLayoutA"&(ByVal&pwszKLID&As&String,&ByVal&flags&As&Long)&As&Long
&&&&&&&&&&
&&&&&&&&&&Const KLF_REORDER = &H8
&&&&&&&&&&Private&NoOfKBDLayout&&&&&As&Long,&i&&&&&&&As&Long,&j&&&&&&&As&Long
&&&&&&&&&&Private&hKB(24)&&&&&As&Long,&BuffLen&&&&&&&As&Long
&&&&&&&&&&Private&Buff&&&&&As&String
&&&&&&&&&&Private&RetStr&&&&&As&String
&&&&&&&&&&Private&RetCount&&&&&As&Long
&&&&&&&&&&Private&kln&&&&&As&String
&&&&&&&&&&Private&hCurKBDLayout&As&Variant
&&&&&&&&&&
Private&Sub&set_kb_en()
&&&&&&&&&&Buff&=&String(255,&0)
&&&&&&&&&&hCurKBDLayout&=&GetKeyboardLayout(0)&&&&&&&
&&&&&&&&&&NoOfKBDLayout&=&GetKeyboardLayoutList(25,&hKB(0))&&&&&&&&&
&&&&&&&&&&
&&&&&&&&&&For&i&=&1&To&NoOfKBDLayout
&&&&&&&&&&&&If&ImmIsIME(hKB(i&-&1))&=&1&Then&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&BuffLen&=&255
&&&&&&&&&&&&&&&&RetCount&=&ImmGetDescription(hKB(i&-&1),&Buff,&BuffLen)
&&&&&&&&&&&&&&&&RetStr&=&Left(Buff,&RetCount)
&&&&&&&&&&&&&&&&Debug.Print&i&&&":"&&&RetStr
&&&&&&&&&&&&Else
&&&&&&&&&&&&&&&&RetStr&=&"English&&&(American)"&&&&&&&
&&&&&&&&&&&&&&&&Debug.Print&i,&RetStr
&&&&&&&&&&&&&&&&ActivateKeyboardLayout&GetKeyboardLayout(hKB(i&-&1)),&0&&&&&&&
&&&&&&&&&&&&End&If
&&&&&&&&&&Next
Private&Sub&set_kb_re()
&&&&&&&&&&
Public&Function&set_key(key_char&As&String)
&&&&Dim&isUper&As&Boolean,&isCapital&As&Boolean,&isShift&As&Boolean
&&&&Dim&key_CH&As&String
&&&&key_CH&=&Left(key_char,&1)
&&&&isCapital&=&GetKeyState(vbKeyCapital)&&&&&&&
&&&&isShift&=&IIf(Asc(key_CH)&&=&65&And&Asc(key_CH)&&=&90&And&isCapital&=&False,&True,&False)
&&&&isShift&=&isShift&Or&IIf(Asc(key_CH)&&=&Asc("a")&And&Asc(key_CH)&&=&Asc("z")&And&isCapital&=&True,&True,&False)
&&&&If&Len(key_char)&=&0&Then&Call&set_kb_re:&Exit&Function&&&&&
&&&&key_CH&=&Asc(UCase(key_CH))&
&&&&If&isUper&Xor&isCapital&Then&
&&&&&&&&keybd_event&vbKeyShift,&MapVirtualKey(vbKeyShift,&0),&0,&0
&&&&&&&&Sleep&5
&&&&End&If
&&&&keybd_event&key_CH,&MapVirtualKey(key_CH,&0),&0,&0
&&&&Sleep&10
&&&&keybd_event&key_CH,&MapVirtualKey(key_CH,&0),&KEYEVENTF_KEYUP,&0
&&&&&&&&Sleep&5
&&&&If&isUper&Xor&isCapital&Then&
&&&&&&&&keybd_event&vbKeyShift,&MapVirtualKey(vbKeyShift,&0),&KEYEVENTF_KEYUP,&0
&&&&&&&&Sleep&5
&&&&End&If
&&&&If&Len(key_char)&=&1&Then&set_key&=&Chr(key_CH):&&Call&set_kb_re:&Exit&Function&
&&&&set_key&=&Chr(key_CH)&&&set_key(Mid(key_char,&2))&&&
End&Function
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：130385次
积分：1702
积分：1702
排名：第18244名
原创：43篇
转载：37篇
评论：18条
(1)(1)(13)(1)(1)(3)(1)(1)(4)(1)(2)(3)(1)(4)(1)(2)(1)(4)(22)(1)(7)(2)(2)(1)2015年专技人员公需科目培训(初级)题库(继续教育培训考试)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
2015年专技人员公需科目培训(初级)题库(继续教育培训考试)
上传于||文档简介
&&21年​专​技​人​员​公​需​科​目​培​训​(​初​级​)
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩11页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢麻醉规培医生轮转安排表_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
麻醉规培医生轮转安排表
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢钱塘传奇 第40集
兄弟CP虐成狗
《士兵突击》原班人马
不可能完成 为什么要完成
有颜又有料 百看不腻
愿得一人心 白首不相离
胡歌的CP都在这里了
这是记者还是无敌金刚
快来看张翰娜扎定情作
明家三兄弟齐聚琅琊榜
值得追的武侠剧
高颜值的谍战剧
一半是国党一半是共党
家有仙妻 生活有乐趣
不一样的特工组合
绯闻女孩深海KO大白鲨
法国禁片引爆惊天危机
污辣污辣重口动画
周冬雨马思纯"SM"互虐
周渝民演绎最帅反派
篮球火 炫酷开战
失忆话唠鱼多莉的寻亲路
美臀小蜘蛛大战哥斯拉
战斗民族空中惊险救援
群蛇乱交的森林狂欢
范爷和成龙杠上了
世界最美丽奇特的情色电影
渣男的撩妹攻略
中了莫妮卡的毒