按键精灵怎么改键改建问题

来源：蜘蛛抓取(WebSpider) 时间：2015-07-13 19:01 标签： 按键精灵 修改mac
你的位置：
dota 小小改建精灵，实现像11平台内置功能！
来源: 按键精灵资源站
[i=s] 本帖最后由 对对对 于
21:00 编辑
哈哈，说大话了，其实就是类似，不知道用后台怎么操作，用后台时按键不管用，只有当鼠标移动到邻近区域时按才能管用。唉，求高手帮忙！[hr]
好了，不多说，上我的改键，原理其实很简单，按监视的键时鼠标移动到对应坐标然后左键单机，测试时候还行，就是原先按键有功能的再改后会串，唉，你们测试吧。360会提示风险，估计每一个小精灵他都会报这个，好了，上图
。下载地址请访问原帖
下面是代码,呵呵，不知道能不能有隐藏可见的权限啊，试试呗&hide&CODE:DimEnv HH
DimEnv a1,a2,a3,a4,a5,a6,b1,b2,b3,b4,b5,b6,b7
HH = Plugin.Window.GetKeyFocusWnd()
While True
//当循环条件成立的时候，反复执行循环体
& && &&&key = WaitKey()
& && &&&If key = a1 Then& && &&&
& && && && && && & Call clack(689, 646)
& && &&&End If
& && &&&If key = a2 Then
& && && && &Call clack(728, 641)
& && &&&End If
& & If key = a3 Then
& && && && &Call clack(683, 696)
& && &&&End If
& && &&&If key = a4 Then
& && && && &Call clack(731, 698)
& && &&&End If
& && &&&If key = a5 Then
& && && && &Call clack(692, 740)
& && &&&End If
& && &&&If key = a6 Then
& && && && &Call clack(731, 739)
& && &&&End If
& && && && && &
& && &&&If key = b1 Then
& && && && &Call clack(871, 677)
& && &&&End If
& && &&&If key = b2 Then
& && && && &Call clack(930, 680)
& && &&&End If
& && &&&If key = b3 Then
& && && && && && & Call clack(983, 675)
& && &&&End If
& && &&&If key = b4 Then
& && && && &Call clack(810, 741)
& && &&&End If
& && &&&If key = b5 Then
& && && && &Call clack(866, 732)
& && &&&End If
& && &&&If key = b6 Then
& && && && &Call clack(925, 737)
& && &&&End If
& && &&&If key = b7 Then
& && && && && && & Call clack(986, 738)
& && &&&End If
& && && && && &
Sub clack(x, y)
& & SaveMousePos
& && &&&MoveTo x,y
& & LeftClick 1
& & RestoreMousePos
Event 改建精灵.Load
Event 改建精灵.InputBox1.Change
b1 =asc(ucase(改建精灵.InputBox1.Text))
Event 改建精灵.InputBox2.Change
b2 = asc(ucase(改建精灵.InputBox2.Text))
Event 改建精灵.InputBox3.Change
b3 = asc(ucase(改建精灵.InputBox3.Text))
Event 改建精灵.InputBox4.Change
b4 = asc(ucase(改建精灵.InputBox4.Text))
Event 改建精灵.InputBox5.Change
b5 = asc(ucase(改建精灵.InputBox5.Text))
Event 改建精灵.InputBox6.Change
b6 = asc(ucase(改建精灵.InputBox6.Text))
Event 改建精灵.InputBox7.Change
b7 = asc(ucase(改建精灵.InputBox7.Text))
Event 改建精灵.InputBox8.Change
a1 = asc(ucase(改建精灵.InputBox8.Text))
Event 改建精灵.InputBox9.Change
a2 = asc(ucase(改建精灵.InputBox9.Text))
Event 改建精灵.InputBox10.Change
a3 = asc(ucase(改建精灵.InputBox10.Text))
Event 改建精灵.InputBox11.Change
a4 =asc(ucase( 改建精灵.InputBox11.Text))
Event 改建精灵.InputBox12.Change
a5 = asc(ucase(改建精灵.InputBox12.Text))
Event 改建精灵.InputBox13.Change
a6 = asc(ucase(改建精灵.InputBox13.Text))
End Event&/hide&

我要回帖

更多关于 按键精灵 修改mac 的文章

 

随机推荐