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

2014-10-27 10:42 828 0

摘要: set Obj = createobject("WScript.Shell") VBS YN=Obj.Popup("欢迎使用《淡月下清荷》古惑仔外挂程序，《自动式》恢复生命值吗？",0,"关...

关键词： nbsp MoveTo LeftClick objIE 生命 VBS createobject Delay LeftDown 攻击

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
声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除