vbs制作的校内网古惑仔外挂(可智能加血)

页面导航:首页 > 脚本专栏 > 游戏相关 > vbs制作的校内网古惑仔外挂(可智能加血)

vbs制作的校内网古惑仔外挂(可智能加血)

来源:互联网 作者:脚本宝典 时间:2015-07-22 12:38 【

set Obj = createobject(WScript.Shell) VBS YN=Obj.Popup(欢迎使用《淡月下清荷》古惑仔外挂程序,《自动式》恢复生命值吗?,0,关机?,36) Gosub jiance ///////检测位置 up=500 down=0 Rem brotherset VBSCall up=In

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
下载地址

Tags: VBS  

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<