RE:Direccion IP del PC actual (1ª parte)
Publicado por
Pere (1 intervención) el 11/05/2003 00:50:07
En un módulo .bas declaras:
Public 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
Public Function LoginRed(ByVal red As String)
' Dim strBuffer As String
Dim lSize As Long
Dim lRes As Long
strBuffer = String(256, Chr$(0))
lSize = Len(strBuffer)
lRes = GetUserName(strBuffer, lSize)
If lRes And lSize Then
strBuffer = left$(strBuffer, InStr(strBuffer, Chr$(0)) - 1)
Else
strBuffer = ""
End If
' Label1.Caption = strBuffer
End Function
Public Function NombrePc(x As String)
Dim buffer As String, estado As Long
buffer = String$(255, " ")
estado = GetComputerName(buffer, 255)
If estado <> 0 Then
nPc = left(buffer, 255)
End If
End Function