魔域免費腳本

『壹』 魔域自動打怪腳本

按鍵精靈
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

附件