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