Нашел способ как авторизоваться по старинке :) Для этого на сайте должна быть старая форма входа. Вот код старой авторизации.
Dim myLogin As String = "---"
Dim myPass As String = "---"
Dim myUrl As String = "http://filestored.narod.ru/"
Dim myUrlSite As String = "http://filestored.narod.ru/"
Dim sCookies As String = ""
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MenuItem1.Click
FileIO.FileSystem.WriteAllText("temps1.txt", PostData00, False)
FileIO.FileSystem.WriteAllText("temps2.txt", PostData, False)
End Sub
Public Function PostData00() As String
Dim myHttpWebRequest As HttpWebRequest
Dim myHttpWebResponse As HttpWebResponse
myHttpWebRequest = CType(HttpWebRequest.Create(myUrl & "index/sub/"), HttpWebRequest)
myHttpWebRequest.Method = "POST"
myHttpWebRequest.Referer = myUrl
myHttpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:15.0) Gecko/20100101 Firefox/15.0.1"
myHttpWebRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
myHttpWebRequest.Headers.Add("Accept-Language", "ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3")
myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
myHttpWebRequest.AllowAutoRedirect = False
If Not String.IsNullOrEmpty(sCookies) Then
myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies)
End If
Dim sQueryString As String = "user=" & myLogin & "&password=" & myPass & "&rem=1&a=2&ajax=1&rnd=" & CInt(Rnd() * 1000) & "&_tp_=xml"
Dim ByteArr As Byte() = Encoding.GetEncoding(1251).GetBytes(sQueryString)
myHttpWebRequest.ContentLength = ByteArr.Length()
myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length)
myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Dim myStreamReader = New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.UTF8)
sCookies = ""
If Not String.IsNullOrEmpty(myHttpWebResponse.Headers("Set-Cookie")) Then
sCookies = myHttpWebResponse.Headers("Set-Cookie")
End If
Dim txt = myHttpWebResponse.StatusCode & vbCrLf
txt += myHttpWebResponse.Headers.ToString & vbCrLf & vbCrLf & vbCrLf & vbCrLf
txt += myStreamReader.ReadToEnd
Return txt
'Авторизоавлись и получили куки...
'Теперь метод get...
End Function
Public Function PostData() As String
Dim myHttpWebRequest As HttpWebRequest
Dim myHttpWebResponse As HttpWebResponse
myHttpWebRequest = CType(HttpWebRequest.Create(myUrl), HttpWebRequest)
myHttpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:15.0) Gecko/20100101 Firefox/15.0.1"
myHttpWebRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
myHttpWebRequest.Headers.Add("Accept-Language", "ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3")
myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
If Not String.IsNullOrEmpty(sCookies) Then
myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies)
End If
myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.UTF8)
sCookies = ""
If Not String.IsNullOrEmpty(myHttpWebResponse.Headers("Set-Cookie")) Then
sCookies = myHttpWebResponse.Headers("Set-Cookie")
End If
Dim txt As String = myHttpWebResponse.StatusCode & vbCrLf
txt += myHttpWebResponse.Headers.ToString & vbCrLf & vbCrLf & vbCrLf & vbCrLf
txt += myStreamReader.ReadToEnd
Return txt
End Function
Первый запрос выдает следующее
200
Transfer-Encoding: chunked
Connection: keep-alive
Keep-Alive: timeout=15
Content-Type: text/xml; charset=UTF-8
Date: Wed, 05 Jun 2013 11:32:36 GMT
Set-Cookie: ofilestoreduCoz=; path=/; expires=Mon, 06-Jun-2011 11:32:36 GMT; domain=.filestored.narod.ru;,ofilestoreduCoz=1nggl4q6nVwmsO1; path=/; expires=Sun, 04-Aug-2013 11:32:36 GMT; domain=.filestored.narod.ru;,ofilestoredEScom=; path=/; expires=Mon, 06-Jun-2011 11:32:36 GMT; domain=.filestored.narod.ru;,ofilestoreduz47=; path=/; expires=Mon, 06-Jun-2011 11:32:36 GMT;,ofilestoreduzll=1370431956; path=/; expires=Thu, 05-Jun-2014 11:32:36 GMT; domain=.filestored.narod.ru;
Server: uServ/3.2.2
Cache-Control: no-cache,no-store
Pragma: no-cache
Vary: host
<?xml version="1.0" encoding="UTF-8"?><ajax><cmd p="innerHTML" t="blk549706"><![CDATA[<div align="left" style="padding:10px;"><div class="myWinLoadSD"></div></div>]]></cmd><cmd p="js"><![CDATA[var ad=window.location.href.replace(/#(.*)?/,''); setTimeout("window.location.href='"+ad+"?lMA5hW'",'1000')]]></cmd></ajax>
Но в итоге мы остаемся гостем. Во втором запросе. Может подправить код? Или с ним все нормально?
Форум ucoz в программе WPF
Что бы имитировать это нужно отправить POST с телом следующего принципа - значение из таблицы слева=значение из таблицы справа и разделяем их знаком &
