Sign in to VK without using Indy

For authorization on almost any site, you can use the method of sorting HTML code. At first it is better to look at the source code of the page, if it is large, then this method may work too long, but there is a solution: we purposely write the wrong password, then the browser will transfer us to another page, there the HTML code will be less, therefore we will authorize it programmatically on it. Create a project and throw two buttons on the form and a WebBrowser component from the Internet tab; The first button is needed to open the page, and the second is for authorization.

Code

  // for the button to open the site
 procedure TAutorizationForm.BitBtnOpenPageClick (Sender: TObject);
 begin
 WebBrowser.Navigate ('here we write the desired site');
 end; 

  // for authorization button
 procedure TAutorizationForm.BitBtnAutorizationClick (Sender: TObject);
 Var
   i: Integer;
   s: string;
   html_tag: Variant;
 begin
   html_tag: = WebBrowser.OleObject.Document.Forms.Item (0) .Elements;
   For i: = 0 To (html_tag.Length-1) Do
     Begin
       If (html_tag.item (i) .name = 'here you need to write the name of the field in which you want to enter the user name') Then html_tag.item (i) .value: = 'here we write the user name';
       If (html_tag.item (i) .name = 'here you need to write the name of the field in which you want to enter the password') Then
         html_tag.item (i) .value: = 'write the password here';
       If (html_tag.item (i) .value = 'here we write the name of the button to enter') Then html_tag.item (i) .click;
     End;
 end;