Gửi thông điệp tới một máy tỉnh bat ky 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
Trang 1Gửi thông điệp tới một máy tỉnh bat ky
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é dé lai “Dau 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 :
- Can ba TextBox voi cac tén : txtTo , txtFrom , txtMessage
- 1 Button tén la : cmdSend
- {Label tén la : IStatus
Đ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)
iStatus.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