Mesaj bomber

aLıntıdır


Ç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


aLıntıdır