Gửi thông điệp qua mạng LAN

[viehoai]

Nhận được nhiệm vụ ở cơ quan giao là thông báo qua đến mọi người qua mạng nội bộ. Tôi nghĩ có thể sử dụng cấu trúc net send tenmay Thongdiep, nhưng không biết viết code VBA.
Vậy các anh chị có thể giúp đỡ viết hàm VBA như sau: GuiThongDiep(TenMay, Thongdiep)
Hay có ý tưởng khác hay hơn xin được các anh chị giúp đỡ.

 

[dhn46]

Anh thử dùng Excel chat xem như thế nào,
Cái net send này phải thiết lập trong policy mới có thể nhận và gửi được.

 

[hungpecc1]

Nhận được nhiệm vụ ở cơ quan giao là thông báo qua đến mọi người qua mạng nội bộ. Tôi nghĩ có thể sử dụng cấu trúc net send tenmay Thongdiep, nhưng không biết viết code VBA.
Vậy các anh chị có thể giúp đỡ viết hàm VBA như sau: GuiThongDiep(TenMay, Thongdiep)
Hay có ý tưởng khác hay hơn xin được các anh chị giúp đỡ.

Hình như net send này chỉ dùng cho win xp, win 7 không có ?
Mình vào cdm gõ net /? không thấy có chức năng send !

 

[dhn46]

Hình như net send này chỉ dùng cho win xp, win 7 không có ?
Mình vào cdm gõ net /? không thấy có chức năng send !

Win 7 bạn dùng msg thay cho net send

 

[hungpecc1]

Nhận được nhiệm vụ ở cơ quan giao là thông báo qua đến mọi người qua mạng nội bộ. Tôi nghĩ có thể sử dụng cấu trúc net send tenmay Thongdiep, nhưng không biết viết code VBA.
Vậy các anh chị có thể giúp đỡ viết hàm VBA như sau: GuiThongDiep(TenMay, Thongdiep)
Hay có ý tưởng khác hay hơn xin được các anh chị giúp đỡ.

Trong win 7 mình có thể sử dụng lênh MSG /? để gưi thông điệp, tuy nhiên các máy phải sửa giá trị sau thành 1 trong regedit:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server
AllowRemoteRP

 

[viehoai]

Anh thử dùng Excel chat xem như thế nào,
Cái net send này phải thiết lập trong policy mới có thể nhận và gửi được.

Em chưa biết Excel chat. Nhưng người dùng mở excel mới nhận được thông tin à?

 

[redevinte]

Nhận được nhiệm vụ ở cơ quan giao là thông báo qua đến mọi người qua mạng nội bộ. Tôi nghĩ có thể sử dụng cấu trúc net send tenmay Thongdiep, nhưng không biết viết code VBA.
Vậy các anh chị có thể giúp đỡ viết hàm VBA như sau: GuiThongDiep(TenMay, Thongdiep)
Hay có ý tưởng khác hay hơn xin được các anh chị giúp đỡ.

Bạn tìm mấy phần mềm chat trong mạng LAN ấy (ví dụ:BORGChat), vừa nhanh vừa tiện.

 

[dhn46]

Em chưa biết Excel chat. Nhưng người dùng mở excel mới nhận được thông tin à?

Vâng đúng rồi anh, nó cũng như một hình thức truy vấn ADO qua file chung thôi anh ah.

Việc dùng Net send em nghĩ anh có thể tham khảo các bài liên quan đến list file trong thư mục dùng dos, vì cách đó cũng đều thông qua cửa sổ CMD nên cấu trúc sẽ tương tự.

 

[viehoai]

Bạn tìm mấy phần mềm chat trong mạng LAN ấy (ví dụ:BORGChat), vừa nhanh vừa tiện.

Không phải đơn thuận mình làm việc này không đâu. Mình thực hiện công tác báo cáo trên excel rất nhiều trong đó có việc thông báo mới thuận lợi, còn phần mềm thì nhiều, không phải bàn

 

[redevinte]

Không phải đơn thuận mình làm việc này không đâu. Mình thực hiện công tác báo cáo trên excel rất nhiều trong đó có việc thông báo mới thuận lợi, còn phần mềm thì nhiều, không phải bàn

Có lẽ do mình chưa hiểu ý bạn lắm: Vì mình thấy NET SEND chỉ hiện ra một thông báo dạng POP-UP trên màn hình người nhận tắt đi là mất (không lưu được như phần mềm chát cho nên xét ra không bằng phần mềm chat mạng LAN), nếu sử dụng trong công việc liên quan tới Excel có lẽ sử dụng ứng dụng như bạn dhn46 gọi ý hoặc viết ứng dụng nối với cơ sở dữ liệu trong mạng LAN, hoặc tham khảo A-Tool của bác Tuân... còn nếu bạn muốn nghiên cứu để sử dụng NET SEND trong excel VBA thì mình tìm thấy kiểu thế này bạn ạ (Với KANG là tên máy tính của mình, Hello là thông điệp)

Sub netsend()
Shell "MSG KANG Hello" 'Dùng trong WIN 7
End Sub

 

[viehoai]

