Kod:
Public Class Form1
Private Sub id_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles id.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
wb.Document.GetElementById("email").SetAttribute("value", id.Text)
wb.Document.GetElementById("pass").SetAttribute("value", Şifre.Text)
wb.Document.Forms(0).InvokeMember("submit")
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saldır.Click
Try
saldır.Enabled = False
durdur.Enabled = True
wb.Navigate("http://m.facebook.com/" & Kurban.Text)
Timer1.Interval = 3000
Timer1.Start()
Catch ex As Exception
End Try
End Sub
Private Sub Kurban_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kurban.TextChanged
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles durdur.Click
Try
saldır.Enabled = True
durdur.Enabled = False
Timer1.Stop()
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
wb.Document.GetElementById("message").SetAttribute("value", İleti.Text)
wb.Document.GetElementById("post").InvokeMember("click")
wb.Refresh()
Catch ex As Exception
End Try
End Sub
Private Sub wb_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles wb.Navigated
Try
adres.Text = wb.Url.AbsoluteUri
Catch ex As Exception
End Try
End Sub
Private Sub wb_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles wb.Navigating
Try
adres.Text = wb.Url.AbsoluteUri
Catch ex As Exception
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
code]
