برنامج للشبكة الداخلية

اين الردود يا اخوان فانا ارى الجميع يدخل ويحمل ويظل طالع

هل البرنامج سيئ؟

ما شاء الله عليك ...

وأنا ايضا عمري 16 سنة !!

تحياتي

السلام عليكم

البرنامج قيد التنزيل وسأجربه وأضع رأيي فيه

ولكن فكرة البرنامج جيدة جداً

وفقك الله :lol:

شكراً لك أخي الكريم

وأهلاً بك بيننا ..

ووفقك الله

ممتاز و الى الأمام ان شاء الله

لكن هذا اولا و قبل كل شئ منتدى تعليمي لذا فأنا أرى أنه من الواجب عليك أن تضع الكود سورس حتى يتعلم الأخرون و حتى تجد من يساعدك اذا احتجت للمساعدة

ممتاز لكن كما قال اخي المفروض ان لا تحتكر الكود لاننا هنا نتعلم

اوكي اخي

شكرا لكم اخواني على المرور وعلى اعطاء ملاحظاتكم.

اما بالنسبة لوضع السورس كود في المنتدى فانا لا استطيع وذلك لسببين :

1.يقوم البعض بوضع البرنامج باسمه ويضيع تعبي انا(وانا اقول البعض وليس الكل).

2. السورس كود لا يفيد شيئا حيث انا ما ياتي بسهولة يذهب بسهولة.

ولكن

انا على استعداد ان اجاوب اي سؤال بخصوص هذا البرنامج حتى تعم الفائدة(يعني اسال شو ما بدك وانا بجاوب ان شاء الله).

وبالمناسبة هذا البرنامج محمي اي لا يمكن لا احد ان يغير اسم البرنامج ويضعه باسمه ببعض البرامج مثل الresource hacker

او الwinhex

وهذا الكود من برمجتي

السلام

هل حاول احد تغيير اسم البرنامج

abu sabreen كتب:

هل حاول احد تغيير اسم البرنامج

←

هل هذا تحدي لعدم القدرة على فك حماية البرنامج أم ماذا ;)

أخي، يوجد الكثير هنا ممن يستطيع أن يفك حماية البرنامج، فأنصحك أن لا تتحدى أحد :lol:

شوف حبيبي

يظهر انو عندك شي من التكبر والدليل مكتوب بخط يدك

علشان كدة أنا بقللك انو اذا بدك بجبلك الsource code وبكل سهولة

بنصحك تغير لهجتك...

تمام جدا جذاك الله خيرا

الى الأخ ashrafweb

ان لهجتي لا تدل على التكبر وانما هو نوع من التحدي "فما اوتينا من العلم الا القليل "

واني اقصد التحدي وذلك للاسباب التالية :

1.التعمق في حماية البرنامج في النسخ القادمة.

2. معرفة اسباب ضعف حماية البرنامج.

3. خلق نوع من التحدي والحب للغة للبرمجة.

4.تنمية عقول الشباب الوطن العربي .

وعلى العكس اخواني انا اتمنى ان يخترق احد برنامجي ويقول لي ما سبب ضعف حمايته

كما واتمنى ان تعطوني مزيد من الإقتراحات للإصدار الأحدث باذن الله

اما بانسبة لموضوع جلب السورس كود فانا سمعت ان بعض البرامج تقوم بذلك فاذا استطعت اخي ashrefprof ان تجلب السورس كود فارجو ان تبعثه على ايميلي

مع اسم البرنامج المستخدم.

والسلام

الاخ الفاضل صاحب الموضوع

لو كنت لا تود ان تضع كود برنامجك وهذا من حقك فأعتقد ان أنسب قسم لذلك هو قسم الاعلانات

شكرا لك

اخواني .........

انا لم اضع برنامجي للاعلان فقط وانما هو للتعلم ايضا

فانا كما قلت اسال شو ما بدك بخصوص هذا البرنامج وانا سوف اجاوبك ان شاء الله (مع انه البرنامج فكرته بسيطة جدا ولا تحتاج الى اكواد طويلة)

والسلام .....انني انتظر الأسئلة باذن الله