Có lẽ do mình chưa hiểu ý bạn lắm: Vì mình thấy NET SEND chỉ hiện ra một thông báo dạng POP-UP trên màn hình người nhận tắt đi là mất (không lưu được như phần mềm chát cho nên xét ra không bằng phần mềm chat mạng LAN), nếu sử dụng trong công việc liên quan tới Excel có lẽ sử dụng ứng dụng như bạn dhn46 gọi ý hoặc viết ứng dụng nối với cơ sở dữ liệu trong mạng LAN, hoặc tham khảo A-Tool của bác Tuân... còn nếu bạn muốn nghiên cứu để sử dụng NET SEND trong excel VBA thì mình tìm thấy kiểu thế này bạn ạ (Với KANG là tên máy tính của mình, Hello là thông điệp)

Sub netsend()
Shell "MSG KANG Hello" 'Dùng trong WIN 7
End Sub

Em đang dùng win xp nên đã test
Shell "cmd /c ""net send username message""", vbMinimizedNoFocus tìm trên mạng nhưng không được

 

[redevinte]

Em đang dùng win xp nên đã test
Shell "cmd /c ""net send username message""", vbMinimizedNoFocus tìm trên mạng nhưng không được

Được mà bạn. Bạn xem file gửi kèm nhé, minh test thấy được mà. Vấn đề là phải chạy Messenger services (bạn xem file ảnh gửi kèm nhé: chọn Automatic rồi nhấn start để chạy dịch vụ này).

 

[viehoai]

Được mà bạn. Bạn xem file gửi kèm nhé, minh test thấy được mà. Vấn đề là phải chạy Messenger services (bạn xem file ảnh gửi kèm nhé: chọn Automatic rồi nhấn start để chạy dịch vụ này).

Em test sao không được nhỉ. Đương nhiên có đặt Messenger services ở Automatic rồi

 

[redevinte]

Em test sao không được nhỉ. Đương nhiên có đặt Messenger services ở Automatic rồi

Tắt firewall đi bạn. Mình vừa bật thử firewall, nếu bật firewall thì những thông điệp này sẽ bị chặn.
(Nếu muốn gửi nhận được thì các máy phải tắt firewall và bật Messenger serviecs)
Ngoài ra bạn kiểm tra xem các máy có cùng workgroup không, có thông mạng LAN không.
Mình vừa test thử mạng công ty với các máy dùng WinXP, gửi bình thường.

 

[viehoai]

Tắt firewall đi bạn. Mình vừa bật thử firewall, nếu bật firewall thì những thông điệp này sẽ bị chặn.
(Nếu muốn gửi nhận được thì các máy phải tắt firewall và bật Messenger serviecs)
Ngoài ra bạn kiểm tra xem các máy có cùng workgroup không, có thông mạng LAN không.
Mình vừa test thử mạng công ty với các máy dùng WinXP, gửi bình thường.

firewall đã được Off rồi (với máy cần gửi cũng đặt rồi), còn không cũng không thể kết nối dữ liệu share máy khác được. Dùng phần mềm thì lại ok

 

[viehoai]

Tắt firewall đi bạn. Mình vừa bật thử firewall, nếu bật firewall thì những thông điệp này sẽ bị chặn.
(Nếu muốn gửi nhận được thì các máy phải tắt firewall và bật Messenger serviecs)
Ngoài ra bạn kiểm tra xem các máy có cùng workgroup không, có thông mạng LAN không.
Mình vừa test thử mạng công ty với các máy dùng WinXP, gửi bình thường.

Ủa khác nhóm không được hả anh? xử lý sao nhỉ?

 

[redevinte]

firewall đã được Off rồi (với máy cần gửi cũng đặt rồi), còn không cũng không thể kết nối dữ liệu share máy khác được. Dùng phần mềm thì lại ok

Nói thế này cũng khó biết được tại sao, bạn test thử bằng file mình gửi kèm để gửi cho tất cả các máy nhằm kiểm tra thử không hay vẫn đang dùng dòng code bạn viết ở trên do dòng đó mình chưa thử nên cũng không rõ lắm. Phần mềm diệt virus bạn dùng có firewall không. Vì ví dụ ở bên trên mình chạy trong mạng LAN công ty mình với các máy dùng winXP rồi, gửi và nhận được nên chắc không vấn đề.

 

[redevinte]

Ủa khác nhóm không được hả anh? xử lý sao nhỉ?

Mình có thử một số lênh sau thì thành công, riêng gửi cho từng users thì chưa rõ tại sao không được nhé bạn.
- Gửi cho các máy trong workgroup (ví dụ của mình là MSHOME): net send /domain:mshome Hello
- Gửi cho các máy trong LAN: net send * Hello
Trong command prompt bạn gõ NET VIEW: những máy bạn thấy liệt kê ra đó, nếu những máy này tắt firewall và bật messenger services thì có thể nhận được.

 

[viehoai]

Mình có thử một số lênh sau thì thành công, riêng gửi cho từng users thì chưa rõ tại sao không được nhé bạn.
- Gửi cho các máy trong workgroup (ví dụ của mình là MSHOME): net send /domain:mshome Hello
- Gửi cho các máy trong LAN: net send * Hello
Trong command prompt bạn gõ NET VIEW: những máy bạn thấy liệt kê ra đó, nếu những máy này tắt firewall và bật messenger services thì có thể nhận được.

Test thành công rồi. Cảm ơn anh nhiều

 

[redevinte]

Test thành công rồi. Cảm ơn anh nhiều

Mình cũng chưa rõ tại sao gửi cho từng user thì chưa được, trong help của lệnh thì nó cũng chỉ có mấy gợi ý thôi nhưng chưa tìm hiểu ra, nếu bạn tìm ra thì chia sẻ nhé.