• GetCursorPosition ' De tipo Point , Devuelve la Posicion del Puntero del mause en el Escritorio
• GetClientPosition  ' De tipo Point , Devuelve la Posicion de Alguna venta en el Escritorio [Juego / Applicacion]
• GetClientCursorPosition ' De tipo Point , Devuelve la Posicion del Puntero del mause desde el Cliente  [Juego / Applicacion]
• ShowCursor ' De tipo Bool , Muestra o Oculta el Cursor del mause
• GetProcessHandle ' De tipo IntPtr , Obtienes el Handle de algun Proceso, By Elektro

Imports System.Runtime.InteropServices
 
Public Class WinMauseHelpersCore
 
 
#Region " Pinvoke "
 
    <DllImport("user32.dll")> _
    Private Shared Function GetCursorPos(<[In](), Out()> ByRef pt As System.Drawing.Point) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function ScreenToClient(ByVal hWnd As IntPtr, ByRef lpPoint As System.Drawing.Point) As Boolean
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function GetClientRect(ByVal hWnd As System.IntPtr, ByRef lpRECT As RECT) As Integer
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function ShowCursor(ByVal bShow As Boolean) As Integer
    End Function
 
#Region " Structures "
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure RECT
        Private _Left As Integer, _Top As Integer, _Right As Integer, _Bottom As Integer
 
        Public Sub New(ByVal Rectangle As Rectangle)
            Me.New(Rectangle.Left, Rectangle.Top, Rectangle.Right, Rectangle.Bottom)
        End Sub
        Public Sub New(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer)
            _Left = Left
            _Top = Top
            _Right = Right
            _Bottom = Bottom
        End Sub
 
        Public Property X As Integer
            Get
                Return _Left
            End Get
            Set(ByVal value As Integer)
                _Right = _Right - _Left + value
                _Left = value
            End Set
        End Property
        Public Property Y As Integer
            Get
                Return _Top
            End Get
            Set(ByVal value As Integer)
                _Bottom = _Bottom - _Top + value
                _Top = value
            End Set
        End Property
        Public Property Left As Integer
            Get
                Return _Left
            End Get
            Set(ByVal value As Integer)
                _Left = value
            End Set
        End Property
        Public Property Top As Integer
            Get
                Return _Top
            End Get
            Set(ByVal value As Integer)
                _Top = value
            End Set
        End Property
        Public Property Right As Integer
            Get
                Return _Right
            End Get
            Set(ByVal value As Integer)
                _Right = value
            End Set
        End Property
        Public Property Bottom As Integer
            Get
                Return _Bottom
            End Get
            Set(ByVal value As Integer)
                _Bottom = value
            End Set
        End Property
        Public Property Height() As Integer
            Get
                Return _Bottom - _Top
            End Get
            Set(ByVal value As Integer)
                _Bottom = value + _Top
            End Set
        End Property
        Public Property Width() As Integer
            Get
                Return _Right - _Left
            End Get
            Set(ByVal value As Integer)
                _Right = value + _Left
            End Set
        End Property
        Public Property Location() As Point
            Get
                Return New Point(Left, Top)
            End Get
            Set(ByVal value As Point)
                _Right = _Right - _Left + value.X
                _Bottom = _Bottom - _Top + value.Y
                _Left = value.X
                _Top = value.Y
            End Set
        End Property
        Public Property Size() As Size
            Get
                Return New Size(Width, Height)
            End Get
            Set(ByVal value As Size)
                _Right = value.Width + _Left
                _Bottom = value.Height + _Top
            End Set
        End Property
 
        Public Shared Widening Operator CType(ByVal Rectangle As RECT) As Rectangle
            Return New Rectangle(Rectangle.Left, Rectangle.Top, Rectangle.Width, Rectangle.Height)
        End Operator
        Public Shared Widening Operator CType(ByVal Rectangle As Rectangle) As RECT
            Return New RECT(Rectangle.Left, Rectangle.Top, Rectangle.Right, Rectangle.Bottom)
        End Operator
        Public Shared Operator =(ByVal Rectangle1 As RECT, ByVal Rectangle2 As RECT) As Boolean
            Return Rectangle1.Equals(Rectangle2)
        End Operator
        Public Shared Operator <>(ByVal Rectangle1 As RECT, ByVal Rectangle2 As RECT) As Boolean
            Return Not Rectangle1.Equals(Rectangle2)
        End Operator
 
        Public Overrides Function ToString() As String
            Return "{Left: " & _Left & "; " & "Top: " & _Top & "; Right: " & _Right & "; Bottom: " & _Bottom & "}"
        End Function
 
        Public Overloads Function Equals(ByVal Rectangle As RECT) As Boolean
            Return Rectangle.Left = _Left AndAlso Rectangle.Top = _Top AndAlso Rectangle.Right = _Right AndAlso Rectangle.Bottom = _Bottom
        End Function
        Public Overloads Overrides Function Equals(ByVal [Object] As Object) As Boolean
            If TypeOf [Object] Is RECT Then
                Return Equals(DirectCast([Object], RECT))
            ElseIf TypeOf [Object] Is Rectangle Then
                Return Equals(New RECT(DirectCast([Object], Rectangle)))
            End If
 
            Return False
        End Function
    End Structure
 
