Vk.net

  Public VK As New VkNet.VkApi
Function AuthByLoginPass() As Boolean
        Try
            VK.Authorize(New ApiAuthParams With {
                                      .Login = uName,
                                      .Password = uPass})
            'Авторизация от имени пользователя прошла успешно
            IO.File.WriteAllText(Environment.CurrentDirectory & "\temp.dat", VK.Token) 'если авторизация удалась, то записываем полученный токен, чтобы в дальнейшем авторизовываться с его помощью
            Return True
        Catch ex As Exception
            'Не удалось произвести авторизацию от имени пользователя
            Return False
        End Try
    End Function

  If Auth() = False Then Exit Sub 'тут проверка, что мы авторизовались
        Dim videopath As String = "C:\Users\administrator\Desktop\VK_Audio_Player\video.mp4" 'путь к файлу
        Dim save = VK.Video.Save(New VideoSaveParams With {
                                       .Name = "TestVideo",
                                      .Description = "This is test video",
                                      .AlbumId = 3})
        Dim wc As New WebClient With {.Proxy = New System.Net.WebProxy}
        Dim responseFile = System.Text.Encoding.ASCII.GetString(wc.UploadFile(save.UploadUrl, videopath))

Public Class Form1
    Public VK As New VkNet.VkApi
    Public audio
    Function AuthByLoginPass() As Boolean
        Try
            VK.Authorize(New VkNet.Model.ApiAuthParams With {
                                      .Login = "Забил свой логин",
                                      .Password = "Забил свой пароль"})
            'Авторизация от имени пользователя прошла успешно
            IO.File.WriteAllText(Environment.CurrentDirectory & "\temp.dat", VK.Token) 'если авторизация удалась, то записываем полученный токен, чтобы в дальнейшем авторизовываться с его помощью
            Return True
        Catch ex As Exception
            'Не удалось произвести авторизацию от имени пользователя
            Return False
        End Try
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AuthByLoginPass()
        audio = VK.Friends.GetOnline(New VkNet.Model.RequestParams.FriendsGetOnlineParams With {
            .ListId = 1,
            .UserId = 1,
            .OnlineMobile = True
                             }
                             )
        Me.Label1.Text = audio
    End Sub
End Class

Try
            VK.Authorize(New VkNet.Model.ApiAuthParams With {
                                      .Login = "Забил свой логин",
                                      .Password = "Забил свой пароль"})
            'Авторизация от имени пользователя прошла успешно
            IO.File.WriteAllText(Environment.CurrentDirectory & "\temp.dat", VK.Token) 'если авторизация удалась, то записываем полученный токен, чтобы в дальнейшем авторизовываться с его помощью
            Return True
        Catch ex As Exception
            'Не удалось произвести авторизацию от имени пользователя
 MsgBox(ex.Message)
            Return False
        End Try

 Function TokenAuth() As Boolean
        Try
            If IO.File.Exists(Environment.CurrentDirectory & "\temp.dat") Then
                Dim token As String = IO.File.ReadAllText(Environment.CurrentDirectory & "\temp.dat")
                VK.Authorize(New ApiAuthParams With {.AccessToken = token})
                Return True
            Else
                'Токен пользователя не обнаружен
                Return False
            End If
        Catch ex As Exception
            'Не удалось произвести авторизацию с токеном пользователя
            Return False
        End Try
 
    End Function

Imports System.IO
Imports VkNet.VkApi
Imports VkNet.Model
Imports VkNet.Categories
Imports VkNet.Abstractions
Imports VkNet.Enums
Imports VkNet.Exception
Imports VkNet.Infrastructure
Imports VkNet.Utils
Imports VkNet.UWP
Imports VkNet.Enums.Filters
 
Public Class Form1
    Public VK As New VkNet.VkApi
    Public audio
    Function Autholog() As Boolean
        Try
            VK.Authorize(New ApiAuthParams With {
                .ApplicationId = , ' Сюда я ввел ид приложения который можно получить на сайте  ВК для разрабов!!
                .Login = "Мой логин",
                .Password = "Мой пароль",
                .Settings = Settings.All})
            File.WriteAllText("D:\vk\data.txt", VK.Token) ' 
            MsgBox(Autholog.ToString)
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
 
            Return False
        End Try
    End Function
    Function AuthoToken() As Boolean
        Try
            VK.Authorize(New ApiAuthParams With {
                          .AccessToken = "Тут у меня мой заветный токен "})
            MsgBox("Вы вошли !!")
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AuthoToken()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
 
    End Sub
End Class

 VK.Friends.GetOnline(New RequestParams.FriendsGetOnlineParams With {
        .UserId = 1,
        .ListId = 1,
        .OnlineMobile = True})

 Dim FriendsOnline As FriendOnline = VK.Friends.GetOnline(New FriendsGetOnlineParams)
            For Each fr In FriendsOnline.Online
                ListBox1.Items.Add(fr)
            Next