Выпуск # 706

 private void Signin(object args)
  {
   try
   {
    frmProgress frm = (frmProgress)args;
    // 1. Заходим на страницу авторизации
    frm.SetDescription("Захожу на страницу авторизации.");

    HttpWebRequest myReq = (HttpWebRequest)HttpWebRequest.Create("http://vk.com/");
    HttpWebResponse myResp = (HttpWebResponse)myReq.GetResponse();
    StreamReader myStream = new StreamReader(myResp.GetResponseStream(), Encoding.UTF8);
    string html = myStream.ReadToEnd();

    // дергаем форму авторизации
    Regex myReg = new Regex("<form(.*?)>(?<form_body>.*?)</form>", RegexOptions.IgnoreCase | RegexOptions.Multiline | RegexOptions.Singleline);
    if (!myReg.IsMatch(html) || (html = myReg.Match(html).Groups["form_body"].Value) == "")
    {
     MessageBox.Show("Не удалось получить форму авторизации. Проверьте шаблон регулярного выражения.");
     frm.CloseMe();
     return;
    }

    // затем элементы формы
    myReg = new Regex("<input(.*?)name=\"(?<name>[^\x22]+)\"(.*?)((value=\"(?<value>[^\x22]*)\"(.*?))|(.?))>", RegexOptions.IgnoreCase | RegexOptions.Multiline | RegexOptions.Singleline);
    NameValueCollection qs = new NameValueCollection();
    foreach (Match m in myReg.Matches(html))
    {
     string val = m.Groups["value"].Value; // по умолчанию отдаем, то что приняли
     // если нашли поля для ввода логина и пароля, то указываем их
     if (m.Groups["name"].Value == "email")
     {
      val = tbLogin.Text;
     }
     else if (m.Groups["name"].Value == "pass")
     {
      val = tbPassword.Text;
     }
     // добавляем значение в коллекцию
     // в последующем из этой коллекции будут сформированы параметры для запроса авторизации
     qs.Add(m.Groups["name"].Value, HttpUtility.UrlEncode(val));
    }

    // *********************************************************************************************************************
    // 2. Авторизируемся
    frm.SetDescription("Пробую пройти процедуру авторизации.");

    byte[] b = System.Text.Encoding.UTF8.GetBytes(String.Join("&", from item in qs.AllKeys select item + "=" + qs[item]));

    myReq = (HttpWebRequest)HttpWebRequest.Create("https://login.vk.com/?act=login");
    myReq.CookieContainer = new CookieContainer();
    myReq.Method = "POST";
    myReq.ContentType = "application/x-www-form-urlencoded";
    myReq.ContentLength = b.Length;
    myReq.GetRequestStream().Write(b, 0, b.Length);
    myReq.AllowAutoRedirect = false;

    myResp = (HttpWebResponse)myReq.GetResponse();

    // запоминаем куки
    CookieContainer cc = new CookieContainer();
    foreach (Cookie c in myResp.Cookies)
    {
     cc.Add(c);
    }
    // --

    // *********************************************************************************************************************
    // 3. В случае успеха получаем редирект

    if (!String.IsNullOrEmpty(myResp.Headers["Location"]))
    {
     // делаем редирект
     myReq = (HttpWebRequest)HttpWebRequest.Create(myResp.Headers["Location"]);
     myReq.CookieContainer = cc;// передаем куки
     myReq.Method = "GET";
     myReq.ContentType = "text/html";

     myResp = (HttpWebResponse)myReq.GetResponse();
     myStream = new StreamReader(myResp.GetResponseStream(), Encoding.UTF8);
     html = myStream.ReadToEnd();
    }
    else
    {
     // что-то пошло не так
     MessageBox.Show("Ошибка. Ожидался редирект.");
     frm.CloseMe();
     return;
    }

    // смотрим, прошла авторизация или нет
    if (html.IndexOf("Выход") == -1)
    {
     MessageBox.Show("Ошибка: Авторизация не прошла.");
     frm.CloseMe();
     return;
    }
    frm.SetDescription("Авторизация прошла успешно.");

   }
   catch (Exception ex)
   {
    MessageBox.Show("Error. " + ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error);
   }
  }

 byte[] b = System.Text.Encoding.UTF8.GetBytes(String.Join("&", from item in qs.AllKeys select item + "=" + qs[item]));