ما هذا الكتم الرهيب الذي يستعمله الكثير من الاعضاء عند اكتشاف كود صغير قد يفيد البعض و قد لا يفيد .

اتمني ان تزول هذه الظاهرة في القريب العاجل ، حتي تعم الفائدة بشكل كبير .

علي العموم هذه هي الدالة ، التي تقوم بارسال رسالة الي اي جهاز علي الشبكة .

هذه المشاركة الاولي لي بعد انقطاع دام شهرا تقريبا

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 SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean

   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar
   SendMessage = False
   
   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If

End Function

قم بوضع الكود السابق في Module أو Class واستدعي الدالة Semd Message واعطها البيانات المطلوبة

تحياتي للجمبع

السلام عليكم

لا اعتقد انه استخدم api يا بروف82..

اعتقد انه استخدم برنامج net send ..

بارك الله فيك يا ابوصابرين و عقبال ما نشوف لك برامج ضخمة (بس open source ;))

هلا بيك اخي Undo منور والله :lol:

لقد جربت برنامجه وعلمت انه يستخدم الامر Net عن طريق تشغيلة من داخل برنامجه ، :s فمن عيوب طريقته انه لا يستطيع معرفه حالة الرسالة بانها وصلت او لا .

ولكن عن طريق الدالة التي ارفقتها يستطيع معرفه ذلك ،، فاذا قامت الدالة بارجاع قيمة True يعني انها وصلت واذا False عني ما وصلت .

يله عيش يا ابوصابرين

تحياتي لكم ، ولك بالاخص Undooooooooooo

ما شاء الله عليكم اخواني undo & prof_1982

مع انني كنت اتمنى ان يعرف سر البرنامج الأعضاء وليس المشرفين

اخواني الكود بسيط جدا ولكنه بس بدو حكيت مخ والدوال المستخدمة فيه من اساسيات الفيجوال بيسك

واي استفسارات انا جاهز

وشكرا للمرور لجميع الأعضاء والمشرفين

اخى الصغير

حاول ان تكسب ود اصدقائك

حتى لا تكون وحيدا

ويجب ان تعرف انه لا يوجد من يعرف كل شئ

ففى يوم من الايام سوف تحتاج لمبرمج اكبر منك او حتى مهندس لصيانه الماوس

وساعتها سوف يتخلون عنك لانك لم تشاركهم افكارك

وساعتها لن يكونوا اصدقائك ولن تكون اخى الصغير

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: أبو صابرين :: وفقك الله

هذه الحماية تعتبر من أسهل أنواع الحماية . حيث أنك استخدمت فيها MessageBox

عزيزي أنا لا أقول لك هذا كي تحزن أو تغضب مني ولكني أريدك أن تتعلم

إذا أردت البرنامج بعد كسره فلا تتردد في طلب ذلك

والسلام عليكم ورحمة الله وبركاته

وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ..

أما بالنسبة لاستعادة الشيفرة المصدرية للمشروع فهذا الشيء شبه مستحيل

وقد تم النقاش حول هذا الموضوع في هذا المنتدى

هل تعني اخي المبرمج احمد انك غيرت اسم البرنامج ووضعته باسمك مثلا

ارجو ان تبعث البرنامج لي بعد كسره

ومن قال لك اخي انني سوف ازعل بالعكس هذا يحفز من معنوياتي

ولكن اخي انت تقول انك تستطيع كسره ولكن كيف يتم ذلك دون وجود السورس كود

والسلام

أريد أن أسألك سؤالاً : ما هي التوابع التي تستخدمها لإرسال الرسالة في برنامج.....

الى الأخ اسماعيل هذا هو الكود

dim x as string

("x = Environ$("windir

(Shell ( x & "\system32\net send " & Text1.Text & Chr(32) & Text2.Text

حيث ان المتغير x هو عبارة عن مسار الويندوس فهو يختلف من جهاز الى اخر

اما ال text1.text فهو عبارة عن اسم البرنامج

والtext2.text عبارة عن الرسالة التي تريد ارسالها

واي سؤال انا جاهز

والسلام