Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic
Code

Visual Basic - Obtener el nombre del ordenador

Códigos Visual Basic

Para ejecutar este codigo Vb debemos crear un modulo con el primer codigo posteriromente un formulario con un boton llamado Command1 el cual ejecutará la aplicacion. Con esto conseguimos el nombre del Ordenador.
Visitas: 20,180 - 16/05/2004 2:44:30
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. ' ---------- MODULO
  2. Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4. ' ---------- FORMULARIO
  5. Private Sub Command1_Click()
  6.  Dim strBuffer As String
  7.   Dim lngBufSize As Long
  8.   Dim lngStatus As Long
  9.  
  10.   lngBufSize = 255
  11.   strBuffer = String$(lngBufSize, " ")
  12.   lngStatus = GetComputerName(strBuffer, lngBufSize)
  13.   If lngStatus <> 0 Then
  14.      MsgBox ("El nombre de este ordenador es: " & Left(strBuffer, lngBufSize))
  15.   End If
  16.   End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Obtener el nombre del ordenador" href="http://www.tutores.org/codigo/1093/" target="_blank">Obtener el nombre del ordenador</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Sebastian Garcia
1 5
Una manera mas facil es agregar el control MSWINSCK.ocx y luego poner este llamado.
Ej.form1.caption=winsock1.LocalHostName


Espero les sirva abrazo
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.