Imports System
Imports System.Runtime.InteropServices
 
Public Class Mouse
    <DllImport("user32.dll")> _
    Public Shared Function GetMessagePos(
        ByVal arv As Point) As Boolean
    End Function
 
    Public Function x_and_y() As Point
        Dim arv As Point
 
        GetMessagePos(arv)
 
        Return arv
    End Function
End Class

Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Timer1.Enabled = False
    End Sub

    Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Point
        i = MousePosition
        Me.Text = i.X & " X " & i.Y
    End Sub
End Class

  private void Form1_Load(object sender, EventArgs e)
  {
   request.Method = "POST";
   request.Host = "http://oblozhki.net/";
   request.KeepAlive = true;
   request.UserAgent = ("Opera/9.80 (Windows NT 6.1; U; Edition Yx; ru) Presto/2.10.289 Version/12.00");
   request.Headers.Add(HttpRequestHeader.AcceptLanguage, ("ru-RU,ru;q=0.9,en;q=0.8"));
   request.Headers.Add(HttpRequestHeader.AcceptEncoding, ("gzip, deflate"));
   request.AutomaticDecompression = DecompressionMethods.Deflate | DecompressionMethods.GZip;
   CookieContainer cookie = new CookieContainer();
   request.CookieContainer = cookie;
   request.ContentType = "application/x-www-form-urlencoded";
   string Login = "логин";
   string Password = "пасс";
   string str = "%D0%9F%D0%B0%D1%80%D0%BE%D0%BB%D1%8C&s=";
   string authString = "vb_login_username=" + Login + "&vb_login_password=" + Password + "&vb_login_password_hint=" + str;
   UTF8Encoding encodind = new UTF8Encoding();
   byte[] buffer = encodind.GetBytes(authString);
   Stream newStream = request.GetRequestStream();
   newStream.Write(buffer, 0, authString.Length);
   request.ContentLength = buffer.Length;
   newStream.Close();
  }

  private void button1_Click(object sender, EventArgs e)
  {
   HttpWebResponse response = (HttpWebResponse)request.GetResponse();
   CookieCollection cookies = new CookieCollection();
   cookies = response.Cookies;
   Encoding responseEncoding = Encoding.GetEncoding(response.CharacterSet);
   StreamReader strReader = new StreamReader(response.GetResponseStream(), responseEncoding);
   string htmlText = strReader.ReadToEnd();
   response.Close();
   richTextBox1.Text = htmlText;
  }

SB.Append(B.ToString("x3"))

SB.Append(B.ToString("x2"))

