Blog Of Sem: VB .NET'de Yazı özgünleştirme ve özgünleştirme testi yapma kodları SEO

VB .NET'de Yazı özgünleştirme ve özgünleştirme testi yapma kodları SEO

Forma eklenmesi gerekenler; Kaynak kodları için bana ulaşabilirsiniz...


Kodlar:

Public Class Form1





    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        WebBrowser1.Document.GetElementById("makale").SetAttribute("value", MemoEdit1.Text)
        'WebBrowser1.Document.GetElementById("İşlemi Yap").InvokeMember("click")

        'kontor attıktan sonra cıkan ekranda tamamama bas
        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If Element.OuterHtml.Contains("İşlemi Yap") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element
        WebBrowser2.Navigate("http://www.jetseotools.com/free-seo-plagiarism-checker")
        Timer1.Enabled = True


 


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If Element.OuterHtml.Contains("Demo Göster") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element



        Timer1.Enabled = False
        Timer2.Enabled = True
    End Sub



    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Dim Elems As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")
        For Each Elem As HtmlElement In Elems
            'Loop through until you find the one that needs updating (in your case it is named proxylist)
            If Elem.Id = "demo" Then
                'Update the TextArea Text
                '   Elem.InnerHtml = "My Text"
                MemoEdit2.Text = Elem.InnerHtml
                Exit For
            End If
        Next Elem
        MemoEdit2.Text = Split(MemoEdit2.Text, "kelime say")(0)
        Timer2.Enabled = False
        Timer3.Enabled = True
    End Sub




    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Dim Elems As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("textarea")
        For Each Elem As HtmlElement In Elems
            'Loop through until you find the one that needs updating (in your case it is named proxylist)
            If Elem.Id = "mycontent" Then
                'Update the TextArea Text
                '   Elem.InnerHtml = "My Text"
                Elem.InnerHtml = MemoEdit2.Text
                Exit For
            End If
        Next Elem

        For Each Element As HtmlElement In WebBrowser2.Document.GetElementsByTagName("a")

            If Element.OuterHtml.Contains("Check for Plagiarism") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element
        WebBrowser2.Focus()
        SendKeys.Send("^-")

        WebBrowser1.Navigate("http://wmtikk.com/arac/yazi-ozgunlestirici")




        Timer3.Enabled = False
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fileReader As System.IO.StreamReader
        fileReader =
        My.Computer.FileSystem.OpenTextFileReader("saniye.txt")
        Dim stringReader1 As String

        stringReader1 = fileReader.ReadLine()
        Timer1.Interval = stringReader1




    End Sub
End Class