C# oto messanger yapımı hakkında

        If RichTextBox1.Text = "Buraya taslak giriniz:" Then
            MsgBox("Hatalı taslak lütfen taslağı doğru biçimde giriniz!", vbCritical, "Sistem")
        ElseIf RichTextBox1.Text = "" Then
            MsgBox("Taslak boş bırakılarak gönderilmez lütfen bir taslak giriniz!", vbCritical, "Sistem")
        Else
            Dim millisecondsTimeout As Integer = 0
            Dim millisecondsTimeout2 As Integer = 0
            Dim millisecondsTimeout3 As Integer = 0
            Dim millisecondsTimeout4 As Integer = 0
            Dim flag As Boolean = Me.TrackBar1.Value = 0
            If flag Then
                millisecondsTimeout4 = 500
                millisecondsTimeout = 4000
                millisecondsTimeout2 = 3600
                millisecondsTimeout3 = 3600
            End If
            Dim flag2 As Boolean = Me.TrackBar1.Value = 1
            If flag2 Then
                millisecondsTimeout4 = 150
                millisecondsTimeout = 3000
                millisecondsTimeout2 = 2600
                millisecondsTimeout3 = 1600
            End If
            Dim flag3 As Boolean = Me.TrackBar1.Value = 2
            If flag3 Then
                millisecondsTimeout4 = 5
                millisecondsTimeout = 2000
                millisecondsTimeout2 = 1600
                millisecondsTimeout3 = 1200
            End If
            Dim flag4 As Boolean = Me.TrackBar1.Value = 3
            If flag4 Then
                millisecondsTimeout4 = 0
                millisecondsTimeout = 1000
                millisecondsTimeout2 = 500
                millisecondsTimeout3 = 500
            End If
            Dim flag5 As Boolean = Me.TrackBar1.Value = 4
            If flag5 Then
                millisecondsTimeout4 = 0
                millisecondsTimeout = 600
                millisecondsTimeout2 = 400
                millisecondsTimeout3 = 5
            End If
            Dim str As String = "Instagram | Copyright I‌nfringement "
            Dim str2 As String = "Hello Dear User, "
            Dim str3 As String = "Your account is protected by copyright. Let's pay attention to our shares. "
            Dim str4 As String = "When we reviewed your account today, we have disabled some features in your account because your last post contains copyrighted content. "
            Dim str5 As String = "Copyright is very important to us; If no objection is made within 24 hours, your account will be deleted! If you believe this is an error, please submit an appeal notice. It will be reviewed by our appeal manager and returned to you. "
            Dim str6 As String = (RichTextBox1.Text)
            Dim str7 As String = "Facebook from Instagram "
            Dim str8 As String = "© Instagram. Facebook Inc. 1601 Willow Road, Menlo Park, CA 94025 USA"
            For num As Integer = 0 To (num)
                Try
                    Class1.dwial.Url = "https://www.messenger.com/new"
                    Thread.Sleep(millisecondsTimeout2)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div[1]/div[2]/div/div/div[1]/input")).SendKeys(Me.user.Items(num).ToString())
                    Thread.Sleep(millisecondsTimeout)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[2]/div/div/div[1]/div[1]/ul/li[1]/ul/li[1]/div")).Click()
                    Thread.Sleep(1500)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str2 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str3 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str4 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str5 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str6 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str7 + Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str8 + Keys.Shift + Keys.Enter)
                    Thread.Sleep(millisecondsTimeout4)
                    Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div[2]/div[2]/div/div/span")).Click()
                Catch ex As NoSuchElementException
                    Try
                        Thread.Sleep(millisecondsTimeout4)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str2 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str3 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str4 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str5 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str6 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str7 + Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(Keys.Shift + Keys.Enter)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/div[2]/div[4]/div[2]/div/div/div[1]/p")).SendKeys(str8 + Keys.Shift + Keys.Enter)
                        Thread.Sleep(millisecondsTimeout4)
                        Class1.dwial.FindElement(By.XPath("/html/body/div[1]/div/div/div/div[2]/div/div/div[1]/div[1]/div[2]/div/div/div/div/div/div/div[2]/div/div/div[2]/div/span")).Click()
                    Catch
                    End Try
                End Try
                Thread.Sleep(millisecondsTimeout3)
            Next
        End If