1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Private Sub uploadImg(ByVal path As String)
'Авторизация, получение кук
Dim url As String = "http://image2you.ru/login/"
Dim header As New System.Text.StringBuilder()
Dim req As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
req.ContentType = "application/x-www-form-urlencoded"
req.Headers.Add(HttpRequestHeader.Pragma, "no-cache")
req.Accept = "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*"
req.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip, deflate")
req.Headers.Add(HttpRequestHeader.AcceptLanguage, "ru")
req.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"
req.Referer = "http://image2you.ru/login/"
req.Method = "POST"
Dim s As IO.Stream = req.GetRequestStream
Dim bytes() As Byte = System.Text.Encoding.UTF8.GetBytes(String.Format("email={0}&pass={1}&imageField.x=32&imageField.y=10", E-MAIL, PASS))
s.Write(bytes, 0, bytes.Length)
s.Close()
Dim cookie As String = req.GetResponse().Headers("set-cookie")
'Загрузка изображения
url = "http://image2you.ru/cabinet/upload/"
Dim boundary As String = IO.Path.GetRandomFileName
header = New System.Text.StringBuilder()
header.AppendLine("--" & boundary)
header.AppendLine("Content-Disposition: form-data; name=""image_name""" & vbNewLine & vbNewLine & IO.Path.GetFileName(path))
header.AppendLine("--" & boundary)
header.AppendLine("Content-Disposition: form-data; name=""image""; filename=""" + IO.Path.GetFileName(path) + """")
header.AppendLine("Content-Type: image/pjpeg")
header.AppendLine()
Dim headerbytes() As Byte = System.Text.Encoding.UTF8.GetBytes(header.ToString)
Dim endboundarybytes() As Byte = System.Text.Encoding.ASCII.GetBytes(vbNewLine & "--" & boundary & "--" & vbNewLine)
req = Net.HttpWebRequest.Create(url)
req.Accept = "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*"
req.Referer = "http://image2you.ru/cabinet/upload/"
req.Headers.Add(HttpRequestHeader.AcceptLanguage, "ru")
req.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"
req.ContentType = "multipart/form-data; boundary=" & boundary
req.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip, deflate")
req.Headers.Add(HttpRequestHeader.Pragma, "no-cache")
req.Headers.Add(HttpRequestHeader.Cookie, cookie)
req.Method = "POST"
s = req.GetRequestStream
s.Write(headerbytes, 0, headerbytes.Length)
Dim filebytes() As Byte = My.Computer.FileSystem.ReadAllBytes(path)
s.Write(filebytes, 0, filebytes.Length)
s.Write(endboundarybytes, 0, endboundarybytes.Length)
s.Close()
Dim DT As String = New StreamReader(req.GetResponse().GetResponseStream()).ReadToEnd()
Dim code As String = System.Text.RegularExpressions.Regex.Match(DT, "(?<=gallery/)code.*?(?=/)").Value
End Sub |
(
Сообщение было отмечено Памирыч как решение
