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