Các chiêu thức trong lập trình Gửi thông điệp tới một máy tinh bất kỳ

Gửi thông điệp tới một máy tinh bất kỳ Giới thiệu : Điều kiện bạn cấn biết số IP của máy tính đó và máy đó phải nối mạng với máy của bạn (LAN hay Internet cũng ổn) À cần nói thêm nữa là nếu như dùng các lệnh thông thường như “Shell Net Send” sẽ để lại “Dấu vết” (Địa chỉ IP hoặc tên máy của bạn), như vậy thông nhiều trường hợp có lẽ “Không hay” (Ví dụ như tui muốn “Wậy” các máy tính khác mà không muốn bị “Túm cổ” (o_-)) Xuất xứ : www.pscode.com Binh khí sử dụng : - Cần ba TextBox với các tên : txtTo , txtFrom , txtMessage - 1 Button tên là : cmdSend - 1Label tên là : lStatus Đoạn mã : Private Declare Function NetSend Lib "netapi32" Alias "NetMessageBufferSend" (ByVal cServerName As String, ByVal cMsgName As String, ByVal cFromName As String, ByVal cBuf As String, ByRef iBufLen As Integer) As Integer Private Sub cmdSend_Click() Dim sMessage Dim sMsgFrom As String Dim sMsgTo As String Dim Net_Api_Status As Long sMessage = StrConv(txtMessage & vbclrf, vbUnicode) sMsgTo = StrConv(txtTo, vbUnicode) sMsgFrom = StrConv(txtFrom, vbUnicode) NetSend "", sMsgTo, sMsgFrom, sMessage, Len(sMessage) lStatus.Caption = "Dang gui " End Sub ‘ Cần chú ý : Nếu bạn đang viết ứng dụng hoặc Test ở một máy không có kết nối mạng LAN hay Internet thì rất đơn giản địa chỉ của bạn là : 127.0.0.1 Vậy ngay bây giờ bạn có thể Test đọan Code i73 “Mọi lúc mọi nơi “ rùi đó Chú ý : Do thư viện một số máy tính cũng nhưcổng DNS của máy “Đích” có thể đóng nên “Chiêu thức” này không có Bảo hành . Gửi thông điệp tới một máy tinh bất kỳ Giới thiệu : Điều kiện bạn cấn biết số IP của máy tính đó và máy đó phải nối mạng với máy của bạn (LAN. lúc mọi nơi “ rùi đó Chú ý : Do thư viện một số máy tính cũng nhưcổng DNS của máy “Đích” có thể đóng nên Chiêu thức này không có Bảo hành