Ağ İçi Mesaj Programı - Userformdan CMD ekranına net send komutu yazma

[Hüseyin Çoban]

Merhaba Arkadaşlar,
İşyerinde kullanmak için şöyle bir işlem yapmaya çalışıyorum.

Başlat-Çalıştır- CMD komutu.
CMD ekranında

Kod: [Seç]

net send bilgisayaradı veya IP "mesaj"Bu komut ile aynı ağ üzerindeki İsmini veya IP adresini girdiğim PC ye mesaj gönderebiliyorum.

Excelde bu işlemi bu kodlar ile yapıyorum.

Kod: [Seç]

shell "cmd /c net send ..... , vbhide
.... : göndermek istediğim PC ismi
, vbhide : mesaj

Bu işlemi userform ile yapmak istiyorum.
Pc ismini Combobox1 den,
Mesajı Textbox1 ve Textbox2 yi birleştirerek göndermeli.

Yardım ve fikirlerinizi bekliyorum.

Ekteki dosya tarafımdan kaldırılmıştır- 25.07.2011 - Hüseyin Çoban

[Bülent Öztürk]

Merhaba Hüseyin Bey.

Yıllar önce öyle bir program tasarlamıştım.
Bulup ekleyeyim.

[Hüseyin Çoban]

İlginiz için teşekkürler Bülent Bey,
Çalışmanızı görmek, incelemek isterim. Çok memnun olurum.

[Bülent Öztürk]

Eski bir versiyonunu buldum.

Daha yenisi de var, ancak evdeki arşivde...

Mesaj gönderme kodlarına bir satır daha ekledim. NET SEND yanında MSG komutu de ekli şu an.
Sizde hangi kod çalışır bilmiyorum, bizim bilgi işlemci akıllısı güvenlik paranoyası ile net send ve msg hizmetlerini pasif ettiğinden programı işyerinde kullanmam mümkün olmuyor... Bunun yerine veritabanı kullanan başka bir program daha yaptım, müsait bir ara onu da düzenler, eklerim.

Eski versiyon ektedir.


(Ekler güncellenmiştir-14.08.2011)

[Hüseyin Çoban]

Çok teşekkür ederim Bülent Bey, yapmak istediğim çalışma tamda buydu. 
Paylaşım ve emekleriniz için tekrardan teşekkür ederim. 

[Bülent Öztürk]

Rica ederim Hüseyin Bey.

İhtiyacınız doğrultusunda düzenleyip, güle güle kullanın.

Bu arada; sonraki versiyonlarda, ağ üzerindeki bilgisayarlar otomatik listeleniyordu...
Öyle bir ihtiyacınız varsa, onu da foruma eklerim...

[Hüseyin Çoban]

Bu haliyle bile çok yeterli Hocam, ama dediğim gibi çalışmalarınızı görmek ve incelemek beni memnun eder.

[demir.zined]

Rica ederim Hüseyin Bey.

İhtiyacınız doğrultusunda düzenleyip, güle güle kullanın.

Bu arada; sonraki versiyonlarda, ağ üzerindeki bilgisayarlar otomatik listeleniyordu...
Öyle bir ihtiyacınız varsa, onu da foruma eklerim...

Bülent hocam, benzer işleve sahip bir program yazdım (Access'de).
Bizim iş yerinde Lan güvenliği tedbirleri fazlasıyla uygulamakta,
sadece bir odadaki bilgisayar isimlerini bildiğim yaklaşık 22 bilgisayar arasında "shell - net send" ile kullanıyorum.
Sizin ağdaki bilgisayarları otomatik listeleyen örneğinizden yararlanmak isterim, tabi mümkünse.
Teşekkürler...

[neowin]

merhaba çok faydalı fakat ağ ayarlarınızı ve kullanıcı adınızı kontrol edin diye bir hata veriyor domain kontrol olan bir ağda kullanmak istiyorum

iyi çalısmalar

[ozcan35]

Rica ederim Hüseyin Bey.

İhtiyacınız doğrultusunda düzenleyip, güle güle kullanın.

Bu arada; sonraki versiyonlarda, ağ üzerindeki bilgisayarlar otomatik listeleniyordu...
Öyle bir ihtiyacınız varsa, onu da foruma eklerim...

Teşekkürler ...Ekleyebilir misiniz?

[Bülent Öztürk]

Daha yeni bir versiyonu arşivimde bulup ekledim.
Ancak bende çalışmadı. 

[hayalibey]

@Bülent Öztürk Hocam bana böyle bir program lazım.
Ofis 2016 64 bit Türkçe uyumlu çalışan dosyayı yüklemeniz  mümkün mü acaba

[hayalibey]

Merhaba Hocam v6 yi indirdim
Programı 64 bite çevirdim.
Açılışta Error Nr. (1131)!
Hata mesajını veriyor.
Ayrıca ağdaki bilgisayarları göstermiyor.

[hayalibey]

Bu konuda yardımcı olabilecek var mı acaba

[Bülent Öztürk]

Windows 10'da güvenlik ayarları, çalışan/çalışmayan servisler vb ayarlar sebebiyle sanırım sorun oluyor.
XP'de çok güzel çalışan NET SEND Win10'da yok. Onun yerine kullanılabilecek MSG var ama bazı bilgisayarlarda çalışıyor, bazılarında çalışmıyor. Çalışmama olarak, bazı bilgisayarlar için 1722, bazıları için 5 hata kodunu veriyor.
Win10 Pro olan, aynı workgrupta olan 3 bilgisayar ile denedim.
A, B'ye mesaj atabiliyor, C'ye atamıyor.
B, A'ya da C'ye de atamıyor.
C de A'ya ve B'ye atamıyor.
Msg komutu hepsinde çalışıyor, kendi kendine gönderildiğinde mesaj görüntüleniyor.

1722 hatasının çözümü için:
HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server
Name : AllowRemoteRPC
Type : REG_DWORD
Value : 1

5 hata kodunun çözümü için;
Mesaj gönderilmek istenen bilgisayarın oturum açma bilgilerini Kimlik Bilgileri Yöneticisine girmek.

Ancak iş ortamında bütün kullanıcıların bilgilerini alıp girmek gibi bir şansımız olmadığı için başka bir çözümü var mı bilmiyorum.