当前位置:首页 » 编程软件 » 魔域免费脚本

魔域免费脚本

发布时间: 2024-07-31 12:18:02

‘壹’ 魔域自动打怪脚本

按键精灵
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

附件

热点内容
上传吊牌图 发布:2024-11-07 04:38:48 浏览:918
密码学什么概念 发布:2024-11-07 04:38:48 浏览:847
linuxpdf转word 发布:2024-11-07 04:37:06 浏览:212
安卓手机为什么用ufs 发布:2024-11-07 04:15:09 浏览:558
数据库删除所有表 发布:2024-11-07 04:13:55 浏览:575
新建文件夹2链接 发布:2024-11-07 04:12:17 浏览:155
mapreduce源码分析 发布:2024-11-07 04:10:36 浏览:605
浪潮存储维修维保价格 发布:2024-11-07 04:01:56 浏览:713
代理服务器上网有什么危害 发布:2024-11-07 03:57:53 浏览:380
安卓用什么笔记app 发布:2024-11-07 03:50:42 浏览:891