Target для .NET используемый в проекте: (Официально поддерживаем , .net 4.5, NETStandard2.0) (поставьте 'x' в квадратных скобках)
[x] .net 4.5
[ ] NETStandard2.0
[ ] другое. Указать строкой ниже.
Класс и метод в котором возникла проблема:
Public Class frmDVK
Dim f As Boolean = False
Dim cancelUpload As Boolean = False
Friend WithEvents webClient As WebClientExtended = New WebClientExtended
Dim txtLines As New List(Of String)
Friend api As VkApi
Private Sub cmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
Пример кода для воспроизведения проблемы, пожалуйста указавыйте конкретные значения параметров запроса:
Dim services = New ServiceCollection()
'services.AddAudioBypass
api = New VkApi(services)
api.Authorize(New ApiAuthParams With {
.ApplicationId = 6146827 (VK Me помом, но впрчем неважно, любое офф приложение),
.Login = CStr(grdUser.CurrentRow.Cells(0).Value),
.Password = CStr(grdUser.CurrentRow.Cells(1).Value),
.Settings = Settings.All
})
{"{""error"":""invalid_access"",""error_description"":""Security issue. Unavailable for apps with direct auth.""}"}
Если в примере не указаны конкретные значения параметров запроса укажите их здесь:
Если вернуть версию к примеру 1.77.0-alpha-91 и расскоментить services.AddAudioBypass() (который в последней версии тоже не работает) то все работает .И .Settings = Settings.All - примерно через 24 часа токен становится недействителен. То есть в версии 1.77.0-alpha-91 это все работает.
Target для .NET используемый в проекте: (Официально поддерживаем , .net 4.5, NETStandard2.0) (поставьте 'x' в квадратных скобках)
Класс и метод в котором возникла проблема: Public Class frmDVK Dim f As Boolean = False Dim cancelUpload As Boolean = False Friend WithEvents webClient As WebClientExtended = New WebClientExtended Dim txtLines As New List(Of String) Friend api As VkApi Private Sub cmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
Пример кода для воспроизведения проблемы, пожалуйста указавыйте конкретные значения параметров запроса: