Question

首先，我有一个像这样的内存写模块：

    Module Lul

#Region "Declarations"

        Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

        Private string1 As Long
        Private string2 As Integer
        Private RBuff1 As Long
        Private RBuff2 As Single
        Private RBuff3 As Integer

#End Region

        Public Function IsProcessOpen(ByVal name As String) As Boolean

            For Each clsProcess As Process In Process.GetProcesses

                If clsProcess.ProcessName.Contains(name) Then


                    Return True

                End If
            Next
            ' Do nothing
            Return False
        End Function

#Region "Hacks"

        'WriteMemory
        Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
            Dim ACRSPLookUp As Process() = Process.GetProcessesByName("S4Client")
            If ACRSPLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ACRSPLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

        'WriteFloat
        Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
            Dim ACRSPLookUp As Process() = Process.GetProcessesByName("S4Client")
            If ACRSPLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ACRSPLookUp(0).Id)
            WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

        'NOP
        Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
            Dim ACRSPLookUp As Process() = Process.GetProcessesByName("S4Client")
            If ACRSPLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ACRSPLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, value, 1, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

#End Region

#Region "Functions"

        Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
            If IsProcessOpen("S4Client") Then
                string2 = "&H" & Hex(string1 + address)
                WriteMemory(string2, value, bytes)
            End If
            Return Nothing
        End Function

        Public Function floath4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("S4Client") Then
                string2 = "&H" & Hex(string1 + address)
                WriteFloat(string2, value)
            End If
            Return Nothing
        End Function

        Public Function noph4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("S4Client") Then
                string2 = "&H" & Hex(string1 + address)
                NOP(string2, value)


            End If
            Return Nothing
        End Function

#End Region
    End Module

我正在写这样的处理记忆：

memoryh4x(&H482719, 8, 4)

我希望它在每次检查复选框而不是8时放置一个随机值。我怎样才能做到这一点？谢谢。

Answer 1

您可以使用.NET随机数生成器生成随机值：

 ' You should only declare and initialize this once for your class
 '   otherwise the values you'll get won't be very random
 Dim rGenerator As System.Random = New System.Random()


 Dim val As Integer = 0        

 val = rGenerator.Next(1, 8)         ' generate a random integer between 1 and 8

 memoryh4x(&H482719, val, 4)

Answer 2

如果你的数字是随机的，你是否一定要小心，不要使用System.Random（）

我对创建随机数字有多么可怕感到震惊！

查看我的帖子Here

生成随机值

2 个答案: