TC官方合作论坛

 找回密码
 立即注册
查看: 2135|回复: 6

[已解决] 求大佬帮忙看看

[复制链接]
发表于 2021-2-9 17:29:53 | 显示全部楼层 |阅读模式

马上加入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的  自己改了半天没有反应 秋大佬看看怎么改






回复

使用道具 举报

发表于 2021-2-9 19:21:40 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-9 19:42:35 | 显示全部楼层
1907635162 发表于 2021-2-9 19:21
http://52tc.info/forum.php?mod=viewthread&tid=72376

谢谢  采纳了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-9 20:24:07 | 显示全部楼层
1907635162 发表于 2021-2-9 19:21
http://52tc.info/forum.php?mod=viewthread&tid=72376

大佬为什么 我运行一直要我下载驱动   没反应  难受

回复 支持 反对

使用道具 举报

发表于 2021-2-9 20:25:10 | 显示全部楼层
传说中的大夫 发表于 2021-2-9 20:24
大佬为什么 我运行一直要我下载驱动   没反应  难受

弹出的对话框, 选是就行, 这个很难理解?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-9 20:49:19 | 显示全部楼层
1907635162 发表于 2021-2-9 20:25
弹出的对话框, 选是就行, 这个很难理解?

这个能理解  关键是 他不弹呀  能弹我也不用麻烦您了呀  不知道哪里出了问题
回复 支持 反对

使用道具 举报

发表于 2021-2-13 18:19:09 | 显示全部楼层
如果你只是要打密码可以试试windowsendstring(hwnd,str,type=0) 或大漠乐玩的SendString SendString2
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-29 18:11 , Processed in 0.045733 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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