Cierre inesperado - Winsock Api
Publicado por Ni Co (1 intervención) el 24/02/2007 08:21:28
Hola gente
Estoy empezando a programar con el API de Winsock, y en cierto momento, cuando no encuentra un hostname valido, puedo lograr que me diga el numero de error, pero de todas maneras, el visual basic se cierra sin dejarme continuar con la ejecucion de la aplicacion.
A continuacion, fragmento del codigo:
____________________________________________________________
Private Sub BTNhost_Click()
DoEvents
On Error Resume Next
'apuntamos a los datos del host
PunteroHostent = gethostbyname(Host.Text)
'si hay error muestra mensaje
If PunteroHostent = 0 Then MsgBox (Err.LastDllError) Else _
'copiamos la info de los datos del host a una variable
RtlMoveMemory InfoHostent, PunteroHostent, Len(InfoHostent)
'seteamos la variable para que reciba un buffer de 256 caracteres
NombreHost = String(256, 0)
'llevamos el nombre del host a la variable NombreHost
RtlMoveMemory ByVal NombreHost, ByVal InfoHostent.hName, 255
HostReal.Caption = "En " & NombreHost
____________________________________________________________
En cualquier caso, diganme una manera para que el visual basic 6.0 (o la aplicacion en ejecucion) no se cierre en caso de error, por favor, es urgente.
Saludos gente!
Estoy empezando a programar con el API de Winsock, y en cierto momento, cuando no encuentra un hostname valido, puedo lograr que me diga el numero de error, pero de todas maneras, el visual basic se cierra sin dejarme continuar con la ejecucion de la aplicacion.
A continuacion, fragmento del codigo:
____________________________________________________________
Private Sub BTNhost_Click()
DoEvents
On Error Resume Next
'apuntamos a los datos del host
PunteroHostent = gethostbyname(Host.Text)
'si hay error muestra mensaje
If PunteroHostent = 0 Then MsgBox (Err.LastDllError) Else _
'copiamos la info de los datos del host a una variable
RtlMoveMemory InfoHostent, PunteroHostent, Len(InfoHostent)
'seteamos la variable para que reciba un buffer de 256 caracteres
NombreHost = String(256, 0)
'llevamos el nombre del host a la variable NombreHost
RtlMoveMemory ByVal NombreHost, ByVal InfoHostent.hName, 255
HostReal.Caption = "En " & NombreHost
____________________________________________________________
En cualquier caso, diganme una manera para que el visual basic 6.0 (o la aplicacion en ejecucion) no se cierre en caso de error, por favor, es urgente.
Saludos gente!
Valora esta pregunta
0