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

魔域免费脚本

发布时间: 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

附件

热点内容
phpeol 发布:2024-11-25 20:16:01 浏览:92
您所访问的页面升级 发布:2024-11-25 20:00:56 浏览:597
快手编程师 发布:2024-11-25 20:00:55 浏览:148
androidadt下载最新 发布:2024-11-25 19:47:29 浏览:353
我的世界如何强制获得服务器管理员权限 发布:2024-11-25 19:39:13 浏览:604
批量上传图片控件 发布:2024-11-25 19:27:12 浏览:766
黑马java就业班 发布:2024-11-25 19:10:54 浏览:715
我的世界国外小游戏服务器 发布:2024-11-25 18:52:12 浏览:647
传奇是要什么配置的手机 发布:2024-11-25 18:43:34 浏览:950
荣耀v6如何设置程序安装密码 发布:2024-11-25 18:43:25 浏览:557