<div>
    <h4>
        Добавить новую тему</h4>
    <div class="pnlAddPost">
        <table>
            <tr>
                <td>
                    Заголовок теми:
                </td>
                <td>
                    <asp:TextBox ID="txt_title" runat="server" Width="400px" MaxLength="150"></asp:TextBox>
                    <asp:RequiredFieldValidator ID="TitleRequiredFieldValidator" runat="server" ControlToValidate="txt_title"
                        ErrorMessage="Введите заголовок" ForeColor="Red">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td>
                    Категория:
                </td>
                <td>
                    <asp:DropDownList ID="cmb_Category" runat="server" Width="200px">
                    </asp:DropDownList>
                </td>
            </tr>
            <tr>
                <td>
                </td>
                <td height="30px">
                    сдесь размещен тулбар-bbcode
                </td>
            </tr>
            <tr>
                <td colspan="2">
                    <div>
                        <asp:TextBox ID="txt_text" runat="server" TextMode="MultiLine" Width="700px" Height="200px"></asp:TextBox>
                        <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txt_text"
                            ErrorMessage="Введите текст" ForeColor="Red">*</asp:RequiredFieldValidator>
                    </div>
                    
                    <div>
                        
                        <div >
                            <asp:Panel ID="PanelUplImg" runat="server" >
                            </asp:Panel>
                        </div>
                    </div>
                    
                    <div >
                        <asp:Label ID="Label1" runat="server" 
                        Text="Загрузить картинку в текст."
                            ForeColor="Blue" Font-Size="X-Small" Font-Names="Arial"></asp:Label>
                        <asp:FileUpload ID="FileUploadImages" runat="server" CssClass="btn" />
                        &nbsp
                        <asp:Button ID="btn_UploadImages" runat="server" Text="Загрузить" CssClass="btn"
                            OnClick="btn_UploadImages_Click" /><br />
                        <asp:Label ID="lbl_error" runat="server" Font-Size="X-Small" ForeColor="Red"></asp:Label>
                    </div>
                    <div class="DivUplImg">
                        <asp:Label ID="lbl_StatusDownImg" runat="server" 
                            ForeColor="red" Font-Size="X-Small" Font-Names="Arial" Visible="False"></asp:Label>
                    </div>
                </td>
            </tr>
            <tr>
                <td>
                </td>
                <td>
                    <asp:Button ID="btn_SavePost" runat="server" Text=" Создать пост" CssClass="btn"/>
                    <asp:ValidationSummary ID="ValidationSummary1" runat="server" ForeColor="Red" />
                </td>
            </tr>
        </table>
    </div>
    </div>

if (!FileUploadImages.HasFile) return;

        string PathOfUplImg = Server.MapPath("pictures") + "//" + FileUploadImages.FileName;
        string UploadFileName = System.IO.Path.GetFileName(FileUploadImages.PostedFile.FileName);
        try
        {
            FileUploadImages.PostedFile.SaveAs(PathOfUplImg);
        }
        catch (HttpException ex)
        {
            lbl_error.Text = ex.Message;
        }
        finally
        {
            lbl_StatusDownImg.Text =
                "Картика " + UploadFileName + 
                " загружена.<br/>Вставте код картинки в текст.";
            lbl_StatusDownImg.Visible = true;

            Image ThumbsUplImg = new Image();
            ThumbsUplImg.ID = UploadFileName;

            ThumbsUplImg.Height = 32;
            ThumbsUplImg.Width = 32;
            ThumbsUplImg.ImageUrl = "~/pictures/" + UploadFileName;
            ThumbsUplImg.ToolTip = "Вставить в текст";
            ThumbsUplImg.Attributes.Add("onclick", "javascript:alert('Я скрипт. Вставляю код картинки в текст')");
            PanelUplImg.Controls.Add(ThumbsUplImg);
        }

  <h4>
    Добавить новую тему</h4>
  <div class="pnlAddPost">
    <table>
      <tr>
        <td>
          Заголовок теми:
        </td>
        <td>
          <asp:TextBox ID="txt_title" runat="server" Width="400px" MaxLength="150"></asp:TextBox>
          <asp:RequiredFieldValidator ID="TitleRequiredFieldValidator" runat="server" ControlToValidate="txt_title"
            ErrorMessage="Введите заголовок" ForeColor="Red">*</asp:RequiredFieldValidator>
        </td>
      </tr>
      <tr>
        <td>
          Категория:
        </td>
        <td>
          <asp:DropDownList ID="cmb_Category" runat="server" Width="200px">
          </asp:DropDownList>
        </td>
      </tr>
      <tr>
        <td>
        </td>
        <td height="30px">
          сдесь размещен тулбар-bbcode
        </td>
      </tr>
      <tr>
        <td colspan="2">
          <div>
            <asp:TextBox ID="txt_text" runat="server" TextMode="MultiLine" Width="700px" Height="200px"></asp:TextBox>
            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txt_text"
              ErrorMessage="Введите текст" ForeColor="Red">*</asp:RequiredFieldValidator>
          </div>
          
          <div>
            
            <div >
              <asp:Panel ID="PanelUplImg" runat="server"></asp:Panel>
            </div>
          </div>
          
          <div >
            <asp:Label ID="Label1" runat="server" 
            Text="Загрузить картинку в текст."
              ForeColor="Blue" Font-Size="X-Small" Font-Names="Arial"></asp:Label>
            <asp:FileUpload ID="FileUploadImages" runat="server" CssClass="btn" />
            &nbsp
            <asp:Button ID="btn_UploadImages" runat="server" Text="Загрузить" CssClass="btn"
              OnClick="btn_UploadImages_Click" ValidationGroup="img" /><br />
            <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="FileUploadImages" Display="Dynamic"
              ErrorMessage="Необходимо выбрать файл" ForeColor="Red" ValidationGroup="img" />
            <asp:Label ID="lbl_error" runat="server" Font-Size="X-Small" ForeColor="Red"></asp:Label>
          </div>
          <div class="DivUplImg">
            <asp:Label ID="lbl_StatusDownImg" runat="server" 
              ForeColor="red" Font-Size="X-Small" Font-Names="Arial" Visible="False"></asp:Label>
          </div>
        </td>
      </tr>
      <tr>
        <td>
        </td>
        <td>
          <asp:Button ID="btn_SavePost" runat="server" Text=" Создать пост" CssClass="btn"/>
          <asp:ValidationSummary ID="ValidationSummary1" runat="server" ForeColor="Red" />
        </td>
      </tr>
    </table>
  </div>

