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
