HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Evet Arkadaşlar Bugun Size VB.NET'de Spam Bot Yapmayı Öreticem
Gerekenler:
1 Tane RichTextBox
1 Tane TextBox
2 Tane Buton ve 1 Timer
Butonlardan Birinin Adını Başlat Digerinin Adını Durdur Yapınız
Yapılacaklar:
Timer'e 2 Kez Tıklayın ve Kod Bölumune BUNLARI YAZIN
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send((Chr(13)))
End Sub
Daha Sonra Tasarıma Geri Dönup Başlat'a 2 Kere Tıklayın Ve Şu Kodları Ekleyin
If Textbox1.Text = "" Then
MsgBox("Saliseyi girin.")
Else
Timer1.Interval = Convert.ToInt32(Textbox1.Text)
Timer1.Start()
End If
Ve Tekrar Tasarıma Dönup Durdur'a 2 Kere Tıklayıp Şu Kodları Ekleyin
If Textbox1.Text = "" Then
MsgBox("Önce başlayın ki durdurabilesiniz ")
Else
Timer1.Stop()
End If
Gerekenler:
1 Tane RichTextBox
1 Tane TextBox
2 Tane Buton ve 1 Timer
Butonlardan Birinin Adını Başlat Digerinin Adını Durdur Yapınız
Yapılacaklar:
Timer'e 2 Kez Tıklayın ve Kod Bölumune BUNLARI YAZIN
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send((Chr(13)))
End Sub
Daha Sonra Tasarıma Geri Dönup Başlat'a 2 Kere Tıklayın Ve Şu Kodları Ekleyin
If Textbox1.Text = "" Then
MsgBox("Saliseyi girin.")
Else
Timer1.Interval = Convert.ToInt32(Textbox1.Text)
Timer1.Start()
End If
Ve Tekrar Tasarıma Dönup Durdur'a 2 Kere Tıklayıp Şu Kodları Ekleyin
If Textbox1.Text = "" Then
MsgBox("Önce başlayın ki durdurabilesiniz ")
Else
Timer1.Stop()
End If
Son düzenleme:
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
