upload http probleme de lecteur du fichier

Bonjour,
voila mon probleme je veux upload un fichier en http est quand le lit mon fichier (example: .rar) que je veux upload et que je send a un script php,  il me manque des bytes je pense que sa merde au moment ou je lit mon fichier


Imports System.Net
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim fileContents As Byte() = My.Computer.FileSystem.ReadAllBytes("c:\test.rar")
       Dim enc As New System.Text.ASCIIEncoding()
       Dim str As String = enc.GetString(fileContents)
       Dim sMessage As String = "-----------------------------41184676334" + vbCrLf + _
       "Content-Disposition: form-data; name='uploadtype'" + vbCrLf + _
       vbCrLf + _
       "on" + vbCrLf + _
       "-----------------------------41184676334" + vbCrLf + _
       "Content-Disposition: form-data; name='fileupload'; filename='test3.rar'" + vbCrLf + _
       "Content-Type: application/x-rar-compressed" + vbCrLf + _
       vbCrLf + _
       str + vbCrLf + _
       "-----------------------------41184676334" + vbCrLf + _
       "Content-Disposition: form-data; name='MAX_FILE_SIZE'" + vbCrLf + _
       vbCrLf + _
       "100000000000" + vbCrLf + _
       "-----------------------------41184676334--" + vbCrLf + _
       vbCrLf

Dim oWRequest As HttpWebRequest = CType(WebRequest.Create("http://127.0.0.1/post.php"), HttpWebRequest)
       Dim myWriter As IO.StreamWriter
       oWRequest.ContentLength = sMessage.Length
       oWRequest.ContentType = "multipart/form-data; boundary=---------------------------41184676334"
       oWRequest.Method = "POST"
       Try
           myWriter = New IO.StreamWriter(oWRequest.GetRequestStream())
           myWriter.Write(sMessage)
       Catch ex As Exception
           MsgBox(ex.Message())
       Finally
           myWriter.Close()
       End Try


       Dim objResponse As System.Net.HttpWebResponse = oWRequest.GetResponse()
       Dim sr As New System.IO.StreamReader(objResponse.GetResponseStream)
       Dim result As String = sr.ReadToEnd
       MsgBox(result)
       sr.Close()

   End Sub
End Class


--==Papi Psycho==--

Salut,
Si tu fais du VB.NET pourquoi postes tu dans la section dédiée à VB6???


@+: Ju£i€n
Pensez: Réponse acceptée

Re,
Ahrg envoyé trop tôt.
C'est DARKSIDIOUS qui va être content 2 messages dans le forum en 37 minutes et déjà deux messages à replacer dans la section corrercte.
Faites un peu attention ce n'est pas difficile d'avoir un peu de rigueur...

@+: Ju£i€n
Pensez: Réponse acceptée

Salut,

eux desolé pour la categorie

--==Papi Psycho==--