求个高手帮忙把按键的代码移植到TC上

xxhuangjiakang1

Set dm = createobject("dm.dmsoft")
TracePrint dm.Ver()
//dm.setPath "C:\cj"
Hwnd = dm.GetMousePointWindow()
dm_rect = dm.BindWindow(Hwnd, "dx2", "windows", "windows", 0)
Delay 1500
If dm_rect = 0 Then
    MessageBox "后台绑定失败"
    EndScript
End If
While True
    dm.KeyPressChar "9"
    Delay 5
    i = 99999999
    While i > 0
            dm.KeyPressChar "U"
            Delay 5
            dm.KeyPressChar "1"
        Delay 5
        dm_ret = dm.CmpColor(733, 709,"7B0000",0.9)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "F1"
        End If
        Delay 5
        dm_ret = dm.CmpColor(682, 722,"21419c",0.9)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "F2"
        End If
        Delay 5
        dm_ret = dm.CmpColor(80, 186,"080852",0.6)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "9"
        End If
        i = i - 1
    Wend
Wend
dm_rect = dm.UnBindWindow()
Delay 1500
If dm_rect = 0 Then
    MessageBox "后台绑定失败"
    EndScript
End If
While True
    dm.KeyPressChar "9"
    i = 99999999
    While i > 0
        Delay 5
        dm_ret = dm.CmpColor(733, 709,"7B0000",0.9)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "F1"
        End If
        Delay 5
        dm_ret = dm.CmpColor(682, 722,"21419c",0.9)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "F2"
        End If
        Delay 5
        dm_ret = dm.CmpColor(80, 186,"080852",0.6)
        If dm_ret = 0 Then
            //MessageBox "相等"
            dm.KeyPressChar "9"
        End If
        i = i - 1
    Wend
Wend
dm_rect = dm.UnBindWindow()
这是按键精灵的源码 求高手帮下帮移到TC上 改怎么写？QQ350903885

fsfsgdg

空间 移植
//默认空间
dm=com("dm.dmsoft")//Set dm = createobject("dm.dmsoft")

function 绑定()
        
        dm.SetPath(辅助.获取资源路径("rc:"))
        dm.SetDict(0,"字库.txt")             //dm.SetPath("c:\")
        
        
        Hwnd=dm.GetMousePointWindow()
        是否成功=dm.BindWindow(Hwnd, "dx2", "windows", "windows", 0)
        
        help.sleep(1500)     //Delay 1500
        
        if(是否成功==0)        //If dm_rect = 0 Then
                help.messagebox("后台绑定失败")//MessageBox "后台绑定失败"
                //EndScript
        else         
                移植.找图()
               
        endif
        
endfunction   

function 找图()  
        while(true)
                x,y
                dm.FindPic(0,0,2000,2000,"1.bmp|2.bmp|3.bmp","000000",0.9,0,x,y)
                if(x>0)
                        help.sleep(50)
                        dm.KeyPress(112) //dm.KeyPressChar "F1"
                        
                        
                endif
                help.sleep(50)
                dm.FindPic(0,0,2000,2000,"1.bmp|2.bmp|3.bmp","000000",0.9,0,x,y)
                if(x>0)
                        help.sleep(50)
                        dm.KeyPress(112) //dm.KeyPressChar "F2"
                        
                        
                endif
                dm.FindPic(0,0,2000,2000,"1.bmp|2.bmp|3.bmp","000000",0.9,0,x,y)
                if(x>0)
                        help.sleep(50)
                        dm.KeyPress(57) //dm.KeyPressChar "9"
                        
                        
                endif
               
               
        endwhile
        dm.UnBindWindow()
    endfunction   
        //开始按钮_点击操作
功能 开始_点击()
        thread.beginthread("移植.绑定","")
功能结束

//退出按钮_点击操作
功能 退出_点击()
        
        辅助.退出()
功能结束

空间结束
//空间结束语句

能帮你的是这么多了，
While True
    dm.KeyPressChar "9"
    Delay 5
    i = 99999999
    While i > 0
        dm.KeyPressChar "U"
        Delay 5
        dm.KeyPressChar "1"
        Delay 5
这部份看不明

xxhuangjiakang1

回复 2楼fsfsgdg的帖子

大哥···为什么全是英文?TC不是中文版的么？我刚才复制进去说是语法错误 你说看不明白的那段是 条件循环+按键U和1

fsfsgdg

回复 3楼xxhuangjiakang1的帖子

我不会按键精灵的源码，打不出来的，你下载这个修改下，照着你的来写的，字库不要的删掉就行了

xxhuangjiakang1

回复 4楼fsfsgdg的帖子

貌似可以 我听到按键响了  但是要点击窗口运行才能绑定窗口  这个TC怎么修改热键啊？都搞晕了怎么不能像按键精灵一样方便设置热键呢

xxhuangjiakang1

回复 4楼fsfsgdg的帖子

热键搞定了  但是又出了一个问题  我那3个是按键找色功能自动加血蓝的  但是用你移植的弄上去只能按键有效 没有识别坐标颜色