envoyer un fichier en methode POST

Marsh Posté le 26-10-2007 à 19:58:41

Bonjour,

je dois automatiser l'envoi de fichiers (videos) vers cette addresse: http://upload.youporn.com/ dans un programme .NET

step1 envoi la form vers step1.php.
step1.php est rechargé avec le code html suivant

Code :

<form action="/upload/step2" method="post" enctype="multipart/form-data" onsubmit="show_progress(); return true;">
....
<td><p><input class="url" name="file" type="file" /></p></td>
....
<fieldset style="text-align: center;" class="nolegend">
<input class="submit" value="Upload" type="submit">
</fieldset>
<input type="hidden" name="title" value="titlezzz" />
<input type="hidden" name="type" value="straight" />
<input type="hidden" name="description" value="description" />
<input type="hidden" name="tags" value="tags ff" />
<input type="hidden" name="email" value="ff@example.com" />
<input type="hidden" name="usview" value="no" />
<input type="hidden" name="site_name" value="" />
<input type="hidden" name="site_url" value="http://" />
</form>

le submit envoi le tout vers step2.php
Jessai donc d'envoyer tout directement à step2.php (puisque step 1 ne fait que recupérer les valeurs des champs et les mettres en dans des input type="hidden" )

Le probleme est que la reponse serveur apres l'upload est la page /step1 avec les champs du formulaire remplis (avec un cadre <div class="error"> vide... comme si javais oublier un parametre) au lieu de step2.php (upload completed)

Ce n'est pas un probleme de cookies puisque on peu envoyer des videos avec les cookies desactivés
Jaimerai comprendre dou vien le probleme

voici mon code .NET

Code :

Dim content_type As String = "video/mpeg"
querystring("file" ) = "filename=" & Chr(34) & upf._Fullpath & Chr(34) & " " & "Content-Type: " & content_type
querystring("title" ) = upf._title
querystring("type" ) = upf._Genre
querystring("description" ) = upf._Desc
querystring("tags" ) = upf._Tags
querystring("email" ) = upf._Email
querystring("usview" ) = "yes"
querystring("site_name" ) = upf._SiteName
querystring("site_url" ) = upf._SiteUrl
w.QueryString = querystring
w.Encoding = System.Text.Encoding.UTF8
Dim userAgent As String = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)"
Dim accept As String = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*"
Dim accept_encoding As String = "gzip, deflate"
lbl_currentfile.Text = upf._title
w.Headers.Add(HttpRequestHeader.AcceptEncoding, accept_encoding)
w.Headers.Add(HttpRequestHeader.AcceptLanguage, "fr" )
w.Headers.Add(HttpRequestHeader.CacheControl, "no-cache" )
w.Headers.Add(HttpRequestHeader.KeepAlive, "true" )
w.Headers.Add(HttpRequestHeader.ContentType, content_type)
w.Headers.Add(HttpRequestHeader.Referer, YOUPORNURLS.PORN_UPLOAD_REFERER)
w.Headers.Add(HttpRequestHeader.UserAgent, userAgent)
w.UploadFileAsync(New Uri(YOUPORNURLS.PORN_UPLOAD), "POST", upf._Fullpath)

Message édité par F A Z Z le 26-10-2007 à 20:07:54

Reply

Marsh Posté le 26-10-2007 à 19:58:41

Reply

Marsh Posté le 30-10-2007 à 15:35:36

bon bein obliger de se débrouiller... pour ceux ke sa intersse jai fait comme sa et sa marche

Code :

