Hola saludos desde Mexico, Mi Preguntas es:
Como puedo Obtener el nombre de la pc en que estoy trabajando mediante código en visual basic. Si me pudieras dar un ejemplo
1 respuesta
Respuesta de sneaker
1
Aquí lo tienes:
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function Ordenador() As String
Dim Nombre As String * 255, Respuesta As Long, Longitud as Long, Res As Long
'Crea Buffer
Nombre = ""
Longitud = Len(Nombre)
Res = GetComputerName(Nombre, Longitud)
If Res and Longitud > 0 Then
Ordenador = Left$(Nombre, Longitud)
Else
Ordenador = "No encontrado"
End If
End Function
Private Sub Form_Load()
MsgBox Ordenador
End Sub
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function Ordenador() As String
Dim Nombre As String * 255, Respuesta As Long, Longitud as Long, Res As Long
'Crea Buffer
Nombre = ""
Longitud = Len(Nombre)
Res = GetComputerName(Nombre, Longitud)
If Res and Longitud > 0 Then
Ordenador = Left$(Nombre, Longitud)
Else
Ordenador = "No encontrado"
End If
End Function
Private Sub Form_Load()
MsgBox Ordenador
End Sub
