Wawan

Net Send Message

| Poer | visual basic

Sering menggunakan perintah command line ‘NET SEND’ untuk chating dg teman di kantor? :mrgreen: Daripada capek nulis dari Run menu, kita bisa bikin sebuah file excel sederhana yg berisi list nama komputer tujuan atau bahkan kita jg bisa membuat sebuah aplikasi vb sederhana untuk melakukannya.

Fungsi yg kita butuhkan untuk mengirimkan pesan singkat seperti layaknya perintah ‘NET SEND’ adalah seperti berikut ini:

Option Explicit
 
Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
 
Private Const NERR_Success As Long = 0&
 
Public Function BroadcastMessage(sToUser As String, _
   sFromUser As String, sMessage As String) As Boolean
 
   Dim yToName() As Byte
   Dim yFromName() As Byte
   Dim yMsg() As Byte
   Dim l As Long
 
   yToName = sToUser & vbNullChar
   yFromName = sFromUser & vbNullChar
   yMsg = sMessage & vbNullChar
 
   If NetMessageBufferSend(ByVal 0&, yToName(0), ByVal 0&, _
        yMsg(0), UBound(yMsg)) = NERR_Success Then
 
     BroadcastMessage = True
 
   End If
 
End Function

Berikut ini contoh penggunaannya pada vb ataupun vba:

Call BroadcastMessage ("w-bpn-1185", "", _
   "testing broadcasting message")

Related Entries:

Random Entries:

Tinggalkan Komentar Anda