Public Class UploadFormFile
Public Shared Function PrepareDatasToSend(ByVal filepath As String, ByVal fileFormName As String, ByVal contenttype As String, ByVal querystring As Specialized.NameValueCollection, ByVal boundary As String) As Byte()
If (fileFormName Is Nothing) OrElse (fileFormName.Length = 0) Then
fileFormName = "file"
End If
If (contenttype Is Nothing) OrElse (contenttype.Length = 0) Then
contenttype = "application/octet-stream"
End If
Dim Startboundary As New System.Text.StringBuilder()
Startboundary.Append("--" )
Startboundary.Append(boundary)
Startboundary.Append(vbCrLf)
Startboundary.Append("Content-Disposition: form-data; name=""" )
Startboundary.Append(fileFormName)
Startboundary.Append("""; filename=""" )
Startboundary.Append(filepath)
Startboundary.Append("""" )
Startboundary.Append(vbCrLf)
Startboundary.Append("Content-Type: " )
Startboundary.Append(contenttype)
Startboundary.Append(vbCrLf)
Startboundary.Append(vbCrLf)
'ajoute les paires nom/valeurs
Dim Endboundary As New System.Text.StringBuilder()
If querystring IsNot Nothing Then
Endboundary.Append(vbCrLf)
For Each key As String In querystring.Keys
Endboundary.Append("--" & boundary)
Endboundary.Append(vbCrLf)
Endboundary.Append("Content-Disposition: form-data; name=" & Chr(34) & key & Chr(34))
Endboundary.Append(vbCrLf)
Endboundary.Append(vbCrLf)
Endboundary.Append(querystring.[Get](key))
Endboundary.Append(vbCrLf)
Next
End If
Endboundary.Append("--" & boundary)
Endboundary.Append(vbCrLf)
Dim postHeader As String = Startboundary.ToString()
Dim postHeaderBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(postHeader)
Dim postFooter As String = Endboundary.ToString
Dim postFooterBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(postFooter)
Dim fileBytes() As Byte = My.Computer.FileSystem.ReadAllBytes(filepath)
Dim lenght As Integer = postHeaderBytes.Length + fileBytes.Length + postFooterBytes.Length - 1
Dim dataPaquet(lenght) As Byte
Array.Copy(postHeaderBytes, dataPaquet, postHeaderBytes.Length)
Array.Copy(fileBytes, 0, dataPaquet, postHeaderBytes.Length, fileBytes.Length)
Array.Copy(postFooterBytes, 0, dataPaquet, fileBytes.Length + postHeaderBytes.Length, postFooterBytes.Length)
Return dataPaquet
End Function
End Class

Code :

Sub BeginUpload()
dim w as new webclient
Dim querystring As New Specialized.NameValueCollection()
'ajouter les champs du formulaire
querystring("nom" ) = valeur
w.Encoding = System.Text.Encoding.UTF8
'preparer l'entete de la requete
Dim userAgent As String = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)"
Dim accept As String = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*"
Dim accept_encoding As String = "gzip, deflate"
Dim accept_charset As String = "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
Dim boundary As String = "---------------------------" + DateTime.Now.Ticks.ToString("x" )
w.Headers.Add(HttpRequestHeader.AcceptEncoding, accept_encoding)
w.Headers.Add(HttpRequestHeader.AcceptLanguage, "fr" )
w.Headers.Add(HttpRequestHeader.CacheControl, "no-cache" )
w.Headers.Add(HttpRequestHeader.KeepAlive, "true" )
w.Headers.Add(HttpRequestHeader.ContentType, "multipart/form-data; boundary=" & boundary)
w.Headers.Add(HttpRequestHeader.Referer, YOUPORNURLS.PORN_UPLOAD_REFERER)
w.Headers.Add(HttpRequestHeader.UserAgent, userAgent)
w.Headers.Add(HttpRequestHeader.Accept, accept)
w.Headers.Add(HttpRequestHeader.AcceptCharset, accept_charset)
dim filePath as string = "c:\exemple.mpg"
dim MIMEtype as string = "video/mpeg" ' faire une methode pour determiner le mime type
Dim datas() As Byte = UploadFormFile.PrepareDatasToSend(filePath, "",MIMEtype, querystring, boundary)
w.UploadData(New Uri("http://localhost/Upload.php" ), "POST", datas)
end sub

Reply

Marsh Posté le 31-10-2007 à 08:38:38

YOUPORNURLS.PORN_UPLOAD_REFERER => skoi ce truc ? :lol:

Sinon, pourquoi dans ton premier post tu écrit dans querystring ? Pas tout capté ce que tu faisais. Normalement c'est readonly QueryString (enfin... pas persistant en tout cas, donc pas trop de raison d'écrire dedans)

Et enfin, pourquoi ne pas passer par la classe System.Net.WebClient ?
=> C'est comme chez Casto, y'a tout s'ky faut.

Reply

Marsh Posté le 28-11-2007 à 10:18:16

La class web client ne permet pas d'envoyer des infos genre nom/valeur ou des cookies
Querystring c'est pas readonly. Elle sera concaténé à l'addresse URL au moment de lenvoi

Reply

Marsh Posté le 28-11-2007 à 10:22:27

Fazz t'es mon héro

Reply

Marsh Posté le 12-03-2009 à 17:01:12

Ce code je le cherche ça fait longtemps
mais je n'arrive pas à le faire executé
c'est quoi le problème !!!!!!!!!

Reply

envoyer un fichier en methode POST

Sujets relatifs:

Leave a Replay