form1.vb

自己写的 VB读生命内力的源码 新手可以看看

Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
	Private Declare Function FindWindow Lib "user32"  Alias "FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
	Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWndd As Integer, ByRef lpdwProcessId As Integer) As Integer
	Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
	'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"”
	'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"”
	Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
	Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
	'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"”
	'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"”
	Private Declare Sub CopyMemory Lib "kernel32"  Alias "RtlMoveMemory"(ByRef lpDest As Any, ByRef lpSource As Any, ByVal cBytes As Integer)
	
	Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF '完全模式打开进程
	Dim bTmp1(4) As Byte '   存储显示文本
	Dim hWndd As Integer '保存游戏窗口句柄
	Dim pid As Integer '保存游戏进程ID
	Dim pHandle As Integer '保存游戏进程句柄
	Dim Hong_NUM As Integer '保存生命
	Dim Lan_num As Integer '保存内力
	Dim lVal As Integer
	Dim cc(20) As Byte
	Public Sub Jiankong_lan_hong()
		Dim n As Object
		Dim lBytesReadWrite As Object '监控红蓝
		hWndd = FindWindow(vbNullString, "《武易》 内测版 -  气吞山河(电信)    ") '   取得目标窗口的句柄
		If (hWndd = 0) Then
			MsgBox("没有找到游戏参数")
			Timer1.Enabled = False
			Exit Sub
		End If
		
		GetWindowThreadProcessId(hWndd, pid) '   取得窗口所在程序的进程标识符
		pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) '   取得进程句柄
		
		If (pHandle = 0) Then Exit Sub
		
		'UPGRADE_WARNING: 未能解析对象 lBytesReadWrite 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 n 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		n = ReadProcessMemory(pHandle, &H654E34, bTmp1(0), UBound(bTmp1) + 1, lBytesReadWrite) '   读取内存数据，血
		
		'UPGRADE_WARNING: 未能解析对象 n 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If n = 0 Then
			MsgBox("最大血值出错，请联系清风龙凤舞世家")
			Timer1.Enabled = False
			Exit Sub
		End If
		
		CopyMemory(lVal, bTmp1(0), 4)
		Hong_NUM = lVal '显示当前人物红数据
		
		'UPGRADE_WARNING: 未能解析对象 lBytesReadWrite 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 n 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		n = ReadProcessMemory(pHandle, &H654E38, bTmp1(0), UBound(bTmp1) + 1, lBytesReadWrite) '   读取内存数据，蓝
		CopyMemory(lVal, bTmp1(0), 4)
		Lan_num = lVal
		'UPGRADE_WARNING: 未能解析对象 n 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If n = 0 Then
			MsgBox("最大内力值出错，请联系清风龙凤舞世家")
			Timer1.Enabled = False
			Exit Sub
		End If
		
		'显示当前人物蓝数据
		
		ReadProcessMemory(pHandle, &H669948, cc(0), 20, 0) '   读取内存数据,名字
		'UPGRADE_ISSUE: 常量 vbUnicode 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"”
		Label3.Text = StrConv(System.Text.UnicodeEncoding.Unicode.GetString(cc), vbUnicode)
		
		
		CloseHandle(pHandle) '   关闭进程句柄
	End Sub
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Timer1.Enabled = True
	End Sub
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Hong_NUM = 0
		Lan_num = 0
	End Sub
	
	
	
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		Jiankong_lan_hong()
		Label1.Text = CStr(Hong_NUM)
		Label2.Text = CStr(Lan_num)
	End Sub
End Class