منتدى فور جامعة 4jam3a - طلاب كلية اقتصاد طرطوس

هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

المنتدى الطلابي الأول في طرطوس .. والحاضر يعلم الغايب


    برنامج يظهر رقم ايبي جهازك(بالصور)

    MR HACKER
    MR HACKER
    جامعي ذهبي
    جامعي ذهبي

    ذكر
    عدد المساهمات : 2364
    العمر : 34
    المكان : Syrian Arab Rebablic
    المزاج : معصب و مكهرب دوما
    الدراسة : اقتصاد
    السنة الدراسية : 4
    المستوى : 56
    نقاط : 4906
    تاريخ التسجيل : 21/05/2009

    برنامج يظهر رقم ايبي جهازك(بالصور) Empty برنامج يظهر رقم ايبي جهازك(بالصور)

    مُساهمة من طرف MR HACKER الأحد أغسطس 09, 2009 6:12 pm

    يقوم هذا الدرس على تعليم المبرمج استخدام اداة winsock وهي الاداة المسؤولة عن الاتصال بالفيجوال بيسيك. وهي عصب برمجة الأنترنت والهكرز.

    البرنامج : يظهر لك رقم ايبي جهازك

    صورة البرنامج بعد الإنتهاء
    برنامج يظهر رقم ايبي جهازك(بالصور) Wfwzba1pnhavldt77bo
    شرح الدرس :

    قم بفتح الفيجوال بيسيك واختر standerd exe

    ثم فم بتصغير النموذج على حجم البرنامج

    قم بتغيير الخاصية Caption للنموذج form1 الى

    "إظهار رقم الايبي" ( يفترض بك ان تعلم طريقة تغييرها)

    ثم اضف الكائنات الآتية

    برنامج يظهر رقم ايبي جهازك(بالصور) I0fy7j17o4gb7o78wo98

    قم بتغيير الخاصية caption للكائن command1 الى "اظهر رقم الآيبي"
    وتغيير الخاصية text للكائن Text1 الى فراغ ( فقط قم بمسح النص الموجود داخل الخاصية)

    وتغيير الخاصية Aligment للكائن Text1 الى 2-center
    (لكي يظهر رقم الايبي في الوسط)

    ويمكنك تغيير خلفية البرنامج وذلك بتغيير الخاصية backcolor للنموذج form1


    انتهت البرمجة المرئية
    .......................



    البرمجة النصية


    طبعا جميع ما قمنا به ليس جديد عليك والان سنبدأ بالأمور الجديدة

    ستحتاج الآن الى اداة التحكم winsock المسؤولة عن الإتصالات في فيجوال بيسيك واليك طريقة اضافتها

    1- اذهب الى مربع الأدوات الأيمن اضغط بزر الفأرة اليمين واختر Components

    برنامج يظهر رقم ايبي جهازك(بالصور) Aoiguqs1hgaryygn8t

    لتظهر لك نافذة جديدة ابحث عن الأداة Microsoft Winsock Control 6.0

    قوم باختيارها بوضع علامة بجانبها ثم اختر OK
    برنامج يظهر رقم ايبي جهازك(بالصور) 0e54wjwnrkxbcjc1do

    الآن سترى الأداة اضيفت في اسفل شريط الأدوات الأيسر . قم بوضعها على النموذج كما بالصورة

    برنامج يظهر رقم ايبي جهازك(بالصور) Ymhqzhr8szeprv90irj

    لا يهم اين تضع الأداة في النموذج. فهي لن تكون مرئية عند تشغيل البرنامج اذا يمكنك وضعها في اي مكان.


    الان قم بالضغط على الكائن command 1 المعنون بــ "اظهر رقم الايبي" ضغطتين لفتح شاشة الأكواد

    كود واحد فقط يكون كافي للبرنامج

    قم بكتابة الكود التالي

    كود:

    text1.text=winsock1.localIP


    شرح الكود:

    في البداية طلبنا عند الضغط على الزر ان يقوم بتغيير الخاصية text لمربع النص text1 ( بواسطة الإجراء click المكتوب مسبقا عن فتح شاشة الأكواد)

    وكما تعرف كما لمربعات النص والازرار خصائص فإن للوينسوك خصائص ايضا . ومن خصائصه الخاصية localIP

    وهي عبارة عن رقم ايبي جهازك

    اذا طلبنا كتابة localIP في الخاصية text لــ text1 فيظهر لك رقم الآيبي عند الضغط

    فيكون الكود انهائي

    كود:

    Private Sub Command1_Click()
    Text1.Text = Winsock1.LocalIP
    End Sub


    الان قم بتجربة البرنامج . بقي لك تحويله الى برنامج تنفيذي كبقية البرامج من خلال

    file ثم Make Project1 اختر اسم البرنامج ومكان حفظه قم اختر save

    سيظهر لك البرنامج بالمكان الذي حفظته به

    انتهى الدرس
    DR.NET
    DR.NET
    جامعي برونزي
    جامعي برونزي

    ذكر
    عدد المساهمات : 192
    العمر : 34
    المكان : EVREY WHERE
    الدراسة : اقتصاد
    السنة الدراسية : 2
    المستوى : 1
    نقاط : 429
    تاريخ التسجيل : 16/06/2009

    برنامج يظهر رقم ايبي جهازك(بالصور) Empty رد: برنامج يظهر رقم ايبي جهازك(بالصور)

    مُساهمة من طرف DR.NET الخميس أغسطس 27, 2009 6:37 pm

    شكرا لك
    معلومات مفيدة

      الوقت/التاريخ الآن هو الأحد يونيو 20, 2021 10:36 pm