Nombre: IP-NombrePC-FechayHora
Descripción:
Una aplicación muy simple de nostrar el nombre de tu equipo y tu IP, además de mostrarte la fecha y hora y la hora en que lo ejecutaste.
URL: http://www.mygnet.net/codigos/vb/varios/ipnombrepcfechayhora.2138
Código Fuente:
Private Sub Command1_Click()
mivar = MsgBox(" ¿Desea salir?", (vbYesNo))
If mivar = 6 Then End
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Text1 = Winsock1.LocalHostName
Text2 = Winsock2.LocalIP
Label1.Caption = Date
Label3.Caption = Time
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub