Моя консольная кольцевая программа работает, но я не могу выполнить ее в форме Windows VB.NET - PullRequest
Новая
       37

Моя консольная кольцевая программа работает, но я не могу выполнить ее в форме Windows VB.NET

0 голосов
/ 21 сентября 2019

API моей консоли Ringcentral Ringout работает как консоль, но когда я пытаюсь сделать ее частью формы Windows, моя программа не работает.

Вот мой код для формы Windows: 

Imports RingCentral

Public Class Form1
    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
        call_ringout.Wait()
    End Sub
    Private Async Function call_ringout() As Task
        Dim rc As RestClient = New RestClient("$$$$$$$$$", "$$$$$$$$$$", False)
        Await rc.Authorize("$$$$$$", "101", "$$$$$$$$$")
        Dim parameters = New MakeRingOutRequest
        parameters.from = New MakeRingOutCallerInfoRequestFrom With {
            .phoneNumber = "1$"
        }
        parameters.[to] = New MakeRingOutCallerInfoRequestTo With {
            .phoneNumber = "1$"
        }
        parameters.playPrompt = False
        Dim resp = Await rc.Restapi.Account.Extension.RingOut.Post(parameters)
        TextBox1.Text = "Call Placed. Call status: " & resp.status.callStatus
    End Function

End Class

По каким причинам это не работает?Я не получаю никаких ошибок, но ничего не происходит ....

Спасибо за вашу помощь.

...