Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Gửi Tin Nhắn bằng Access
#1
Nhu tiêu đề thì đa có anh chị nào đã làm cái này chưa ạ?
Em muốn tạo 1 chương trình gửi tin nhắn nội bộ giữa 2 máy tính trong 1 công ty sửa dụng mạng Lan thì làm thế nào. anh chi nào có kinh nghiệm chỉ giúp em với
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
- Nếu dùng VBA Access thì bạn tham khảo bài này: tuỳ chỉnh thêm vài điểm là dùng đc. Tạo thêm field lưu nội dung thông báo trên BE rồi đưa vô popup message thôi.
Link: http://thuthuataccess.com/forum/thread-9483.html

- Nếu đơn giản hơn thì dùng lênh Shell của Windows làm luôn:

Mã PHP:
Sub sendSMS()
   Dim oWshShell  As Object
   Dim strUserName 
As String
   Dim strMsg 
As String

   Set oWshShell 
CreateObject("WScript.Shell")
   strUserName "ongke0711"
   strMsg "Hello"

   oWshShell.Run "Msg " strUserName " " strMsg0True

   Set oWshShell 
Nothing
   
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thegioi2018
#3
(26-07-18, 12:32 PM)ongke0711 Đã viết: - Nếu dùng VBA Access thì bạn tham khảo bài này: tuỳ chỉnh thêm vài điểm là dùng đc. Tạo thêm field lưu nội dung thông báo trên BE rồi đưa vô popup message thôi.
Link: http://thuthuataccess.com/forum/thread-9483.html

- Nếu đơn giản hơn thì dùng lênh Shell của Windows làm luôn:

Mã PHP:
Sub sendSMS()
   Dim oWshShell  As Object
   Dim strUserName 
As String
   Dim strMsg 
As String

   Set oWshShell 
CreateObject("WScript.Shell")
   strUserName "ongke0711"
   strMsg "Hello"

   oWshShell.Run "Msg " strUserName " " strMsg0True

   Set oWshShell 
Nothing
   
End Sub 

anh có thể nói rõ hơn được không, em vẫn đang mông lung ở cái cách đơn giản mà anh chia sẻ
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thegioi2018
#4
Ngay trong Windows, cửa sổ dòng lênh cũng có thể dùng Command Prompt để chạy Windows Command  gửi messaage tới các máy trong mạng LAN. Bạn chỉ cần mở cmd.exe để chạy các dòng lệnh. Vô Windows Start -> Run -> gõ CMD -> Enter.
Trước đây để gửi tin nhắn giữa các máy thì dùng lệnh: Net Send, từ Win Vista trở lên thì dùng lệnh: Msg
Như hình dứoi đây, tôi dùng lênh "Msg" để gửi tới Username của máy là: "quocbao" dòng text "Hello ongke0711".

[Hình: 42748843995_21a82847f9_o.png]

Theo cách này thay vì mở cửa sổ Command Promt để gõ thì gọi Windows Shell Script để thực thi giùm mình.

Mỗi lệnh trong DOS có các tham số riêng của nó, bạn tự tìm hiểu thêm nhé.

[Hình: 42935374754_562f8fc84a_o.png]

Bạn copy dòng cái Sub sendSMS trên vào module rồi chạy test thử, kết quả như gõ trực tiếp lệnh trong cửa sổ Command Prompt. 
Trong cái thủ tục trên có dòng code: 
oWshShell.Run "Msg " strUserName " " strMsg0True  ==> tham số 0 là để ẩn cửa số Command Prompt đi, chạy ngầm. 

[Hình: 42749094295_1af90f7363_o.png]
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thegioi2018
#5
(26-07-18, 10:01 PM)ongke0711 Đã viết: Ngay trong Windows, cửa sổ dòng lênh cũng có thể dùng DOS command  để gửi messaage tới các máy trong mạng LAN. Bạn chỉ cần mở cmd.exe để chạy các dòng lệnh DOS. Vô Windows Start -> Run -> gõ CMD -> Enter.
Trước đây để gửi tin nhắn giữa các máy thì dùng lệnh: Net Send, từ Win Vista trở lên thì dùng lệnh: Msg
Như hình dứoi đây, tôi dùng lênh "Msg" để gửi tới Username của máy là: "quocbao" dòng text "Hello ongke0711".

[Hình: 42748843995_21a82847f9_o.png]

Theo cách này thay vì mở cửa sổ Command Promt để gõ thì gọi Windows Shell Script để thực thi giùm mình.

Mỗi lệnh trong DOS có các tham số riêng của nó, bạn tự tìm hiểu thêm nhé.

[Hình: 42935374754_562f8fc84a_o.png]

Bạn copy dòng cái Sub sendSMS trên vào module rồi chạy test thử, kết quả như gõ trực tiếp lệnh trong cửa sổ Command Prompt. 
Trong cái thủ tục trên có dòng code: 
oWshShell.Run "Msg " strUserName " " strMsg0True  ==> tham số 0 là để ẩn cửa số Command Prompt đi, chạy ngầm. 

