Inquiridor
Erro socket na porta 80

Pergunta
-
Estou tentando fazer uma comunicação através de windows socket usando um mine modem vivo. O problema é que todas as portas deste modem estão fechadas com exceção da 80. Quando tento ler a porta 80 utilizando socket aparece a mensagem de erro "Foi feita uma tentativa de acesso a um soquete de uma maneira que é proibida pelas permissões de acesso". Segue o código abaixo, se alguém tiver alguma ideia favor me enviar. :
Public Sub LeInformacoesPorta()
Dim tcpListener As TcpListener
Dim tcpClient As TcpClientDim Resp As String
Dim Porta_Saida As Integer = 80
Dim networkStream As NetworkStream
Dim Retorno As String
Try
tcpListener = New TcpListener(Porta_Saida) ' o erro acontece aqui
Catch ex As Exception
'LbLog.Invoke(PreencheMensagem, " Erro inicio Leitura " & ex.Message)
MsgBox(ex.Message)
Exit Sub
End Try
Try
tcpListener.Start()
Catch ex As Exception
'LbLog.Invoke(PreencheMensagem, " Erro ao ler bota 8003 " & ex.Message)
MsgBox(ex.Message)
Exit Sub
End Try
Dim DadosRecebidos As String = ""
Leitura:
Try
'aceita a conexao do cliente e retorna uma inicializacao TcpClient
tcpClient = tcpListener.AcceptTcpClient()
networkStream = tcpClient.GetStream()
' le o stream em um array de bytes
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
' Retorna os dados recebidos do cliente para o console
DadosRecebidos = Encoding.GetEncoding("iso8859-1").GetString(bytes)
DadosRecebidos = Replace(DadosRecebidos, Chr(0), "") '* tira sugeira lida
MsgBox(DadosRecebidos)
tcpClient.Close()
tcpListener.Stop()
tcpClient = Nothing
tcpListener = Nothing
Threading.Thread.Sleep(500) '* tempo de 1,5 segundos
LeInformacoesPorta()
'GoTo Leitura
Catch e As Exception
'LbLog.Invoke(PreencheMensagem, "Erro leitura da porta = " & e.Message)
tcpClient.Close()
tcpListener.Stop()
Threading.Thread.Sleep(800) '* tempo de 1,5 segundos
LeInformacoesPorta()
End Try
End Sub
- Editado ALEXANDRE GONTIJO segunda-feira, 27 de novembro de 2017 22:18
Todas as Respostas
-
Boa tarde, ALEXANDRE GONTIJO. Tudo bem?
Obrigado por usar o fórum MSDN.
Provávelmente o teu firewall está bloqueando, tente fazer um teste desligando o firewall.
Atenciosamente,Filipe B de Castro
Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.
-
-
Boa tarde, a porta "80" não server pois tem varios programas que usam ela, como por ex o "skype", recomendo que use uma porta de 4 digitos ex "1000 2000 8000 8888" e abri no firewall permiti acesso remoto e abri no moudem servidor ou ate mesmo roteador antes de passar para programação.
-
-
-
-