TC官方合作论坛

标题: 求个高手帮忙把按键的代码移植到TC上 [打印本页]

作者: xxhuangjiakang1 时间: 2013-6-11 17:42
标题: 求个高手帮忙把按键的代码移植到TC上
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 时间: 2013-6-11 21:22
空间移植
//默认空间
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 时间: 2013-6-11 23:20
回复 2楼fsfsgdg的帖子

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

作者: fsfsgdg 时间: 2013-6-12 00:01
回复 3楼xxhuangjiakang1的帖子

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

作者: xxhuangjiakang1 时间: 2013-6-12 09:09
回复 4楼fsfsgdg的帖子

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

作者: xxhuangjiakang1 时间: 2013-6-12 10:44
回复 4楼fsfsgdg的帖子

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

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)