Gửi thông điệp qua mạng LAN (1 người xem)

[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é.

 

[viehoai]

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é.

Thử như thế này thấy được net send /domain:Tenmay Hello
Nhưng như thế này thì không được:
Shell "net send /domain:" & Sheet1.Range("A2").Value & Sheet1.Range("B2").Value
A chà thế này:
Shell "net send /domain:" & Sheet1.Range("A2").Value & " " & Sheet1.Range("B2").Value (thiếu khoảng cách)

 

[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.

Có một vài máy tìm Messenger không có. Trường hợp này xử lý sao anh ?

 

[redevinte]

Có một vài máy tìm Messenger không có. Trường hợp này xử lý sao anh ?

Bạn thử vào command prompt gõ như sau: sc create messenger binPath= C:\Windows\system32\msgsvc.dll
(Muốn xóa cái hình ở dưới thì làm thế nào vậy các bạn) --> Đổi sang khung lớn, ấn vào tải file kéo xuống dưới và remove ảnh đã tải (cảm ơn viehoai gợi ý).

 

[viehoai]

Bạn thử vào command prompt gõ như sau: sc create messenger binPath= C:\Windows\system32\msgsvc.dll
(Muốn xóa cái hình ở dưới thì làm thế nào vậy các bạn)

Thử rồi mà không được anh a.
Còn xóa hình trên thì thử sửa bài viết của mình, đổi sang khung lớn thử xem sao

 

[redevinte]

Thử rồi mà không được anh a.
Còn xóa hình trên thì thử sửa bài viết của mình, đổi sang khung lớn thử xem sao

1. Kiểm tra xem trong thử mục "C:\WINDOWS\system32\" có file msgsvc.dll chưa?
- Nếu có thì OK (chuyển sang bước 2).
- Nếu chưa có thì copy file msgsvc.dll trong file gửi kèm vào thư mục đó và đăng ký: Vào run gõ regsvr32 msgsvc.dll --> Enter
2. Chạy file Messenger.reg ở trong file gửi kèm --> OK.
3. Khởi động lại máy tính, rồi vào services để khởi động Messenger.
4. Command ở bài trước bạn gõ chính xác (để ý cả dấu cách giữ dấu = và C:\WINDOWS\...) nó sẽ báo OK và Messenger sẽ được đăng ký trong services. Nhưng có vấn đề là không thể chạy trực tiếp msgsvc.dll được nên nó sẽ báo lỗi khi bạn khởi động dịch vụ.

 

[duongcam.ict]

Xin các bác chỉ giáo
Em dùng win 10, 2 máy tính trong mạng Lan đều dùng win 10.
Xin hỏi cách gửi tin nhắn dạng popup (thông điệp) giữa 2 máy tính không dùng phần mềm thì làm thế nào ạ?
Có cách nào gửi qua cmd không ạ?
xin cảm ơn ạ

 

[caniquy]

giống với câu hỏi trên làm sao để chat với 1 máy bất kỳ ( không sài bất cứ phần mềm nào )
sử dụng:
win10<->win10
win10<->win7
win10<->winxp
lên gg tìm được cái này mà chưa mò ra được, hóng cao thủ hổ trợ.thank`s so much

How to Use Net Send: 14 Steps (with Pictures) - wikiHow

Net Send is a command line tool used in Windows XP for sending messages to other users and computers on a local network. With Windows Vista, Net Send was replaced with msg.exe, a command line tool that has very similar functionality and...

www.wikihow.com

 

[ongke0711]

giống với câu hỏi trên làm sao để chat với 1 máy bất kỳ ( không sài bất cứ phần mềm nào )
sử dụng:
win10<->win10
win10<->win7
win10<->winxp
lên gg tìm được cái này mà chưa mò ra được, hóng cao thủ hổ trợ.thank`s so much

How to Use Net Send: 14 Steps (with Pictures) - wikiHow

Net Send is a command line tool used in Windows XP for sending messages to other users and computers on a local network. With Windows Vista, Net Send was replaced with msg.exe, a command line tool that has very similar functionality and...

www.wikihow.com

Bạn nên tìm "Send/popup message by VBScrip"
Lênh Net Send hình như là Vista đã không còn hỗ trợ.

 

[Kiều Mạnh]

kiếm file MSWINSCK.ocx
Trong File VB6.ISO mà xài cho nó khỏe nếu không muốn cài VB6
Tuy nhiên nếu xài được nó hay đăng ký nó cho xài thì lại công phu đấy
Còn nếu cài VB6 thì xài nó là đương nhiên .... chỉ khó cái ko cài mà xài nó thì đó là cái công phu he
MSWINSCK.ocx ... SP6 đấy nha ... thử xem

 

[caniquy]

cảm ơn 2 bạn đả tư vấn , để mình nghiên cứu coi cách nào là tối ưu 1. chúc sức khỏe + vui vẻ

 

[caniquy]

kiếm file MSWINSCK.ocx
Trong File VB6.ISO mà xài cho nó khỏe nếu không muốn cài VB6
Tuy nhiên nếu xài được nó hay đăng ký nó cho xài thì lại công phu đấy
Còn nếu cài VB6 thì xài nó là đương nhiên .... chỉ khó cái ko cài mà xài nó thì đó là cái công phu he
MSWINSCK.ocx ... SP6 đấy nha ... thử xem

cái này sài ntn vậy bạn ới. mình tải về thấy có file tên <MSWINSCK.oct> là gì vậy?? mình không muốn cài BẤT CỨ PHẦN MỀM NÀO thì có được không? .thanks so much

 

[Kiều Mạnh]

cái này sài ntn vậy bạn ới. mình tải về thấy có file tên <MSWINSCK.oct> là gì vậy?? mình không muốn cài BẤT CỨ PHẦN MỀM NÀO thì có được không? .Cảm ơn so much

NÓI CHUNG là nó dài dòng lắm ... cũng không khó lắm nếu thật sự đam mê là mò ra đại ý như sau

Google Search

Chịu khó đi nha ... nếu kẹt quá hỏi Anh bài #28 là xong vì Anh đó có trình độ sư phạm khá có trình bày cho bạn hiểu được ??!!
Con Mình xin lui he

 

[tellmeww]

Xin các bác chỉ giáo
Em dùng win 10, 2 máy tính trong mạng Lan đều dùng win 10.
Xin hỏi cách gửi tin nhắn dạng popup (thông điệp) giữa 2 máy tính không dùng phần mềm thì làm thế nào ạ?
Có cách nào gửi qua cmd không ạ?
xin cảm ơn ạ

bác tìm được cách nào chưa? Share em tham khảo với. Many thanks.

 

[caniquy]

bác tìm được cách nào chưa? Share em tham khảo với. Many Cảm ơn.

mình nghỉ trong diển đàn chưa có ae nào làm được đâu . để mình đi hỏi tiếp khi nào có mình trả lời lên để ae cùng biết ))

 

