Merhaba Ben Emrah Simsek. :)
Ç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.