none
Erro socket na porta 80 RRS feed

  • 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 TcpClient

            Dim 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


    segunda-feira, 27 de novembro de 2017 20:15

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.

    terça-feira, 28 de novembro de 2017 14:21
    Moderador
  • Se você está se referindo ao Firewall do windows ele está desativado, o pc não possui ante vírus. O mine modem não possui Firewall . Pra não ter duvida testei em outro pc com outro roteado, todos dão o mesmo erro.
    terça-feira, 28 de novembro de 2017 16:35
  • 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. 
    quarta-feira, 29 de novembro de 2017 15:53
  • O serviço de internet da VIVO não libera nenhuma porta para acesso externo, vou ter que pensar em outra solução.
    quarta-feira, 29 de novembro de 2017 19:27
  • So abri no moudem deles uma tcp
    quinta-feira, 30 de novembro de 2017 01:41
  • Trata-se de um mine modem que não tem nem opção de abrir portas. Não entendi o que quis dizer em abrir uma tcp, o que quis dizer com isso ?
    quinta-feira, 30 de novembro de 2017 09:08
  • Para usa um cliente servidor tem que ser porta TCP protoloco TCP, ligue para seu provedor pedindo a porta então. 
    sábado, 2 de dezembro de 2017 03:02