[Hình: 42749094295_1af90f7363_o.png]

Em hỏi ngu  phát nữa, cách dùng cái Shell kia của anh thì ko điền địa chỉ IP người nhận thì sao họ nhận đc tin vậy anh nhỉ.
Ví dụ như gửi sms thì mình cần fai biết số điện thoại của họ thì mình mới gửi dc chứ nhỉ
Chữ ký của Cường Servenet SE Cường Servenet SE,gia nhập Thủ Thuật Access từ 25-06 -18.
Reply
Những người đã cảm ơn
#6
(26-07-18, 11:28 PM)Cường Servenet SE Đã viết: Em hỏi ngu  phát nữa, cách dùng cái Shell kia của anh thì ko điền địa chỉ IP người nhận thì sao họ nhận đc tin vậy anh nhỉ.
Ví dụ như gửi sms thì mình cần fai biết số điện thoại của họ thì mình mới gửi dc chứ nhỉ

Tôi có nói bạn ngâm cứu thêm mấy tham số của lệnh MSG đó.

[Hình: 29785256468_b47e78a8b2_o.png]
 
Trong ví dụ của tôi là dùng tham số Username để gửi. Mỗi nhân viên bạn cấp 1 Username để đăng nhập máy tính trong cty thì bạn chọn Username nào bạn muốn gửi. Nếu muốn gửi tới máy tính thì dùng địa chỉ IP. Thường thì máy tính trong Cty cũng là IP động vậy làm sao bạn biết máy đích bạn muốn gửi là IP bao nhiêu? Do vậy tôi mới dùng demo bằng Username.
Câu lệnh gửi tới IP máy tính:
    msg */Server:192.168.1.55 "Hello world"
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cuong Servenet
#7
(27-07-18, 12:42 AM)ongke0711 Đã viết:
(26-07-18, 11:28 PM)Cường Servenet SE Đã viết: Em hỏi ngu  phát nữa, cách dùng cái Shell kia của anh thì ko điền địa chỉ IP người nhận thì sao họ nhận đc tin vậy anh nhỉ.
Ví dụ như gửi sms thì mình cần fai biết số điện thoại của họ thì mình mới gửi dc chứ nhỉ

Tôi có nói bạn ngâm cứu thêm mấy tham số của lệnh MSG đó.

[Hình: 29785256468_b47e78a8b2_o.png]
 
Trong ví dụ của tôi là dùng tham số Username để gửi. Mỗi nhân viên bạn cấp 1 Username để đăng nhập máy tính trong cty thì bạn chọn Username nào bạn muốn gửi. Nếu muốn gửi tới máy tính thì dùng địa chỉ IP. Thường thì máy tính trong Cty cũng là IP động vậy làm sao bạn biết máy đích bạn muốn gửi là IP bao nhiêu? Do vậy tôi mới dùng demo bằng Username.
Câu lệnh gửi tới IP máy tính:
    msg */Server:192.168.1.55 "Hello world"

em thử tren access 2016 thì nó bị lỗi "Run iwshshell3 2147024894" 

Cảm ơn a đã nhiệt tình giúp đỡ, em sẽ nghiên cứu thêm ạ
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
Bạn xem lại cú pháp, dấu ngoặc kép...
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cuong Servenet
#9
(27-07-18, 10:15 AM)ongke0711 Đã viết: Bạn xem lại cú pháp, dấu ngoặc kép...

bị lỗi đúng đoạn quan trọng nhất 
[Code]    oWshShell.Run "Msg " & strUserName & " " & strMsg, 0, True [Code]

em coppy như cái anh hướng dẫn bên phía trên test thử mà rính lỗi, em tìm hiểu trên mạng thì thấy bảo  win 32 win 64 gi gì đó ko biết phải không?
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
Đối với Win 64bit, bạn đổi khai báo đường dẫn tới msg.exe như sau:

oWshShell.Run "C:\Windows\SysWOW64\msg.exe " & strUserName & " " & strMsg, 0, True 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cuong Servenet , thegioi2018


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Không chọn được nhiều Nhân viên từ subform huuduy.duy 10 494 29-09-18, 08:11 PM
Bài mới nhất: ongke0711
  [Help] Làm sao để tạo form import dữ liệu từ exel sang table access? hoanglong 2 205 14-09-18, 10:20 AM
Bài mới nhất: duynamvnn1208
Smile [Hỏi] Quét Mã Vạch Bằng Access SQL Cuong Servenet 12 993 29-08-18, 11:09 PM
Bài mới nhất: maidinhdan
  [Help] Khoá phím shift + khóa Design View trong access Cuong Servenet 1 188 22-08-18, 02:18 PM
Bài mới nhất: tranthanhan1962
  TẠO SƠ ĐỒ TỔ CHỨC BẰNG ACCESS ledangvan 8 587 16-08-18, 10:51 AM
Bài mới nhất: tqdoanhlan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line