Ağ ortamında mesaj bombardımanı programı! ..."

Visual Basic Visual Basic.net ve Programlama Dilleri • Visual Basic • Visual Basic Kod Bankası (Moderatör: volkancc) • Ağ ortamında mesaj bombardımanı programı! ..."

Sayfa: [1] Aşağı git

« önceki sonraki »

Yazdır

	Gönderen	Konu: Ağ ortamında mesaj bombardımanı programı! ..." (Okunma Sayısı 455 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

HeLL

VB Uzman Mod
Master Üye

Karma: 100
Offline

Offline

Cinsiyet: Bay

Mesaj Sayısı: 1759

Ağ ortamında mesaj bombardımanı programı! ..."

« : 20 Haziran 2008, 19:55:11 »

Çok kolay bir program bu. Boş bir bilgisayar dersinde aklıma geldi! Yaptım ve çalışıyo bizzat denedim. Ama eğer sinirli arkadaşlarınız varsa sakın bakmayın. Neden derseniz dövüyolar.
Neyse formumuza 2 textbox, 1 buton , 2 label yerleştiriyoz.
Text1=mesaj
Text2=ip numarası
Command1=gönder
Dim sayı As Integer
Dim mesaj As String
Private Sub Command1_Click()
If Text1.Text = "ŞaFaK" Then 'Şifremiz
Text1.Text = ""
mesaj = InputBox("Bomba Mesajınızı Yazınız")
sayı = InputBox("Bomba Mesaj Sayısını Giriniz")
For i = 1 To sayı
a = Shell("net send " & Text2.Text & " " & Text1.Text)
Next
Else
Text1.Text = ""
a = Shell("net send " & Text2.Text & " " & Text1.Text)
End If
End Sub
Şimdi kısaca anlatayım. Ben bunu yapınca benden başka kimse kullanmasın diye şifreli yazdım. Mesaj olarak ŞaFaK yazınca benden mesajı ve kaç tane olacağını istiyo sonra gönderiyo. Normal mesajda ise bir tane mesaj gönderiyooor.