Net send ile bir bilgisayara mesaj yollamak.

Ağ bağlantısındaki bir bilgisayara istediğiniz kadar mesaj yollaya bilirsiniz hemde binlerce.
yapmanız gereken ms-dos'a girip "nbtstat - n" yazmak (tırnakları yazmıyacağız).Burada bilgisayarın adını ve IP numarasını alırsınız. Ama size lazım olan bilgisayarın ismidir.
Sizin için gerekli olan 3 tane textbox ve bir tane button.

Kodlamaya geçebiliriz.


'text1 kullanıcının adını yazacağınız textbox'dır
'text2 kullanıcıya göndereceğiniz mesajdır
'text3 kaç tane göndermek istediğiniz textbox'dır
Private Sub command1_click()

dim mesaj as string
dim sayi as double
dim i

mesaj = text2
sayi = val(text3)

for i = 0 to sayi

shell net send & "text1.text" & mesaj

next

end sub