咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 432|回复: 0

[游戏相关] vbs制作的校内网古惑仔辅助(可智能加血)

[复制链接]
  • TA的每日心情
    无聊
    2019-4-21 13:02
  • 签到天数: 3 天

    [LV.2]圆转纯熟

    发表于 2020-7-2 10:58:01 | 显示全部楼层 |阅读模式
    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
    下载地址                                                
    原文地址:https://www.jb51.net/article/16382.htm

    QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

    GMT+8, 2024-3-28 16:41

    Powered by Discuz! X3.4

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表