Detección del estado del servidor VB CS
Proyecto - Componentes - control de micorosoft winsock
Luego agregue el nuevo control winsock en la barra de herramientas
Conéctese con
winsock1.connect " IP o nombre de host, nombre de dominio", puerto
Ejemplo
paquete atenuado (23) como byte, recibir () como byte
sub comando1_click()
Paquete(0)=&hff
Paquete(1)=&hff
Paquete(2)=&hff
Paquete(3)= &hff
Paquete (4)=&h54
……
winsock1.connect "xxx.xxx.xxx.xxx",xx
end sub
sub winsock1_connect()
winsock1.send paquete
end sub
Sub winsock1_dataarrival(byval bytestotal siempre que sea largo)
winsock1.getdata recibido
'Proceso
End Sub