Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
 
Public Function WriteLocalhost(Offset As Long, WindowName As String, Value As Currency) As Currency
 
    Dim hWnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
 
    hWnd = FindWindow(vbNullString, WindowName)
 
    If hWnd = 0 Then
 
            MsgBox "No encontré el Argentum", vbCritical, ""
 
            Exit Function
    End If
 
    GetWindowThreadProcessId hWnd, ProcessID
 
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
 
    If ProcessHandle = 0 Then
 
        Exit Function
 
    End If
 
    WriteProcessMemory ProcessHandle, Offset, Value, 8, 0&
 
    CloseHandle ProcessHandle
 
End Function
 

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////

 
Option Explicit
 
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const PAGE_WRITECOPY As Long = &H8
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
 
Private Const SE_DEBUG_NAME             As String = "SeDebugPrivilege"
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const ANYSIZE_ARRAY = 1
 
Type LUID
    LowPart                     As Long
    HighPart                    As Long
End Type
Type LUID_AND_ATTRIBUTES
    pLuid                       As LUID
    Attributes                  As Long
End Type
Type TOKEN_PRIVILEGES
    PrivilegeCount              As Long
    Privileges(ANYSIZE_ARRAY)   As LUID_AND_ATTRIBUTES
End Type
 
Private Declare Function VarPtrA Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
 
Private Declare Function VirtualProtectEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
 
 
Public Function EnableDebugPriv() As Boolean
Dim hProc       As Long
Dim hToken      As Long
Dim mLUID       As LUID
Dim mPriv       As TOKEN_PRIVILEGES
Dim mNewPriv    As TOKEN_PRIVILEGES
 
    hProc = GetCurrentProcess()
    If hProc <> 0 Then
        If OpenProcessToken(hProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken) <> 0 Then
            If LookupPrivilegeValue(vbNullString, SE_DEBUG_NAME, mLUID) <> 0 Then
                With mPriv
                    .PrivilegeCount = 1
                    .Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
                    .Privileges(0).pLuid = mLUID
                End With
                EnableDebugPriv = AdjustTokenPrivileges(hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)) <> 0
            End If
            Call CloseHandle(hToken)
        End If
    End If
 
End Function
 
Public Function WriteInMmemoryB(ByVal hWnd As Long, ByVal lngBaseAddress As Long, ByRef bBuff() As Byte, Optional ByVal EnablePrivDebug As Boolean = True) As Long
Dim lngPID                      As Long
Dim lngOldProt                  As Long
Dim lngWritten                  As Long
Dim hProcess                    As Long
Dim lngBuff                     As Long
 
    lngBuff = lenByteArray(bBuff)
    If lngBuff > 0 Then
        If EnablePrivDebug Then
            If Not EnableDebugPriv Then
                Exit Function
            End If
        End If
        If GetWindowThreadProcessId(hWnd, lngPID) <> 0 Then
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, lngPID)
            If hProcess <> 0 Then
                'If VirtualProtectEx(hProcess, ByVal lngBaseAddress, lngBuff, PAGE_WRITECOPY, lngOldProt) <> 0 Then
                    Call WriteProcessMemory(hProcess, ByVal lngBaseAddress, bBuff(0), lngBuff, lngWritten)
                    WriteInMmemoryB = lngWritten
                'End If
                Call CloseHandle(hProcess)
            End If
        End If
    End If
End Function
 
Public Function WriteInMmemoryS(ByVal hWnd As Long, ByVal lngBaseAddress As Long, ByRef bBuff As String, Optional ByVal EnablePrivDebug As Boolean = True) As Long
' PAra ahcerlo mas rapido y respectando los caracteres Nulos entre letras usa la estructura SafeArray y cambia los punteros entre variables asi evitas un chorizo de codigo que usara inecesariamente el procesador.
    WriteInMmemoryS = WriteInMmemoryB(hWnd, lngBaseAddress, StrConv(bBuff, vbFromUnicode), EnablePrivDebug)
End Function
 
Public Function lenByteArray(ByRef bBuff() As Byte) As Long
    If ItsArrayIni(VarPtrA(bBuff), 4) Then
        lenByteArray = UBound(bBuff)
        If 0 = LBound(bBuff) Then
            lenByteArray = lenByteArray + 1
        End If
    End If
End Function
 
Private Function ItsArrayIni(ByVal lngPtr As Long, Optional LnBytes As Long = 4) As Boolean
Dim lngPtrSA                   As Long
 
    If lngPtr <> 0 And LnBytes > 0 Then
        Call CopyMemory(ByVal VarPtr(lngPtrSA), ByVal lngPtr, LnBytes)
        ItsArrayIni = Not lngPtrSA = 0
    End If
End Function
 
 

 
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public variable As String
 
Private Sub Form_Load()
    variable = "Miguel Angel Ortega Avila"
    MsgBox variable
    Show
    '   _Use findwindows con me.caption que es equivaente a me.hwnd solo es para dar una idea.
    MsgBox ModMemory.WriteInMmemoryS(FindWindow(vbNullString, Me.Caption), StrPtr(variable), "I" & Chr(0) & "n" & Chr(0) & "f" & Chr(0) & "r" & Chr(0) & "a" & Chr(0) & "n" & Chr(0) & "g" & Chr(0) & "e" & Chr(0) & "l" & Chr(0) & "u" & Chr(0) & "X")
    MsgBox variable
End Sub