#End Region
 
    Public Function GetCursorPosition() As System.Drawing.Point
        Dim CursorPos As New System.Drawing.Point
        GetCursorPos(CursorPos)
        Return CursorPos
    End Function
 
    Public Function GetClientPosition(ByVal hWnd As IntPtr) As System.Drawing.Point
        Dim ClientPos As New System.Drawing.Point
        ScreenToClient(hWnd, ClientPos)
        Return ClientPos
    End Function
 
    Public Function GetClientCursorPosition(ByVal hWnd As IntPtr) As System.Drawing.Point
        Dim ClientCursorPos As New System.Drawing.Point
        Dim CursorPos As System.Drawing.Point = GetCursorPosition()
        Dim ClientPos As System.Drawing.Point = GetClientPosition(hWnd)
        ClientCursorPos = New System.Drawing.Point(CursorPos.X + ClientPos.X, CursorPos.Y + ClientPos.Y)
        Return ClientCursorPos
    End Function
 
    Public Function GetProcessHandle(ByVal ProcessName As String) As IntPtr
        If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
        Dim ProcessArray = Process.GetProcessesByName(ProcessName)
        If ProcessArray.Length = 0 Then Return Nothing Else Return ProcessArray(0).MainWindowHandle
    End Function
 
#End Region
 
End Class
 

NetLoader


Cargue sus DLL de .NET inyectándolas en el proceso como en c ++.

• Descargar NetLoader.
• Cree su .Net Dll en función del ejemplo que deje en el proyecto.
• Coloque su DLL compilada dentro de la carpeta [NetPlugins].
• Inyecte la DLL nativa [ASIExNet.dll] en el proceso que desea que cargue su DLL. o Tambien Pudes Cargar [NetLoader] usando el [CustomLoader] que viene junto a los archivos.
• ¡Hecho! El Loader se encargara de ejecutar el código de su DLL.

Ya He dejado un Plugin [DLL] de Ejemplo en el Proyecto. Deberia servir tanto para C# como VB

Plugins

Hasta Ahora solo Hice 1 Plugin , Este mismo es para SAMP , San Andreas Multiplayer

Nota: Los Plugins Deberían Funcionar Correctamente en Todos los Juegos . [Con su correspondiente Bypass en caso de que Posean Anticheat.]

---

SAMP Injector

Inyector para SAMP [San Andreas Multi-Player] - Mas Informacion en GitHub. | Plugin para NetLoader.

Gracias al Compañero @BloodSharp Por su ayuda en C++.  

Cualquier duda, Acerca de; como usar, errores y mas... Pofavor Comentar en este Post.

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Max As String = String.Empty
 
        Dim Min As String = 1
 
        Dim Input As String = InputBox("Text:")
 
        If Input <> "" Then
            Max = Input
            If Regex.IsMatch(Max, "^[0-9 ]+$") Then
                Dim Filling As Integer = Max.Length
                Dim Result As New StringBuilder
                Dim Progress As String = Max
                For i As Integer = Min To Max
                    Progress -= 1
                    Result.Append(GetProgresive(Progress, Max, Filling) & vbNewLine)
                Next
 
                MsgBox(Result.ToString) 'Resultado Final
            Else
                MsgBox("Porfavor Use Solo Numeros")
            End If
        End If
    End Sub
 
    Private Shared Function GetProgresive(ByVal Min As Integer, ByVal Max As Integer, ByVal FillingCount As Integer, _
                                          Optional ByVal FillingString As String = "0") As String
        Dim s As String = String.Empty
        Dim sb As New StringBuilder
        For i As Integer = Min To Max
            Dim CalculateSpace As Integer = FillingCount - i.ToString.Length
            sb.Append(GenerateSpaces(CalculateSpace, FillingString) & i & " ")
        Next
        Return sb.ToString()
    End Function
 
    Private Shared Function GenerateSpaces(ByVal len As Integer, ByVal FillingStr As String) As String
        Dim sb As New StringBuilder
        For i As Integer = 1 To len
            sb.Append(FillingStr)
        Next
        Return sb.ToString()
    End Function

Comenta Cualquier cosa si necesitas ayuda