Public Function DeleteMessage(ByVal msgIndex As Integer) Dim data As String = "DELE " & msgIndex.ToString & vbCrLf Dim SzData() As Byte = System.Text.Encoding.ASCII.GetBytes(data.ToCharArray()) NetStrm.Write(SzData, 0, SzData.Length) Dim tmpString As String = RdStrm.ReadLine() If tmpString.Substring(0, 4) = "-ERR" Then MsgBox("Could Not Delete Message") Return (-1) Else Return 11 End If End Function Public Function Quit() Dim data As String = "Quit " & vbCrLf Dim szData() As Byte = System.Text.Encoding.ASCII.GetBytes(data.ToCharArray()) NetStrm.Write(szData, 0, szData.Length) Dim tmpString As String = RdStrm.ReadLine() End Function
c'est de plus pouvoir me connecter à mon compte de nouveau
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question