USUÁRIO:
SENHA:
SALVAR LOGIN ?
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
