لأرسال رسالة الى جهاز معين بالشبكة من خلال عنوان الجهاز

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default لأرسال رسالة الى جهاز معين بالشبكة من خلال عنوان الجهاز

مُساهمة من طرف iemad في الإثنين أكتوبر 23, 2006 11:16 pm

لأرسال رسالة الى أي جهاز على الشبكة أتبع التالي
كود API

API Declarations

الكود:

Option Explicit

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" _
(ByVal servername As String, _
ByVal msgname As String, _
ByVal fromname As String, _
ByVal Buffer As String, _
ByVal BufSize As Long) As Long

Private Const NERR_SUCCESS As Long = 0
Private Const NERR_BASE As Long = 2100
Private Const NERR_NetworkError As Long = (NERR_BASE + 36)
Private Const NERR_NameNotFound As Long = (NERR_BASE + 173)
Private Const NERR_UseNotFound As Long = (NERR_BASE + 150)
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_BAD_NETPATH As Long = 53
Private Const ERROR_NOT_SUPPORTED As Long = 50
Private Const ERROR_INVALID_PARAMETER As Long = 87
Private Const ERROR_INVALID_NAME As Long = 123


الكود التالي ضعه في Modul

Module




الكود:
Public Function NetSendMessage(ByVal sSendTo As String, ByVal sMessage As String) As Long
    Dim ret As Long
   
    'convert ANSI strings to UNICODE
    sSendTo = StrConv(sSendTo, vbUnicode)
    sMessage = StrConv(sMessage, vbUnicode)
    'Send a network message to a remote computer
    NetSendMessage = NetMessageBufferSend(vbNullString, sSendTo, vbNullString, _
        sMessage, Len(sMessage))
End Function

'returns the description of the Netapi Error Code
Public Function NetSendErrorMessage(ErrNum As Long) As String
    Select Case ErrNum
        Case NERR_SUCCESS
            NetSendErrorMessage = "The message was successfully sent"
        Case NERR_NameNotFound
            NetSendErrorMessage = "Send To not found"
        Case NERR_NetworkError
            NetSendErrorMessage = "General network error occurred"
        Case NERR_UseNotFound
            NetSendErrorMessage = "Network connection not found"
        Case ERROR_ACCESS_DENIED
            NetSendErrorMessage = "Access to computer denied"
        Case ERROR_BAD_NETPATH
            NetSendErrorMessage = "Sent From server name not found."
        Case ERROR_INVALID_PARAMETER
            NetSendErrorMessage = "Invalid parameter(s) specified."
        Case ERROR_NOT_SUPPORTED
            NetSendErrorMessage = "Network request not supported."
        Case ERROR_INVALID_NAME
            NetSendErrorMessage = "Illegal character or malformed name."
        Case Else
            NetSendErrorMessage = "Unknown error executing command."
  End Select
End Function


ولأستعمال الأكواد السابقة فقط أستعمل الجملة التالية

Usage


الكود:
Private Sub Command2_Click()
    Dim ret As Long
أرسل الرسالة الى المستخدم "undrea" أستبدل هذا الأسم بأسم المستخدم أو الجهاز الذي تريد أرسال الرسالة أليه
    ret = NetSendMessage("andrea", "this is a message from a VB application")
    If ret <> 0 Then
        MsgBox NetSendErrorMessage(ret), vbCritical, "Error"
    Else
        MsgBox NetSendErrorMessage(ret), vbInformation, "NetSend"
    End If
End Sub



عدل سابقا من قبل في السبت نوفمبر 18, 2006 7:44 pm عدل 2 مرات

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لأرسال رسالة الى جهاز معين بالشبكة من خلال عنوان الجهاز

مُساهمة من طرف Admin في الإثنين أكتوبر 23, 2006 11:20 pm

بارك الله فيك اخ عماد

ننتظر ما هو جديد bom


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:45 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لأرسال رسالة الى جهاز معين بالشبكة من خلال عنوان الجهاز

مُساهمة من طرف Question في الإثنين أكتوبر 23, 2006 11:25 pm

شكراُ اخي
على هذه الإبداعات
ننتظر إبداعات أخرى

Question
عضو جديد
عضو جديد

عدد الرسائل : 2
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الخميس نوفمبر 09, 2006 5:10 pm

شكرا لك............................لا عدمناك

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لأرسال رسالة الى جهاز معين بالشبكة من خلال عنوان الجهاز

مُساهمة من طرف iemad في الإثنين نوفمبر 13, 2006 7:08 pm

لا شكر على واجب أخي العـطوي.......
نريدك أن تكون العضو المتميز دائما بزيارتك لنا Very Happy

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الثلاثاء نوفمبر 14, 2006 12:41 pm

أشكرك على هذا الإطراء أخوي iemad

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى