九阴真经 团练 按键问题

慈悲的老衲

  谁给翻译下这个按键精灵的源码
sub shibie()
    dm_ret = dm.FindPicEx(308, 540, 696, 586, "a.bmp|w.bmp|d.bmp|s.bmp|j.bmp|k.bmp", "000000", 0.7, 0)   识别的 图片识别
    Delay 300
   (如果) If len(dm_ret) > 0 Then
        dm_ret = dm.SortPosDistance(dm_ret,0,0,0)
        Delay 200
        ss = split(dm_ret,"|")
        index = 0
        //k = 0   
         count= UBound(ss) + 1
        pss=""
        Do While index < count
            TracePrint ss(index)
            sss = split(ss(index),",")
            id = int(sss(0))
            x = int(sss(1))
            y = int(sss(2))
            //dm.MoveTo x, y      
            //ps(k) = sss(1) & "," & sss(0)
            //TracePrint ps(k)
            Delay 60
            //k = k + 1   
            index = index + 1
            Select Case id
            Case 0
                pss = pss & "a"
                //dm.KeyPressChar "a"
                dm.keypress 65
            Case 1
                pss = pss & "w"
                //dm.KeyPressChar "w"
                dm.keypress 87
               
            Case 2
                pss = pss & "d"
                //dm.KeyPressChar "d"
                dm.keypress 68
            Case 3
                pss = pss & "s"
                //dm.KeyPressChar "s"
                dm.keypress 83
            Case 4
                pss = pss & "j"
                //dm.KeyPressChar "j"
                dm.keypress 74
            Case 5
                pss = pss & "k"
                //dm.KeyPressChar "k"
                dm.keypress 75
            End Select
            Delay 30
        Loop
    End If
    Delay 200
    //按字符
    If len(pss) > 0 Then
        TracePrint pss
        //MessageBox pss
        //dm.KeyPressStr pss, 130
        Delay 3000
        pss = ""
        Delay 60000
    End If
End sub

奸商

不知道是什么  先抢下沙发

xxd0818

这个什么意思哦 你把它放进按键里面 有汉语提示的

suntao90

按键精灵已经被检测了