[ongke0711]

mình nghỉ trong diển đàn chưa có ae nào làm được đâu . để mình đi hỏi tiếp khi nào có mình trả lời lên để ae cùng biết ))

Bạn có tìm cái VBScrip tôi nói ở trên và thử chưa?

 

[ThangCuAnh]

Cuối cùng nó chỉ đi về 1 hàm API NetSendxxx thôi, chịu khó google chút là ra, dùng cho VBA cũng được.

 

[Kiều Mạnh]

Thử tìm tài liệu khai thác cái API này xem sao: NETAPI32.DLL
nếu nhanh gọn vào đây xem sao ... Delphi đấy

3delite's Object Pascal Developer Resources - Download components

 

[ongke0711]

Thử tìm tài liệu khai thác cái API này xem sao: NETAPI32.DLL
nếu nhanh gọn vào đây xem sao ... Delphi đấy

3delite's Object Pascal Developer Resources - Download components

Người ta không cần ứng dụng bên thứ 3 mà bác cứ đưa code kiết vô chi.
Dùng công cụ có sẳn trong Windows thì cứ Net Send hoặc Msg (Windows 7 trở lên) nhưng phải vô Registry kích hoạt: Terminal Server - "AllowRemoteRDC=1" rồi mới xài msg được.
Vd: Vào "Run" gõ lênh như bên dưới với địa chỉ IP của máy con
MSG * /SERVER:192.168.1.xxx "Xin chào"