hola
![[chiu]](/images/smilies/nuevos2/karateka.gif "karateka")
Ando desarrollando una miniaplicacion que descargue mails de una cuenta de correo pero algo no sale bien y ya no se que mas vueltas darle a esto
![[buuuaaaa]](/images/smilies/nuevos/triste_ani3.gif "a lágrima viva")
Aqui va una captura de problema en si...
Posibles problemas:
* No se si exactamente tengo que poner mail.live.com o hotmail.com o que xD (si, estoy intentando conectar con una cuenta hotmail)
* El puerto que uso es el 110 porque comentan que siempre se usa ese o el 25 pero ya no tengo nada claro..
Aqui va la parte que interesa del programa..
Public Enum POP3States
POP3_Connect
POP3_USER
POP3_PASS
POP3_STAT
POP3_RETR
POP3_DELE
POP3_QUIT
End Enum
Private m_State As POP3States
Private intMessages As Integer
Private intCurrentMessage As Integer
Private strBuffer As String
Private oSocket As New TcpClient
Private oNetStream As NetworkStream
Private strServer As String
Private strUserName As String
Private strPassword As String
Private lngPort As Long
Sub Main()
strServer = "mail.live.com" 'Servidor
lngPort = "110" 'Puerto
strUserName = "....@hotmail.es" 'Login
strPassword = "...." 'Pass
Connect()
End Sub
Public Sub Connect()
Try
Dim strData As String
m_State = POP3States.POP3_Connect
oSocket.Connect(strServer, lngPort)
oNetStream = oSocket.GetStream
Do While m_State <> POP3States.POP3_QUIT
Dim ReadBytes(oSocket.ReceiveBufferSize) As Byte
Dim lngTotalBytes As Integer = oSocket.ReceiveBufferSize
' Comprobacion para ver si hay datos para posible lectura...
' y siempre da False :(
Console.Write("oNetStream.DataAvailable = ")
Console.WriteLine(oNetStream.DataAvailable)
oNetStream.Read(ReadBytes, 0, lngTotalBytes) <---- ERROR!!!!
