USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Bloquear uma porta utilizando Winsock
Postada em 5/11/2003 por [_Chuck_]            
Private Sub Form_Load()

  Winsock1.LocalPort = "21"
  Winsock1.Protocol = sckTCPProtocol
  Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

  MsgBox "IP Remoto: " & Winsock1.RemoteHostIP & " Porta Local: " & Winsock1.LocalPort & " Porta Remota: " & Winsock1.RemotePort

End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página