Visual Basic para Aplicaciones - Error en Obtencion de Usuario Windows en Visual Basic 2013

Life is soft - evento anual de software empresarial
   
Vista:

Error en Obtencion de Usuario Windows en Visual Basic 2013

Publicado por John (1 intervención) el 22/06/2014 16:59:50
Hola,

Muy Buenos Dias: Gracias por Aceptarme en Este Foro.. e vistos Temas Realmente interesantes que se han solucionado y los felicito. les cuento:

Soy un autodidacta con experiencia en Accces, pues ahora quiero implementar esas mini aplicaciones de manera Profesional a través de Visual basic 2013. El problema que tengo es el siguiente :

Dentro de un formulario, tengo un boton que al hacer click haría llamado al codigo :Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

' Dimension variables
Dim lpBuff As String = 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Strings.Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
MsgBox(UserName)
End Sub

dependiente de la Siguiente Funcion:

Module ConoceUsario
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
End Module

pero este me arroja un error

No se controló System.AccessViolationException
HResult=-2147467261
Message=Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada.
Source=Modulo_Tarifados


Resaltando dentro del Editor la siguiente Linea:

ret = GetUserName(lpBuff, 25)

Ya no se que hacer, Vuestra Ayuda con sus sugerencias y comentarios..

de antemano muy agradecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder