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