打印本文 打印本文 关闭窗口 关闭窗口
VB 从零开始编外挂(六)
作者：武汉SEO闵涛  文章来源：敏韬网  点击数1847  更新时间：2009/4/23 15:37:43  文章录入：mintao  责任编辑：mintao
g         '''' 储存进程标识符( Process Id )
    Dim pHandle As Long     '''' 储存进程句柄
    hwnd = FindWindow(vbNullString, "封神榜·网络版")
    '''' 取得进程标识符
    GetWindowThreadProcessId hwnd, pid
    '''' 使用进程标识符取得进程句柄
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    '''' 在内存地址中读取数据
    ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
    '''' 关闭进程句柄
    CloseHandle hProcess
End Function
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Const PROCESS_VM_OPERATION = &H8&
Const PROCESS_VM_READ = &H10&
Const PROCESS_VM_WRITE = &H20&

Private Sub Form_Load()
  '''' 体力：07F68F3 这里替换你所搜索到的地址  魔法：07F6860 同前
    DiZhi = &H07F68F3
    Timer1.Enabled = True
    Timer2.Enabled = False
    Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, "封神榜·网络版")
   
    If hwnd = 0 Then
        Label12.Caption = "游戏未加载"
        Timer1.Enabled = True
        Timer2.Enabled = False
        Timer3.Enabled = False
        Exit Sub
    End If

    Label12.Caption = "游戏已加载"
    SetHp = Text1.Text          '''' 获取设定的体力值
    SetMp = Text2.Text          '''' 获取设定的魔法值
    NowHp = ncnr(DiZhi)         '''' 获取当前的体力值
    NowMp = ncnr(DiZhi + 12)    '''' 获取当前的魔法值
    MaxHp = ncnr(DiZhi + 4)     '''' 获取角色的最高体力值
    MaxMp = ncnr(DiZhi + 16)    '''' 获取角色的最高魔法值
    Label3.Caption = Str(NowHp) + "/" + Str(MaxHp)      '''' 显示角色体力值状态
    Label4.Caption = Str(NowMp) + "/" + Str(MaxMp)      '''' 显示角色魔法值状态

    If Check1.Value Then
        Timer2.Enabled = True
    Else
        Timer2.Enabled = False
    End If
    If Check2.Value Then
        Timer3.Enabled = True
    Else
        Timer3.Enabled = False
    End If
End Sub

Private Sub Timer2_Timer()
    '''' 体力值小于设定值按下数字键1
    If (NowHp) < SetHp Then
        SendKeys "1"
    End If
End Sub

Private Sub Timer3_Timer()
    '''' 魔法值小于设定值按下数字键2
    If (NowMp) < SetMp Then
        SendKeys "2"
    End If
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
软件截图：

--------------------------------------------------------------------------------------------------------------------------------------------------------
点击给我留言
--------------------------------------------------------------------------------------------------------------------------------------------------------

上一页  [1] [2] 

打印本文 打印本文 关闭窗口 关闭窗口