protected void Page_Load(object sender, EventArgs e)
{
  RestoreForm();
}

protected void btn_UploadImages_Click(object sender, EventArgs e)
{
  if (!FileUploadImages.HasFile) return;

  string PathOfUplImg = Server.MapPath("pictures") + "//" + FileUploadImages.FileName;
  string UploadFileName = System.IO.Path.GetFileName(FileUploadImages.PostedFile.FileName);
  try
  {
    FileUploadImages.PostedFile.SaveAs(PathOfUplImg);
  }
  catch (HttpException ex)
  {
    lbl_error.Text = ex.Message;
  }
  finally
  {
    lbl_StatusDownImg.Text =
      "Картика " + UploadFileName +
      " загружена.<br/>Вставте код картинки в текст.";
    lbl_StatusDownImg.Visible = true;

    Image ThumbsUplImg = new Image();
    ThumbsUplImg.Height = 32;
    ThumbsUplImg.Width = 32;
    ThumbsUplImg.ImageUrl = "~/pictures/" + UploadFileName;
    ThumbsUplImg.ToolTip = "Вставить в текст";
    ThumbsUplImg.Attributes.Add("onclick", "javascript:alert('Я скрипт. Вставляю код картинки в текст')");
    PanelUplImg.Controls.Add(ThumbsUplImg);

    if (Session["Images"] == null) Session["Images"] = new List<string>();
    ((List<string>)Session["Images"]).Add(ThumbsUplImg.ImageUrl);
  }
}

private void RestoreForm()
{
  if (Session["Images"] == null) return;
  foreach (string path in (List<string>)Session["Images"])
  {
    Image ThumbsUplImg = new Image();
    ThumbsUplImg.Height = 32;
    ThumbsUplImg.Width = 32;
    ThumbsUplImg.ImageUrl = path;
    ThumbsUplImg.ToolTip = "Вставить в текст";
    ThumbsUplImg.Attributes.Add("onclick", "javascript:alert('Я скрипт. Вставляю код картинки в текст')");
    PanelUplImg.Controls.Add(ThumbsUplImg);
  }
}