vbs制作的校内网古惑仔外挂(可智能加血)-尊龙凯时

淡月下清荷写的一个古惑仔外挂程序，方便大家 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 brotherif 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