谁有按键精灵的脚本？可以发给我吗
- 提问者网友：温旧梦泪无声
- 2021-08-11 23:01
- 五星知识达人网友：有你哪都是故乡
- 2021-08-12 00:17
dim hw
Plugin hw=Window.MousePoint()
Plugin Window.Active(hw)
Plugin Window.Move(hw,0,0)
Plugin fontID1=kkSoft.mCreateFontData("宋体",9,12,12,6,400)
If fontID1=-1
MessageBox "创建字库失败"
EndIf
While true
//-------------------------屏幕清理--------------------------
Delay 3000
MoveTo 182,97
Delay 500
LeftClick 1
Delay 100
MoveTo 15,466
Delay 500
LeftClick 1
Delay 500
MoveTo 0,0
Delay 100
//----------------------去除环境影响-----------
KeyDown 27,1
Delay 100
KeyUp 27,1
Delay 100
KeyDown 27,1
Delay 100
KeyUp 27,1
Delay 100
KeyDown 33,1
Delay 2000
KeyUp 33,1
Delay 100
//---------------------加状态-----------------------
Plugin BGKM5.KeyClick(hw,53)
Delay 3000
Plugin BGKM5.KeyClick(hw,58)
Delay 3000
//--------------------时间判断赋值---------------------
t1=now
t2=now
Dim n=0
mystring=""
//---------------到达升级场所--------------------------
Rem 升级之路
Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
//MessageBox mystring
Plugin BGKM5.KeyClick(hw,49)
Delay 100
Plugin BGKM5.KeyClick(hw,50)
Delay 1000
While mystring=""
Delay 1000
Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
Delay 5000
Plugin BGKM5.KeyClick(hw,49)
Delay 100
EndWhile
//MessageBox mystring
//--------------------开始打怪-------------------------
While true
Rem 打怪
If DateDiff("n",t1,now)>15
Plugin BGKM5.KeyClick(hw,53)
Delay 3000
//Plugin BGKM5.KeyClick(hw,48)
//Delay 800
t1=now
EndIf
//----------------判断时间，重新登陆，以免被罚-------------------
If DateDiff("n",t2,now)>20
Goto Relogin
EndIf
Delay 100
//走路方向的判断
If n<6
Plugin BGKM5.KeyClick(hw,9)
Delay 100
//Plugin BGKM5.KeyClick(hw,50)
//Delay 3000
n=n+1
Else
n=0
KeyDown 37,1
Delay 800
KeyUp 37,1
Plugin BGKM5.KeyClick(hw,49)
Delay 100
//Plugin BGKM5.KeyClick(hw,50)
//Delay 3000
EndIf
IfColor 540,65,5b6ddc,1
Delay 10
Goto 打怪
EndIf
//---------------------判断怪物是否有血需要继续攻击-------------
mystring=""
Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
While mystring<>""
Delay 100
Plugin BGKM5.KeyClick(hw,50)
Delay 2000
//KeyPress 32,1
//Delay 500
//------------加血
IfColor 175,83,32240f,2
Plugin BGKM5.Keyclick(hw,54)
Delay 1000
EndIf
//-------判断是否死亡
IfColor 144,83,32230f,2
Goto 判断死亡
EndIf
For 2
Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
Delay 10
If mystring<>""
Goto 继续打怪
EndIf
EndFor
Rem 继续打怪
//MessageBox mystring
EndWhile
// MessageBox mystring
//-------------------------加血--------------------
IfColor 175,83,32240f,2
Plugin BGKM5.Keyclick(hw,54)
Delay 100
EndIf
//------------------------判断是否死亡---------------------
Rem 判断死亡
IfColor 144,83,32230f,2
Plugin BGKM5.Keyclick(hw,54)
Delay 4000
//--------------------试加血后再次判断
IfColor 144,83,32230f,2
MoveTo 515,390
Delay 1000
LeftClick 1
Delay 100
LeftClick 1
Delay 60000
MoveTo 0,0
Delay 100
//-----------------复活后加血
Plugin BGKM5.KeyClick(hw,54)
Delay 100
Plugin BGKM5.KeyClick(hw,54)
Delay 8000
//---------------判断药瓶是否存在，没有停机挂机--------------
IfColor 146,83,32230f,2
Delay 1000
EndScript
EndIf
Goto 升级之路
EndIf
EndIf
//---------------------------加蓝---------------------
IfColor 143,98,32240f,2
Plugin BGKM5.KeyClick(hw,55)
Delay 10
EndIf
//-------------------------加宠物血------------------
IfColor 125,112,32240f,2
Plugin BGKM5.KeyClick(hw,57)
Delay 0
EndIf
Delay 600
//-----------------------------捡东西----------------------
Plugin BGKM5.KeyClick(hw,56)
Delay 100
EndWhile
//---------------------------重新登陆----------------------
Rem Relogin
Delay 15000
MoveToS 730,750
Delay 300
LeftClick 1
Delay 300
MoveToS 725,625
Delay 300
LeftClick 1
Delay 15000
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 300
Plugin BGKM5.KeyClick(hw,xx)
Delay 2000
Plugin BGKM5.KeyClick(hw,13)
Delay 100
Delay 10000
Plugin BGKM5.KeyClick(hw,13)
Delay 8000
EndWhile
游戏基本通用.你的是什么游戏啊....