'APIS
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
    txtUser.Text = NombreUsuario
    txtWin.Text = WinDir
    txtPC.Text = NombreEquipo
End Sub

Function WinDir() As String
Dim Contenido As String
    Contenido = String(255, 0)
    W = GetWindowsDirectory(Contenido, Len(Contenido))
    WinDir = Contenido
End Function

Function NombreUsuario() As String
Dim Contenido As String
    Contenido = String(255, 0)
    W = GetUserName(Contenido, Len(Contenido))
    NombreUsuario = Contenido
End Function
Function NombreEquipo() As String
Dim Contenido As String
    Contenido = String(255, 0)
    W = GetComputerName(Contenido, Len(Contenido))
    NombreEquipo = Contenido
End Function

' APIS
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    
' Constantes.
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B

Private Sub Command1_Click()
    Call keybd_event(VK_LWIN, 0, 0, 0)
    Call keybd_event(77, 0, 0, 0)
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

' APIS
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
    Call keybd_event(44, 0, 0&, 0&)
        DoEvents
        SavePicture Clipboard.GetData, App.Path & "\Captura.bmp"
End Sub

' *Procedimiento para dibujar el mapa.
Sub DibujarMapa()
Dim nMapa As Integer        ' Número de archivo.
Dim sMapa As String        ' Ruta y nombre de archivo.
Dim TilesMapa As String     ' Variable para leer los tiles de cada linea.
Dim Columnas As Integer     ' Número de columnas
Dim Filas As Integer        ' Número de filas
Dim ch As String            ' Variable para cambiar caracteres
Dim i As Integer            ' Contador
Dim c As Integer            ' Contador2
Dim n As Integer            ' Contador3
Dim m As Integer            ' Contador4

Dim f As Integer
    i = 1
    n = 0
    m = 0
    nMapa = FreeFile
    sMapa = MapasDir & "mapa.map"
    
    Open sMapa For Input As #nMapa
    
    ' Coge el número de columnas y filas
    Input #nMapa, Filas, Columnas
    
    For f = 1 To Filas
    m = 0
        Line Input #nMapa, TilesMapa
        
            For c = 1 To Columnas
            ch = Mid$(TilesMapa, c, 1)
            
                ' Hierba
                If LCase$(ch) = "#" Then
                    Load FrmMapa.tile(i)
                    FrmMapa.tile(i).Top = 0 + n
                    FrmMapa.tile(i).Left = 0 + m
                    FrmMapa.tile(i).Picture = LoadPicture(GraficosDir & "200.jpg")
                    FrmMapa.tile(i).Visible = True
                ' Agua
                ElseIf LCase$(ch) = "A" Then
                    Load FrmMapa.tile(i)
                    FrmMapa.tile(i).Picture = LoadPicture(GraficosDir & "204.jpg")
                    FrmMapa.tile(i).Top = 0 + n
                    FrmMapa.tile(i).Left = 0 + m
                    FrmMapa.tile(i).Visible = True
                ' Tierra
                ElseIf LCase$(ch) = "T" Then
                    Load FrmMapa.tile(i)
                    FrmMapa.tile(i).Top = 0 + n
                    FrmMapa.tile(i).Left = 0 + m
                    FrmMapa.tile(i).Picture = LoadPicture(GraficosDir & "201.jpg")
                    FrmMapa.tile(i).Visible = True
                ' Desierto
                ElseIf LCase$(ch) = "D" Then
                    Load FrmMapa.tile(i)
                    FrmMapa.tile(i).Top = 0 + n
                    FrmMapa.tile(i).Left = 0 + m
                    FrmMapa.tile(i).Picture = LoadPicture(GraficosDir & "202.jpg")
                    FrmMapa.tile(i).Visible = True
                End If
                
                i = i + 1
                m = m + 50
                
                    If c = Columnas Then
                        n = n + 50
                        'MsgBox "n + 50"
                    End If
            Next c
    Next f
    Close #nMapa

End Sub