Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub ReactorButton1_Click(sender As Object, e As EventArgs) Handles ReactorButton1.Click
        'checking the network availability
        If My.Computer.Network.IsAvailable Then
            'creating the webrequest point
            Dim Request As WebRequest = DirectCast(WebRequest.Create(Setting.ReactorTextBox1.Text + ReactorTextBox1.Text), HttpWebRequest)
            'defining the response
            Dim Response As HttpWebResponse = DirectCast(Request.GetResponse, HttpWebResponse)
            'getting the response
            Dim Stream As New StreamReader(Response.GetResponseStream)
            'writing the response(shortened URL)
            Dim ShortURL As String = Stream.ReadToEnd
            ReactorTextBox2.Text = ShortURL
        Else
            MsgBox("Please Connect To The Internet And Try Again", MsgBoxStyle.Critical)
        End If
    End Sub

    Private Sub ReactorButton3_Click(sender As Object, e As EventArgs) Handles ReactorButton3.Click
        'copying...
        Clipboard.SetText(ReactorTextBox2.Text)
        MsgBox("Sucessfully Copied To Clipboard")
    End Sub

    Private Sub ReactorButton2_Click(sender As Object, e As EventArgs) Handles ReactorButton2.Click
        Setting.Show()

    End Sub

    Private Sub ReactorTheme1_Click(sender As Object, e As EventArgs) Handles ReactorTheme1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Setting.ReactorTextBox1.Text = "" Then
            Setting.Show()
            ReactorButton1.Enabled = False
            MsgBox("Insert your Api code please")
        Else
            ReactorButton1.Enabled = True


        End If
    End Sub
End Class