Register and Configure a VKontakte Application

OAuthManager.RegisterClient
(
  new VkontakteClient
  (
    "4457505", 
    "wW5lFMVbsw0XwYFgCGG0"
  )
);

OAuthManager.RegisterClient
(
  new VkontakteClient
  (
    "4457505", 
    "wW5lFMVbsw0XwYFgCGG0"
  )
);

OAuthManager.RegisterClient _
(
  New VkontakteClient _
  (
    "4457505", 
    "wW5lFMVbsw0XwYFgCGG0"
  )
)

OAuthManager.RegisterClient _
(
  New VkontakteClient _
  (
    "4457505", 
    "wW5lFMVbsw0XwYFgCGG0"
  )
)

public Form1()
{
  InitializeComponent();
  button1.Click += new EventHandler(button1_Click);
}

private void Form1_Load(object sender, EventArgs e)
{
  // vk(ontakte) client registration
  OAuthManager.RegisterClient
  (
    new VkontakteClient
    (
      // application id 
      "4457505", 
      // secure secret 
      "wW5lFMVbsw0XwYFgCGG0"
    ) 
    { 
      // display=popup - to open a popup window
      Parameters = new NameValueCollection { { "display", "popup" } } 
    }
  );
}

private void button1_Click(object sender, EventArgs e)
{
  var frm = new Form2();
  frm.ShowDialog();
}

public Form1()
{
  InitializeComponent();
  button1.Click += new EventHandler(button1_Click);
}

private void Form1_Load(object sender, EventArgs e)
{
  // vk(ontakte) client registration
  OAuthManager.RegisterClient
  (
    new VkontakteClient
    (
      // application id 
      "4457505", 
      // secure secret 
      "wW5lFMVbsw0XwYFgCGG0"
    ) 
    { 
      // display=popup - to open a popup window
      Parameters = new NameValueCollection { { "display", "popup" } } 
    }
  );
}

private void button1_Click(object sender, EventArgs e)
{
  var frm = new Form2();
  frm.ShowDialog();
}

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  ' vk(ontakte) client registration
  OAuthManager.RegisterClient _
  (
    New VkontakteClient _
    (
      "4457505",
      "wW5lFMVbsw0XwYFgCGG0"
    ) With _
    {
      .Parameters = New NameValueCollection() From {{"display", "popup"}}
    }
  )
End Sub 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Call New Form2().ShowDialog()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  ' vk(ontakte) client registration
  OAuthManager.RegisterClient _
  (
    New VkontakteClient _
    (
      "4457505",
      "wW5lFMVbsw0XwYFgCGG0"
    ) With _
    {
      .Parameters = New NameValueCollection() From {{"display", "popup"}}
    }
  )
End Sub 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Call New Form2().ShowDialog()
End Sub

