vbs制作的校内网古惑仔外挂(可智能加血)_游戏相关教程-查字典教程网
vbs制作的校内网古惑仔外挂(可智能加血)
vbs制作的校内网古惑仔外挂(可智能加血)
发布时间:2016-12-28 来源:查字典编辑
摘要:setObj=createobject("WScript.Shell")VBSYN=Obj.Popup("欢迎使用《淡月下清荷》古惑仔外挂程...

set Obj = createobject("WScript.Shell")

VBS YN=Obj.Popup("欢迎使用《淡月下清荷》古惑仔外挂程序,《自动式》恢复生命值吗?",0,"关机?",36)

Gosub jiance

///////检测位置

up=500

down=0

Rem brotherset

VBSCall up=InputBox ("请设置攻击目标的 兄弟上限")

VBSCall down=InputBox ("请设置攻击目标的 兄弟下限")

If down>up

MessageBox "输入错误"

Goto brotherset

EndIf

//Popup--弹出对话框

Delay 2000

Rem start

MoveTo 250,12

LeftClick 1

Delay 3000

MoveTo 1012,123

LeftDown 1

Delay 1000

LeftUp 1

Rem xunhuan

MoveTo hpx,z2

LeftClick 1

Delay 5000

////通过剪贴板判断生命和体力值

VBS Set objIE = CreateObject("InternetExplorer.Application")

VBS objIE.Navigate("about:blank")

MoveTo smx,z1

LeftDown 1

MoveTo smy,z1

LeftUp 1

KeyDown 17,1

KeyPress 67,1

KeyUp 17,1

VBS life = objIE.document.parentwindow.clipboardData.GetData("text")

MoveTo tlx,z1

LeftDown 1

MoveTo tly,z1

LeftUp 1

KeyDown 17,1

KeyPress 67,1

KeyUp 17,1

LeftClick 1

VBS stength = objIE.document.parentwindow.clipboardData.GetData("text")

VBS objIE.Quit

////判断是否要攻击或者加血或者等待

If life<20

If stength>0

If YN=6

Gosub jiaxue

Else ""

set Objz = createobject("WScript.Shell")

VBS YON=Objz.Popup("生命不足,你确定要花钱恢复生命吗?",0,"关机?",36)

If YON=6

LeftClick 1

Gosub jiaxue

Else

Goto wait

EndIf

EndIf

Else

Goto wait

EndIf

ElseIf life>22

If stength>0

Gosub gongji

Else

Goto wait

EndIf

Else

Goto wait

EndIf

Goto xunhuan

Rem wait

Delay 360000

Goto start

EndScript //////加血和攻击子程序

//////加血和攻击子程序

Sub jiaxue

MoveTo zsx,z2

LeftClick 1

Delay 3000

MoveTo 180,425

LeftClick 1

Delay 3000

Return jiaxue

Sub gongji

VBS Set objIE = CreateObject("InternetExplorer.Application")

VBS objIE.Navigate("about:blank")

For 5

MoveTo gjx,z3

LeftDown 1

MoveTo gjy,z3

LeftUp 1

KeyDown 17,1

KeyPress 67,1

KeyUp 17,1

VBS brother = objIE.document.parentwindow.clipboardData.GetData("text")

If brother<up

If brother>down

MoveTo gjz,z3

LeftClick 1

Delay 5000

Else

Rem willout

EndIf

Else

Rem willout

EndIf

z3=z3+34

EndFor

Rem willout

VBS objIE.Quit

Return jiaxue

Sub jiance

z1=285

smx=232

smy=244

tlx=495

tly=502

z2=313

hpx=393

zsx=523

z3=455

gjx=633

gjy=556

gjz=730

set Objall= createobject("WScript.Shell")

VBS zscjc=Objall.Popup("是否对 鼠标坐标 进行检测?",0,"关机?",36)

If zscjc=6

MessageBox "生命点数位置检测(初始值232,244,z1=285)。按任意键继续检测!"

MoveTo 250,12

LeftClick 1

Delay 2000

MoveTo smx,z1

LeftDown 1

MoveTo smy,z1

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

Rem sunch1

MessageBox "生命值位置:关闭本对话框后,把鼠标移动到生命值两端端,按键盘 即可!"

MoveTo 250,12

LeftClick 1

WaitKey

VBSCall GetCursorPos(smx,z1)

WaitKey

VBSCall GetCursorPos(smy,z1)

MoveTo smx,z1

LeftDown 1

MoveTo smy,z1

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("再一次修改?",0,"关机?",36)

If xiugai=6

Goto sunch1

EndIf

EndIf

MessageBox "体力点数位置检测(初始值495,502,z1=285)。按任意键继续检测!"

MoveTo tlx,z1

LeftClick 1

Delay 500

LeftDown 1

MoveTo tly,z1

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

Rem sunch2

MessageBox "体力值位置:关闭本对话框后,把鼠标移动到体力值两端端,按键盘 即可!"

MoveTo 250,12

LeftClick 1

WaitKey

VBSCall GetCursorPos(tlx,z1)

WaitKey

VBSCall GetCursorPos(tly,z1)

MoveTo tlx,z1

LeftDown 1

MoveTo tly,z1

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("再一次修改?",0,"关机?",36)

If xiugai=6

Goto sunch2

EndIf

EndIf

MessageBox "火拼位置检测(初始值393,z2=313)。按任意键继续检测!"

MoveTo 250,12

LeftClick 1

Delay 2000

MoveTo hpx,z2

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

MessageBox "火拼位置:关闭本对话框后,把鼠标移动到火拼位置上,按键盘 即可!"

VBSCall GetCursorPos(hpx,z2)

EndIf

MessageBox "诊所位置检测(初始值523,z2=313)。按任意键继续检测!"

MoveTo 250,12

LeftClick 1

Delay 2000

MoveTo zsx,z2

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

MessageBox "诊所位置:关闭本对话框后,把鼠标移动到 诊所 位置上,按键盘 即可!"

VBSCall GetCursorPos(zsx,z2)

EndIf

MessageBox "攻击目标位置检测(初始值556,633,730,z3=455)。按任意键继续检测!"

MoveTo gjx,z3

LeftClick 1

Delay 500

LeftDown 1

MoveTo gjy,z3

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

Rem sunch3

MessageBox "兄弟数位置:关闭本对话框后,把鼠标移动到兄弟数两端,按键盘 即可!"

MoveTo 250,12

LeftClick 1

WaitKey

VBSCall GetCursorPos(gjx,z3)

WaitKey

VBSCall GetCursorPos(gjy,z3)

MoveTo gjx,z3

LeftDown 1

MoveTo gjy,z3

LeftUp 1

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("再一次修改?",0,"关机?",36)

If xiugai=6

Goto sunch3

EndIf

EndIf

MoveTo gjz,z3

WaitKey

set Obja= createobject("WScript.Shell")

VBS xiugai=Obja.Popup("坐标是否准确?点击《确定》进行修改",0,"关机?",36)

LeftClick 1

If xiugai=6

MessageBox "攻击位置:关闭本对话框后,把鼠标移动到攻击位置上,按键盘 即可!"

VBSCall GetCursorPos(gjz,z2)

EndIf

EndIf

Return jiaxue

下载地址

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新游戏相关学习
    热门游戏相关学习
    脚本专栏子分类