Error en Obtencion de Usuario Windows en Visual Basic 2013
Publicado por John (4 intervenciones) el 22/06/2014 17:00:40
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 :
dependiente de la Siguiente Funcion:
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.
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 :
1
2
3
4
5
6
7
8
9
10
11
12
13
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:
1
2
3
4
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
0