public Form2()
{
  InitializeComponent();
  webBrowser1.DocumentCompleted += new System.Windows.Forms.WebBrowserDocumentCompletedEventHandler(webBrowser1_DocumentCompleted);
  webBrowser1.Navigate(OAuthWeb.GetAuthorizationUrl("vk"));
}

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
  // waiting for results 
  if (e.Url.Query.IndexOf("code=") != -1 || e.Url.Fragment.IndexOf("code=") != -1 || e.Url.Query.IndexOf("oauth_verifier=") != -1)
  {
    // is the result, verify 
    var result = OAuthWeb.VerifyAuthorization(e.Url.ToString());
    if (result.IsSuccessfully)
    {
      // show user info
      MessageBox.Show
      (
        String.Format
        (
          "User ID: {0}\r\nUsername: {1}\r\nDisplay Name: {2}\r\nE-Mail: {3}", 
          result.UserInfo.UserId,
          result.UserInfo.UserName,
          result.UserInfo.DisplayName ?? result.UserInfo.FullName,
          result.UserInfo.Email
        ), 
        "Successfully", 
        MessageBoxButtons.OK, 
        MessageBoxIcon.Information
      );
    }
    else
    {
      // show error message
      MessageBox.Show(result.ErrorInfo.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    this.Close();
  }
}

public Form2()
{
  InitializeComponent();
  webBrowser1.DocumentCompleted += new System.Windows.Forms.WebBrowserDocumentCompletedEventHandler(webBrowser1_DocumentCompleted);
  webBrowser1.Navigate(OAuthWeb.GetAuthorizationUrl("vk"));
}

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
  // waiting for results 
  if (e.Url.Query.IndexOf("code=") != -1 || e.Url.Fragment.IndexOf("code=") != -1 || e.Url.Query.IndexOf("oauth_verifier=") != -1)
  {
    // is the result, verify 
    var result = OAuthWeb.VerifyAuthorization(e.Url.ToString());
    if (result.IsSuccessfully)
    {
      // show user info
      MessageBox.Show
      (
        String.Format
        (
          "User ID: {0}\r\nUsername: {1}\r\nDisplay Name: {2}\r\nE-Mail: {3}", 
          result.UserInfo.UserId,
          result.UserInfo.UserName,
          result.UserInfo.DisplayName ?? result.UserInfo.FullName,
          result.UserInfo.Email
        ), 
        "Successfully", 
        MessageBoxButtons.OK, 
        MessageBoxIcon.Information
      );
    }
    else
    {
      // show error message
      MessageBox.Show(result.ErrorInfo.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    this.Close();
  }
}

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  WebBrowser1.Navigate(OAuthWeb.GetAuthorizationUrl("vk"))
End Sub 

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  ' waiting for results 
  If Not e.Url.Query.IndexOf("code=") = -1 OrElse Not e.Url.Fragment.IndexOf("code=") = -1 OrElse Not e.Url.Query.IndexOf("oauth_verifier=") = -1 Then 
    ' is the result, verify 
    Dim result = OAuthWeb.VerifyAuthorization(e.Url.ToString())
    If result.IsSuccessfully Then 
      ' show user info
      MessageBox.Show _
      (
        String.Format _
        (
          "User ID: {0}{4}Username: {1}{4}Display Name: {2}{4}E-Mail: {3}",
          result.UserInfo.UserId,
          result.UserInfo.UserName,
          If(Not String.IsNullOrEmpty(result.UserInfo.DisplayName), result.UserInfo.DisplayName, result.UserInfo.FullName),
          result.UserInfo.Email,
          vbNewLine
        ),
        "Successfully",
        MessageBoxButtons.OK,
        MessageBoxIcon.Information
      )
    Else 
      ' show error message
      MessageBox.Show(result.ErrorInfo.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If 
    Me.Close()
  End If 
End Sub

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  WebBrowser1.Navigate(OAuthWeb.GetAuthorizationUrl("vk"))
End Sub 

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  ' waiting for results 
  If Not e.Url.Query.IndexOf("code=") = -1 OrElse Not e.Url.Fragment.IndexOf("code=") = -1 OrElse Not e.Url.Query.IndexOf("oauth_verifier=") = -1 Then 
    ' is the result, verify 
    Dim result = OAuthWeb.VerifyAuthorization(e.Url.ToString())
    If result.IsSuccessfully Then 
      ' show user info
      MessageBox.Show _
      (
        String.Format _
        (
          "User ID: {0}{4}Username: {1}{4}Display Name: {2}{4}E-Mail: {3}",
          result.UserInfo.UserId,
          result.UserInfo.UserName,
          If(Not String.IsNullOrEmpty(result.UserInfo.DisplayName), result.UserInfo.DisplayName, result.UserInfo.FullName),
          result.UserInfo.Email,
          vbNewLine
        ),
        "Successfully",
        MessageBoxButtons.OK,
        MessageBoxIcon.Information
      )
    Else 
      ' show error message
      MessageBox.Show(result.ErrorInfo.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If 
    Me.Close()
  End If 
End Sub

protected void Application_Start()
{
  OAuthManager.RegisterClient
  (
    new VkontakteClient
    (
      "4457505", 
      "wW5lFMVbsw0XwYFgCGG0"
    )
  );
}

protected void Application_Start()
{
  OAuthManager.RegisterClient
  (
    new VkontakteClient
    (
      "4457505", 
      "wW5lFMVbsw0XwYFgCGG0"
    )
  );
}

Sub Application_Start()
  OAuthManager.RegisterClient _
  (
    New VkontakteClient _
    (
      "4457505", 
      "wW5lFMVbsw0XwYFgCGG0"  
    )
  )
End Sub

Sub Application_Start()
  OAuthManager.RegisterClient _
  (
    New VkontakteClient _
    (
      "4457505", 
      "wW5lFMVbsw0XwYFgCGG0"  
    )
  )
End Sub

public ActionResult VkontakteLoginResult()
{
  var result = OAuthWeb.VerifyAuthorization();
  if (result.IsSuccessfully)
  {
    var user = result.UserInfo;    
    // NOTE: For StringBuilder import the System.Text
    StringBuilder r = new StringBuilder();
    r.AppendFormat("User ID: {0}\r\n", user.UserId);
    r.AppendFormat("Name:    {0}\r\n", user.DisplayName);
    return new ContentResult { Content = r.ToString(), ContentType = "text/plain" }; 
  }

  return new ContentResult 
  { 
    Content = "Error: " + result.ErrorInfo.Message, 
    ContentType = "text/plain" 
  };
}

public ActionResult VkontakteLoginResult()
{
  var result = OAuthWeb.VerifyAuthorization();
  if (result.IsSuccessfully)
  {
    var user = result.UserInfo;    
    // NOTE: For StringBuilder import the System.Text
    StringBuilder r = new StringBuilder();
    r.AppendFormat("User ID: {0}\r\n", user.UserId);
    r.AppendFormat("Name:    {0}\r\n", user.DisplayName);
    return new ContentResult { Content = r.ToString(), ContentType = "text/plain" }; 
  }

  return new ContentResult 
  { 
    Content = "Error: " + result.ErrorInfo.Message, 
    ContentType = "text/plain" 
  };
}

Public Function VkontakteLoginResult() As ActionResult
  Dim result As AuthorizationResult = OAuthWeb.VerifyAuthorization()
  If result.IsSuccessfully Then 
    Dim user As UserInfo = result.UserInfo   
    ' NOTE: For StringBuilder import the System.Text 
    Dim r As New StringBuilder()
    r.AppendFormat("User ID: {0}", user.UserId)
    r.AppendLine()
    r.AppendFormat("Name:    {0}", user.DisplayName)
    Return New ContentResult With { .Content = r.ToString(), .ContentType = "text/plain" } 
  End If 

  Return New ContentResult With _
  { 
    .Content = "Error: " + result.ErrorInfo.Message, 
    .ContentType = "text/plain" 
  }
End Function

Public Function VkontakteLoginResult() As ActionResult
  Dim result As AuthorizationResult = OAuthWeb.VerifyAuthorization()
  If result.IsSuccessfully Then 
    Dim user As UserInfo = result.UserInfo   
    ' NOTE: For StringBuilder import the System.Text 
    Dim r As New StringBuilder()
    r.AppendFormat("User ID: {0}", user.UserId)
    r.AppendLine()
    r.AppendFormat("Name:    {0}", user.DisplayName)
    Return New ContentResult With { .Content = r.ToString(), .ContentType = "text/plain" } 
  End If 

  Return New ContentResult With _
  { 
    .Content = "Error: " + result.ErrorInfo.Message, 
    .ContentType = "text/plain" 
  }
End Function

public ActionResult VkontakteLogin()
{
  string authUrl = OAuthWeb.GetAuthorizationUrl("vk", Url.Action("VkontakteLoginResult", "Home", null, null, Request.Url.Host));
  return Redirect(authUrl);
}

public ActionResult VkontakteLogin()
{
  string authUrl = OAuthWeb.GetAuthorizationUrl("vk", Url.Action("VkontakteLoginResult", "Home", null, null, Request.Url.Host));
  return Redirect(authUrl);
}

Public Function VkontakteLogin() As ActionResult
  Dim authUrl As String = OAuthWeb.GetAuthorizationUrl("vk", Url.Action("VkontakteLoginResult", "Home", Nothing, Nothing, Request.Url.Host))
  Return Redirect(authUrl)
End Function

Public Function VkontakteLogin() As ActionResult
  Dim authUrl As String = OAuthWeb.GetAuthorizationUrl("vk", Url.Action("VkontakteLoginResult", "Home", Nothing, Nothing, Request.Url.Host))
  Return Redirect(authUrl)
End Function

@Html.ActionLink("Log in with VK(ontakte)", "VkontakteLogin")

@Html.ActionLink("Log in with VK(ontakte)", "VkontakteLogin")

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.SessionState;
using Nemiro.OAuth;
using Nemiro.OAuth.Clients;

namespace Test.CSharp.AspWebForms
{
  public class Global : System.Web.HttpApplication
  {
    protected void Application_Start(object sender, EventArgs e)
    {
      OAuthManager.RegisterClient
      (
        new VkontakteClient
        (
          "4457505", 
          "wW5lFMVbsw0XwYFgCGG0"
        )
      );
    }
  }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.SessionState;
using Nemiro.OAuth;
using Nemiro.OAuth.Clients;

namespace Test.CSharp.AspWebForms
{
  public class Global : System.Web.HttpApplication
  {
    protected void Application_Start(object sender, EventArgs e)
    {
      OAuthManager.RegisterClient
      (
        new VkontakteClient
        (
          "4457505", 
          "wW5lFMVbsw0XwYFgCGG0"
        )
      );
    }
  }
}

Imports Nemiro.OAuth
Imports Nemiro.OAuth.Clients

Public Class Global_asax
  Inherits System.Web.HttpApplication

  Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
    OAuthManager.RegisterClient _
    (
      New VkontakteClient _
      (
        "4457505", 
        "wW5lFMVbsw0XwYFgCGG0"
      )
    )
  End Sub 

End Class

Imports Nemiro.OAuth
Imports Nemiro.OAuth.Clients

Public Class Global_asax
  Inherits System.Web.HttpApplication

  Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
    OAuthManager.RegisterClient _
    (
      New VkontakteClient _
      (
        "4457505", 
        "wW5lFMVbsw0XwYFgCGG0"
      )
    )
  End Sub 

End Class

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="ExternalLoginResult.aspx.cs" Inherits="Test.CSharp.AspWebForms.ExternalLoginResult" %gt;

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="ExternalLoginResult.aspx.cs" Inherits="Test.CSharp.AspWebForms.ExternalLoginResult" %gt;

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Nemiro.OAuth;

namespace Test.CSharp.AspWebForms
{
  public partial class ExternalLoginResult : System.Web.UI.Page
  {
    protected void Page_Load(object sender, EventArgs e)
    {
      Response.Write("<pre>");
      var result = OAuthWeb.VerifyAuthorization();
      if (result.IsSuccessfully)
      {
        var user = result.UserInfo;
        Response.Write(String.Format("User ID: {0}<br />", user.UserId));
        Response.Write(String.Format("Name:    {0}<br />", user.DisplayName));
      }
      else
      {
        Response.Write(result.ErrorInfo.Message);
      }
      Response.Write("</pre>");
    }
  }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Nemiro.OAuth;

namespace Test.CSharp.AspWebForms
{
  public partial class ExternalLoginResult : System.Web.UI.Page
  {
    protected void Page_Load(object sender, EventArgs e)
    {
      Response.Write("<pre>");
      var result = OAuthWeb.VerifyAuthorization();
      if (result.IsSuccessfully)
      {
        var user = result.UserInfo;
        Response.Write(String.Format("User ID: {0}<br />", user.UserId));
        Response.Write(String.Format("Name:    {0}<br />", user.DisplayName));
      }
      else
      {
        Response.Write(result.ErrorInfo.Message);
      }
      Response.Write("</pre>");
    }
  }
}

Imports Nemiro.OAuth

Public Class ExternalLoginResult
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Response.Write("<pre>")
    Dim result As AuthorizationResult = OAuthWeb.VerifyAuthorization()
    If result.IsSuccessfully Then 
      Dim user As UserInfo = result.UserInfo
      Response.Write(String.Format("User ID: {0}<br />", user.UserId))
      Response.Write(String.Format("Name:    {0}<br />", user.DisplayName))
    Else
      Response.Write(result.ErrorInfo.Message)
    End If
    Response.Write("</pre>")
  End Sub 

End Class

Imports Nemiro.OAuth

Public Class ExternalLoginResult
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Response.Write("<pre>")
    Dim result As AuthorizationResult = OAuthWeb.VerifyAuthorization()
    If result.IsSuccessfully Then 
      Dim user As UserInfo = result.UserInfo
      Response.Write(String.Format("User ID: {0}<br />", user.UserId))
      Response.Write(String.Format("Name:    {0}<br />", user.DisplayName))
    Else
      Response.Write(result.ErrorInfo.Message)
    End If
    Response.Write("</pre>")
  End Sub 

End Class

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="Test.CSharp.AspWebForms.Default" %> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 
<head runat="server"> 
    <title></title> 
</head> 
<body> 
    <form id="form1" runat="server"> 
    <div> 
    <asp:LinkButton ID="lnkVkontakte" runat="server" 
        Text="Log in with VK(ontakte)" onclick="lnkVkontakte_Click" /> 
    </div> 
    </form> 
</body> 
</html>

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="Test.CSharp.AspWebForms.Default" %> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 
<head runat="server"> 
    <title></title> 
</head> 
<body> 
    <form id="form1" runat="server"> 
    <div> 
    <asp:LinkButton ID="lnkVkontakte" runat="server" 
        Text="Log in with VK(ontakte)" onclick="lnkVkontakte_Click" /> 
    </div> 
    </form> 
</body> 
</html>

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Nemiro.OAuth;

namespace Test.CSharp.AspWebForms
{
  public partial class Default : System.Web.UI.Page
  {
    protected void lnkVkontakte_Click(object sender, EventArgs e)
    {
      OAuthWeb.RedirectToAuthorization("vk", new Uri(Request.Url, "ExternalLoginResult.aspx").AbsoluteUri);
    }
  }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Nemiro.OAuth;

namespace Test.CSharp.AspWebForms
{
  public partial class Default : System.Web.UI.Page
  {
    protected void lnkVkontakte_Click(object sender, EventArgs e)
    {
      OAuthWeb.RedirectToAuthorization("vk", new Uri(Request.Url, "ExternalLoginResult.aspx").AbsoluteUri);
    }
  }
}

Imports Nemiro.OAuth

Public Class _Default
  Inherits System.Web.UI.Page

  Protected Sub lnkVkontakte_Click(sender As Object, e As EventArgs) Handles lnkVkontakte.Click
    OAuthWeb.RedirectToAuthorization("vk", New Uri(Request.Url, "ExternalLoginResult.aspx").AbsoluteUri)
  End Sub 

End Class

Imports Nemiro.OAuth

Public Class _Default
  Inherits System.Web.UI.Page

  Protected Sub lnkVkontakte_Click(sender As Object, e As EventArgs) Handles lnkVkontakte.Click
    OAuthWeb.RedirectToAuthorization("vk", New Uri(Request.Url, "ExternalLoginResult.aspx").AbsoluteUri)
  End Sub 

End Class