Public useranget As String
    Public useranget1 As String


    Public Sub getcsrf()
        Dim webClient As WebClient = New WebClient()
        Dim text As String = webClient.DownloadString("https://pastebin.com/raw/mNfUkgnq")
        Dim flag As Boolean = text.Contains(":")
        If flag Then
            Dim array As String() = text.Split(New Char() {":"c})
            Me.useranget = array(0)
            Me.useranget1 = array(1)
        End If
    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.getcsrf()
    End Sub


                httpWebRequest.UserAgent = Me.useranget1
                    webClient.Headers.Add("User-Agent", Me.useranget)