EMRAH ŞİMŞEK'İN PROJELERİNDEN ALINTIDIR....
formumuza 2 textbox, 1 buton , 2 label yerleştiriyoz.
Text1=mesaj
Text2=ip numarası
Command1=gonder
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 kac tane olacağını istiyo sonra gonderiyo. Normal mesajda ise bir tane mesaj gonderiyooor.
KOLAY GELSİN
İNŞALLAH İŞİNİZE YARAR
__________________