魔域免费脚本
‘壹’ 魔域自动打怪脚本
按键精灵
Rem start
While true // 或者 for 9999
VBS x=x+50
VBSCall FindColorEx(60,160,780,600,"0303B8",1,1,x,y)
//区域模煳找色 60,160,780,600为区域范围 "FFFFFF"为颜色 1为查找方式(中间向外) 1为模煳值 x,y为找到颜色后的坐标变量
If x>60 and y>160
//如果找到颜色 比如找到颜色就会赋值给坐标变量 通过判断坐标变量可以知道有没有找到怪
MoveTo x+12,y+20
//把鼠标移动到该色的坐标 如果找的是怪名字或血条 可能移动不到怪身上 这时就要用鼠标偏移 如:MoveTo x+10 y+10
Delay 50
//延时
LeftClick 5 //左键单击进行攻击
VBS y=y+50
VBS x=100
Goto start
Endif // 少了一句
EndIf
Delay 5000 //延时5秒
EndWhile // endfor
‘贰’ 跪求魔域12星座自动辅助脚本!!!免费的那种!!
下载一个,按键精灵
VBS dim x,y
//先定义变量
VBSCall GetCursorPos(x,y)
//获得当前的鼠标位置并保存在变量x,y中
VBSCall yans=GetPixelColor(x,y)
//得出当前鼠标的位置的颜色
WaitKey key
TracePrint "用户按下的键是:" & key
Rem 练功中
IfColor x,y,yans,1
MoveTo x,y
Else
EndIf
//进行鼠标复位
KeyPress key
Goto 练功中
//循环运行,脚本到此结束,精简吧!
‘叁’ 魔域自动刷怪的脚本,要免费的
UserVardcs=15"打怪次数循环"
UserVarszg=5"随机找怪循环"
LockMouse
jici=0
moli=0
FindPic213,89,714,708,"Attachment:21.bmp",0.9,X,Y
IfX>0AndY>0Then
MoveToX+6,Y+6
Delay200
LeftDown1
Delay20
LeftUp1
Delay240
EndIf
Remshouguai
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
MoveTointX+4,intY+10
Delay250
LeftDown1
Delay20
LeftUp1
Delay20
LeftDown1
Delay20
LeftUp1
Delay20
Delay2100
Calldaguai()
else
Callsuijishouguai()
EndIf
Subsuijishouguai()
Ifjici=szgThen
Delay500
KeyDown"1",1
Delay20
KeyUp"1",1
Delay20
jici=0
EndIf
Remcxv
skipsub=int(8*Rnd+1)
Ifskipsub>8Then
Gotocxv
EndIf
Ifskipsub=1Then
jici=jici+1
Callas1()
EndIf
Ifskipsub=2Then
jici=jici+1
Callas2()
EndIf
Ifskipsub=3Then
jici=jici+1
Callas3()
EndIf
Ifskipsub=4Then
jici=jici+1
Callas4()
EndIf
Ifskipsub=5Then
jici=jici+1
Callas5()
EndIf
Ifskipsub=6Then
jici=jici+1
Callas6()
EndIf
Ifskipsub=7Then
jici=jici+1
Callas7()
EndIf
Ifskipsub=8Then
jici=jici+1
Callas8()
EndIf
EndSub
Subas1()
MoveTo522,246
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo522,246
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas2()
MoveTo526,352
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo526,352
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas3()
MoveTo525,444
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo525,444
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas4()
MoveTo681,455
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo681,455
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas5()
MoveTo859,450
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo859,450
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas6()
MoveTo862,317
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo862,317
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas7()
MoveTo816,224
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo816,224
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subas8()
MoveTo671,194
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
EndIf
MoveTo671,194
Delay20
LeftDown1
Delay20
LeftUp1
Delay1350
FindColor213,89,1174,608,"0303B8",intX,intY
IfintX>0AndintY>0Then
Gotoshouguai
Else
Callsuijishouguai()
EndIf
EndSub
Subdaguai()
MoveTo688,330
Fordcs
KeyDown"F3",1
Delay20
KeyUp"F3",1
Delay200
Next
MoveToX+4,Y+4
Delay20
LeftDown1
Delay20
LeftUp1
Delay1500
jici=0
moli=moli+1
Ifmoli=30Then
Calljialan()
EndIf
Gotoshouguai
EndSub
Subjialan()
Delay100
KeyDown"3",1
Delay20
KeyUp"3",1
Delay20
Delay100
moli=0
Gotoshouguai
EndSub
附件