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
