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

---

Account name của Windows có thể tạo có dấu "\"?

(27-07-18, 01:11 PM)ongke0711 Đã viết: Account name của Windows có thể tạo có dấu ""?

dau nhu nay ak. [img]C:\Users\ws35\Desktop\SL13_University\2.移行先のACCDB\send_messenger[/img]

Bạn vô Control Panel -> System and Security -> Administrative Tools -> Computer Management -> Local Users and Group để xem tên User nhé.

(27-07-18, 08:39 PM)ongke0711 Đã viết: Bạn vô Control Panel -> System and Security -> Administrative Tools -> Computer Management -> Local Users and Group để xem tên User nhé.

cai user em biet ma, em dang ko biet up ảnh lên trang diễn đàn này kiểu gì