Excel Vba Forum - Excelce.Net
Excel, VBA, VB Örnek Programlar => Bülent Öztürk Excelce.Net Özel Program Paylaşımları => Konuyu başlatan: Hüseyin Çoban - 30 Aralık 2010, 10:51:29
-
Merhaba Arkadaşlar,
İşyerinde kullanmak için şöyle bir işlem yapmaya çalışıyorum.
Başlat-Çalıştır- CMD komutu.
CMD ekranında
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.
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
-
Merhaba Hüseyin Bey.
Yıllar önce öyle bir program tasarlamıştım.
Bulup ekleyeyim.
-
İlginiz için teşekkürler Bülent Bey,
Çalışmanızı görmek, incelemek isterim. Çok memnun olurum.
-
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)
-
Çok teşekkür ederim Bülent Bey, yapmak istediğim çalışma tamda buydu. :alkis
Paylaşım ve emekleriniz için tekrardan teşekkür ederim. :saygilar
-
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...
-
Bu haliyle bile çok yeterli Hocam, ama dediğim gibi çalışmalarınızı görmek ve incelemek beni memnun eder.
-
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...
-
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
-
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?
-
Daha yeni bir versiyonu arşivimde bulup ekledim.
Ancak bende çalışmadı. :-[
-
@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
-
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.
-
Bu konuda yardımcı olabilecek var mı acaba
-
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.
-
Buradan (https://www.codeproject.com/Articles/16113/Retreiving-a-list-of-network-computer-names-using) ve buradan (https://docs.microsoft.com/en-us/windows-server/administration/windows-commands/msg) yararlanarak bir program yaptım ama, bazı bilgisayarlara mesaj gönderilebilmesi için o bilgisayarın oturum açma bilgilerini mevcut bilgisayarın Kimlik Bilgileri Yöneticisi'ne girmek gerekiyor.