Trucos de Visual Basic 6.0 Hallar el nombre del PC en Windows 95 o Windows NT

Cree un nuevo proyecto e inserte dos ButtonClick y un Módulo:

Pegue el siguiente código en el formulario:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nPC as String
Dim buffer As String
Dim estado As Long
buffer = String$(255, " ")
estado = GetComputerName(buffer, 255)
If estado <> 0 Then
nPC = Left(buffer, 255)
End If
MsgBox "Nombre del PC: " & nPC
End Sub

Private Sub Command2_Click()
Unload Form1
End Sub

Pegue el siguiente código en el módulo:

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

---

Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado Calcular la cantidad de días de un mes específico Averiguar si un día corresponde a un fin de semana Averiguar el último día de un Mes determinado Ave
Truco de Visual Basic 6.0, Convertir un texto a mayúsculas o minúsculas
Convertir un texto a mayúsculas o minúsculas
Truco de Visual Basic 6.0, Encriptar y desencriptar cadenas
Encriptar y desencriptar cadenas
Truco de Visual Basic 6.0, Conexión a una base de datos por ODBC.
Conectar a una base de datos por ODBC
Truco de Visual Basic 6.0, Como desplegar la lista de un ComboBox automáticamente
Como desplegar la lista de un ComboBox automáticamente
Truco de Visual Basic 6.0, VB6 y los DATAREPORT

Truco de Visual Basic 6.0, VB6 Pasar SQL Crystal Reports
Pasar una SQL a Crystal Reports
Truco de Visual Basic 6.0, VB6 Recorrer un Recordset
Este truco de visual Basic 6.0 explica cómo recorrer un recordset.
Truco de Visual Basic 6.0, VB6 Cargar un combo con datos de una BD
Gracias a un recordset cargaremos un combo.
Truco de Visual Basic 6.0, Validar un número de tarjeta de crédito (ISO 2894)
En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894.
Truco de Visual Basic 6.0, Abrir/Cerrar lector de CD
Abrir/Cerrar lector de CD
Truco de Visual Basic 6.0, Uso de Random

Truco de Visual Basic 6.0, Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Truco de Visual Basic 6.0, Limpiar todas las cajas de texto de un formulario
Podemos limpiar, o inicializar todos los campos de un formulario rápidamente.
Truco de Visual Basic 6.0, Pasar de un TextBox a otro al pulsar Enter
Pasar de un TextBox a otro al pulsar Enter
Ver todos los trucos de Visual Basic 6.0