Error Connecting Windows App to MYOB

Hi everyone, thanks for your patience,

Please see an update on the recent issues that some users of 3rd party apps are experiencing when trying to authenticate to the API.

There are two distinct errors (below): 

• "Allow Access" page not displaying correctly 
  This is caused by 3rd party apps using unsupported browser versions in their implementations. We have worked to quickly develop and release a patch which should mitigate the issues with the “"Allow Access” button not displaying correctly when authorising a user for an app. This patch will only fix the display issue with the "Allow Access" window and may not fix any issues with redirecting the user back to the app after authentication. These issues are due to an unsupported browser implementation, in which case the developer will need to update their app to support the latest browser version. 
  
  
• App unable to complete the authentication process
  Some apps are using browser implementations which are no longer supported, impacting the authentication process. The developer will need to update the app to a supported browser version. MYOB recommends using the latest version of your web browser, or at least the previous version. 

 We apologise for the inconvenience. If you are a developer and require further assistance, please contact API support via the form below: 

https://apisupport.myob.com/hc/en-us/requests/new?ticket_form_id=215283. 

Trish_Lee LiamM Matiu DilipB Mike_James Illek rfeng Kerry_Busby Phil_Jeffrey_KC 

Hi All,
I've been working though this for several days and I've built a test app (i've built this using example code from the community) using the WebView2 package and still no luck.

Even when I try using Edge I still get an error message as below:

Other times I get and IP Address error message.

I'm trying this on my Dev and other device with the same results, the best I've had so far is edge in that it gave me back a code.

I have tried my test app and I've only ever got back a response with the code in it and off course it had an error.

Below is the code for the form as I can't add the project files....

Imports Microsoft.Web.WebView2.Core
Imports System.IO

Public Class frmWebView
    Private Async Sub frmWebView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtURL.Text = "https://www.google.com.au"
        LogMsg($"MS Edge Version: {CoreWebView2Environment.GetAvailableBrowserVersionString()}")
        '   Initialise.
        Await wvwMain.EnsureCoreWebView2Async()
        'Await InitializeCoreWebView2Async(Path.Combine("C:\Temp", Reflection.Assembly.GetExecutingAssembly().GetName().Name))

        If Not String.IsNullOrEmpty(txtURL.Text) Then
            '   Navigate to URL.
            WebsiteNavigate(txtURL.Text)
        End If
    End Sub

    Private Sub frmWebView_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        '   Unsubscribe from CoreWebView2 event(s) (remove event handlers).
        RemoveHandler wvwMain.CoreWebView2.HistoryChanged, AddressOf wvwMain_HistoryChanged
    End Sub

    Private Sub txtURL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtURL.KeyPress
        '// Press ENTER
        If Asc(e.KeyChar) = 13 Then
            '// No beep
            e.Handled = True
            Try
                'wvwMain.CoreWebView2.Navigate(txtURL.Text)
                '// Or --> wvwMain.CoreWebView2.Navigate(txtURL.Text)
                wvwMain.Source = New Uri(txtURL.Text)
            Catch ex As UriFormatException
                MessageBox.Show("The URL must be fully styled, such as the prefix. http[s]://")
            Catch ex As Exception
                MessageBox.Show($"Error: {ex}")
            End Try
        End If
    End Sub

    Private Sub wvwMain_CoreWebView2InitializationCompleted(sender As Object, e As CoreWebView2InitializationCompletedEventArgs) Handles wvwMain.CoreWebView2InitializationCompleted
        LogMsg("wvwMain_CoreWebView2InitializationCompleted")
        LogMsg($"UserDataFolder: {wvwMain.CoreWebView2.Environment.UserDataFolder.ToString()}")
        '   Subscribe to CoreWebView2 event(s) (add event handlers).
        AddHandler wvwMain.CoreWebView2.HistoryChanged, AddressOf wvwMain_HistoryChanged
    End Sub

    Private Sub wvwMain_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles wvwMain.NavigationCompleted
        MessageBox.Show(wvwMain.Source.ToString())
        LogMsg("wvwMain_NavigationCompleted")
    End Sub

    Private Sub wvwMain_WebMessageReceived(sender As Object, e As CoreWebView2WebMessageReceivedEventArgs) Handles wvwMain.WebMessageReceived
        LogMsg("wvwMain_WebMessageReceived")
    End Sub

    Private Async Function InitializeCoreWebView2Async(Optional userDataFolder As String = "") As Task
        Dim options As CoreWebView2EnvironmentOptions = Nothing
        Dim cwv2Environment As CoreWebView2Environment = Nothing

        '   It's recommended to create the userDataFolder in the same location
        '   that your other application data is stored (ie: in a folder in %APPDATA%)
        '   if not specified, we'll create a folder in %TEMP%
        If String.IsNullOrEmpty(userDataFolder) Then
            userDataFolder = Path.Combine(Path.GetTempPath(), Reflection.Assembly.GetExecutingAssembly().GetName().Name)
        End If

        '   Create WebView2 Environment using the installed or specified WebView2 Runtime version.
        'cwv2Environment = Await CoreWebView2Environment.CreateAsync("C:\Program Files (x86)\Microsoft\Edge Dev\Application\1.0.1054.31", userDataFolder, options)
        cwv2Environment = Await CoreWebView2Environment.CreateAsync(Nothing, userDataFolder, options)
        '   Initialise.
        Await wvwMain.EnsureCoreWebView2Async(cwv2Environment)
    End Function

    Private Sub wvwMain_HistoryChanged(sender As Object, e As Object)
        LogMsg("wvwMain_HistoryChanged")
        'btnBack.Enabled = WebView21.CoreWebView2.CanGoBack
        'btnForward.Enabled = WebView21.CoreWebView2.CanGoForward
        '   Update the Address Bar.
        UpdateAddressBar()
    End Sub

    Private Sub LogMsg(msg As String, Optional addTimestamp As Boolean = True)
        If addTimestamp Then
            msg = $"{Now.ToString("yyyy/MM/dd HH:mm:ss.fff")} - {msg}"
        End If

        Debug.WriteLine(msg)
    End Sub

    Private Sub UpdateAddressBar()
        ''   If necessary, update address bar.
        'If textBoxAddressBar.Text <> wvwMain.Source.ToString() Then
        '    textBoxAddressBar.Text = wvwMain.Source.ToString()

        '    'move cursor to end of text
        '    textBoxAddressBar.SelectionStart = textBoxAddressBar.Text.Length
        '    textBoxAddressBar.SelectionLength = 0
        'End If
    End Sub

    Private Sub WebsiteNavigate(ByVal dest As String)
        If wvwMain IsNot Nothing AndAlso Not String.IsNullOrWhiteSpace(dest) Then
            '   URL must start with one of the specified strings
            '   if Not, pre-pend with "https://"
            If Not dest = "about:blank" AndAlso Not dest.StartsWith("edge://") AndAlso
               Not dest.StartsWith("file://") AndAlso Not dest.StartsWith("http://") AndAlso
               Not dest.StartsWith("https://") AndAlso
               Not System.Text.RegularExpressions.Regex.IsMatch(dest, "^([A-Z]|[a-z]):") Then
                '   Set Value
                dest = "https://" & dest
            End If

            '   Option 1.
            'wvwMain.Source = New Uri(dest, UriKind.Absolute)
            '   Option 2.
            wvwMain.CoreWebView2.Navigate(dest)
            '   Update the Address Bar.
            UpdateAddressBar()
        End If
    End Sub
End Class

Please let me know what I am doing wrong here.