KingDoz
Forumdan Uzaklaştırıldı
- Katılım
- 23 Haz 2015
- Mesajlar
- 1,403
- Tepkime puanı
- 0
- Puanları
- 0
- Yaş
- 33
Esselamün aleyküm söz sükutsa cod altın
Facebook spam bot yapmak isteyen arkadaslar güle güle kullanın
[/hide]
Facebook spam bot yapmak isteyen arkadaslar güle güle kullanın
PHP:
Public Class Form1
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
SendKeys.Send("M")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Timer1.Interval = "1000"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Timer1.Interval = "100"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub
Private Sub KaydetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaydetToolStripMenuItem.Click
SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
Dim dosya As String
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
dosya = SaveFileDialog1.FileName()
RichTextBox1.SaveFile(dosya)
Else
Exit Sub
End If
End Sub
Private Sub RichTextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
Dim dosya As String
OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
dosya = OpenFileDialog1.FileName
RichTextBox1.LoadFile(dosya)
Else
Exit Sub
End If
End Sub
Private Sub YapımcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapımcToolStripMenuItem.Click
End Sub
Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
System.Diagnostics.Process.Start("https://www.facebook.com/kullanan kisinin facebook adresi?ref=tn_tnmn")
End Sub
End Class