马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Sub KeyList(键码组,模拟方式,毫秒延时)
//例子:Call lib.键盘.KeyList("aA@2?"">.',/|\=-+_)(*&^QAsD",0,50)
//需要注意的是:当输入一个引号时(")必须输入一对("")
//模拟方式:【0普通模拟,1硬件模拟,2超级模拟】
Dim 键码(46)
键码(0) ="a〓A〓65"
键码(1) ="b〓B〓66"
键码(2) ="c〓C〓67"
键码(3) ="d〓D〓68"
键码(4) ="e〓E〓69"
键码(5) ="f〓F〓70"
键码(6) ="g〓G〓71"
键码(7) ="h〓H〓72"
键码(8) ="i〓I〓73"
键码(9) ="j〓J〓74"
键码(10)="k〓K〓75"
键码(11)="l〓L〓76"
键码(12)="m〓M〓77"
键码(13)="n〓N〓78"
键码(14)="o〓O〓79"
键码(15)="p〓P〓80"
键码(16)="q〓Q〓81"
键码(17)="r〓R〓82"
键码(18)="s〓S〓83"
键码(19)="t〓T〓84"
键码(20)="u〓U〓85"
键码(21)="v〓V〓86"
键码(22)="w〓W〓87"
键码(23)="x〓X〓88"
键码(24)="y〓Y〓89"
键码(25)="z〓Z〓90"
键码(26)="`〓~〓192"
键码(27)="1〓!〓49"
键码(28)="2〓@〓50"
键码(29)="3〓#〓51"
键码(30)="4〓$〓52"
键码(31)="5〓%〓53"
键码(32)="6〓^〓54"
键码(33)="7〓&〓55"
键码(34)="8〓*〓56"
键码(35)="9〓(〓57"
键码(36)="0〓)〓48"
键码(37)="-〓_〓189"
键码(38)="=〓+〓187"
键码(39)="[〓{〓219"
键码(40)="]〓}〓221"
键码(41)="\〓|〓220"
键码(42)=";〓:〓186"
键码(43)="'〓""〓222"
键码(44)=",〓<〓188"
键码(45)=".〓>〓190"
键码(46)="/〓?〓191"
//Dim KeyS()
Dim 数量,判断,i,m,n
数量=Len(键码组)
ReDim KeyS(数量)
For i=0 to 数量-1
KeyS(i)=Mid(键码组,i+1,1)
判断=False
For n=0 to 46
MyKeyS=Split(键码(n),"〓")
If KeyS(i)=MyKeyS(0) Then
判断=True
If 模拟方式 = 0 Then
KeyPress Clng(MyKeyS(2)), 1
ElseIf 模拟方式 = 1 Then
KeyPressH Clng(MyKeyS(2)), 1
ElseIf 模拟方式 = 2 Then
KeyPressS Clng(MyKeyS(2)), 1
End If
Exit For
ElseIf KeyS(i)=MyKeyS(1) Then ://需要按住Shift键来模拟
判断=True
If 模拟方式 = 0 Then
KeyDown 16, 1
KeyPress Clng(MyKeyS(2)), 1
KeyUp 16, 1
ElseIf 模拟方式 = 1 Then
KeyDownH 16, 1
KeyPressH Clng(MyKeyS(2)), 1
KeyUpH 16, 1
ElseIf 模拟方式 = 2 Then
KeyDownS 16, 1
KeyPressS Clng(MyKeyS(2)), 1
KeyUpS 16, 1
End If
Exit For
End If
Next
m = Plugin.Sys.GetTime() + 毫秒延时
Do
Delay 5
loop Until Plugin.Sys.GetTime() >= m
If 判断=False Then Exit Sub
Next
End Sub
这是按键输入密码的源码 我想改成tc 的 tc的超级键盘 有些时候无法输入按键精灵的可以 所以我想把按键这个 改成tc的 自己改了半天没有反应 秋大佬看看怎么改
|