Module PRUEBA
 
    Private DChar() As Char = {
        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
        "u", "v", "w", "x", "y", "z",
        "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
        "U", "V", "W", "X", "Y", "Z",
        "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
    }
 
    Dim chrIntent As Integer
    Dim chrPos As Integer
 
    Public Sub initPasswordModule()
 
        chrIntent = 1
        chrPos = 0
 
    End Sub
 
    Public Sub newGetPassword()
        Dim BruteSTR(UBound(DChar)) As Char
        Dim PasswordCracked As Boolean
 
        PasswordCracked = True
        BruteSTR(0) = DChar(0)
 
        Do While PasswordCracked
            GenerateString(BruteSTR, chrPos, chrIntent)
            Debug.Print(BruteSTR & " - ")
            PasswordCracked = False
            Application.DoEvents()
        Loop
 
    End Sub
 
    Private Sub GenerateString(ByRef StrChar() As Char, ByRef cPos As Integer, ByRef cIntent As Integer)
        Dim lastCaracterIndex As Integer
        lastCaracterIndex = cIntent Mod Len(DChar)
 
        If lastCaracterIndex = 0 Then ' Llegamos al ultimo caracter del array => agregamos un nuevo caracter
            cPos = cPos
            StrChar(cPos) = DChar(0)
        Else
            StrChar(cPos) = DChar(lastCaracterIndex) ' Cambiamos el ultimo caracter por el siguiente
        End If
 
        cIntent = cIntent + 1
 
    End Sub
 
End Module

If (A And &H20) Then Exit Function
If (C And &H8000) Then Exit Function
If (B And &H8) Then
etc...

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