|
Título: seria correcto esto para saber si alguien esta conectado Publicado por: kabukiman en 20 Junio 2007, 15:59 pm public function esta_conectado() as boolean
dim ip as string ip = winsock1.LocalIP if strcomp(ip,"127.0.0.1")=0 then esta_conectado = false else esta_conectado = true end if end sub Título: Re: seria correcto esto para saber si alguien esta conectado Publicado por: Sancho.Mazorka en 20 Junio 2007, 16:22 pm Mira te lo dejo mas facil:
Código: If Winsock1.State = 7 then MsgBox "El programa esta conectado" Te dejo las constantes de numeros del Winsock.State: Socket cerrado = 0 Socket abierto = 1 Socket escuchando = 2 Conexion pendiente = 3 Resolviendo host = 4 Host resuelto = 5 Socket conectandose = 6 Socket conectado = 7 Socket cerrandose = 8 Socket error = 9 Sancho.Mazorka :¬¬ |