Tùy chọn
Gửi Tin Nhắn bằng Access
- Gửi Tin Nhắn bằng Access
-
RE: Gửi Tin Nhắn bằng Access
Cuong Servenet > 27-07-18, 01:01 PM
(27-07-18, 11:36 AM)ongke0711 Đã viết: Đố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
em đã thử cách này của anh
Public Sub sendSMS()
Dim oWshShell As Object
Dim strUserName As String
Dim strMsg As String
Set oWshShell = CreateObject("WScript.Shell")
strUserName = "svn\ogakis" <------- tên máy thằng bạn em
strMsg = "Hello"
oWshShell.Run "%SystemRoot%\Sysnative\msg.exe " & strUserName & " " & strMsg, 0, True
Set oWshShell = Nothing
End Sub
username cua em = ws35
username của bạn e = svn\ogakis
Em thử bằng tên máy userName của em thì đc nhưng đến khi thay bằng tên máy thăng bạn lại ko dc.
-
RE: Gửi Tin Nhắn bằng Access
ongke0711 > 27-07-18, 01:11 PM
Account name của Windows có thể tạo có dấu "\"? -
RE: Gửi Tin Nhắn bằng Access
ongke0711 > 27-07-18, 08:39 PM
Bạn vô Control Panel -> System and Security -> Administrative Tools -> Computer Management -> Local Users and Group để xem tên User nhé.
![[Hình: 42954466464_d6f5573e72_o.png]](https://farm1.staticflickr.com/848/42954466464_d6f5573e72_o.png)
-
RE: Gửi Tin Nhắn bằng Access
Cường Servenet SE > 27-07-18, 11:50 PM