bypass

Benim Bilgim Benim Gücümdür...​

If Text1.Text = "tintini" 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)
b = Shell("net send" & Text2.Text & "" & Text1.Text)
Next
End if