الرئيسية
يقوم هذا الدرس على تعليم المبرمج استخدام اداة winsock وهي الاداة المسؤولة عن الاتصال بالفيجوال بيسيك. وهي عصب برمجة الأنترنت والهكرز.
البرنامج : يظهر لك رقم ايبي جهازك
صورة البرنامج بعد الإنتهاء
شرح الدرس :
قم بفتح الفيجوال بيسيك واختر standerd exe
ثم فم بتصغير النموذج على حجم البرنامج
قم بتغيير الخاصية Caption للنموذج form1 الى
"إظهار رقم الايبي" ( يفترض بك ان تعلم طريقة تغييرها)
ثم اضف الكائنات الآتية
قم بتغيير الخاصية caption للكائن command1 الى "اظهر رقم الآيبي"
وتغيير الخاصية text للكائن Text1 الى فراغ ( فقط قم بمسح النص الموجود داخل الخاصية)
وتغيير الخاصية Aligment للكائن Text1 الى 2-center
(لكي يظهر رقم الايبي في الوسط)
ويمكنك تغيير خلفية البرنامج وذلك بتغيير الخاصية backcolor للنموذج form1
انتهت البرمجة المرئية
.......................
البرمجة النصية
طبعا جميع ما قمنا به ليس جديد عليك والان سنبدأ بالأمور الجديدة
ستحتاج الآن الى اداة التحكم winsock المسؤولة عن الإتصالات في فيجوال بيسيك واليك طريقة اضافتها
1- اذهب الى مربع الأدوات الأيمن اضغط بزر الفأرة اليمين واختر Components
لتظهر لك نافذة جديدة ابحث عن الأداة Microsoft Winsock Control 6.0
قوم باختيارها بوضع علامة بجانبها ثم اختر OK
الآن سترى الأداة اضيفت في اسفل شريط الأدوات الأيسر . قم بوضعها على النموذج كما بالصورة
لا يهم اين تضع الأداة في النموذج. فهي لن تكون مرئية عند تشغيل البرنامج اذا يمكنك وضعها في اي مكان.
الان قم بالضغط على الكائن 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
سيظهر لك البرنامج بالمكان الذي حفظته به
انتهى الدرس
البرنامج : يظهر لك رقم ايبي جهازك
صورة البرنامج بعد الإنتهاء
شرح الدرس :
قم بفتح الفيجوال بيسيك واختر standerd exe
ثم فم بتصغير النموذج على حجم البرنامج
قم بتغيير الخاصية Caption للنموذج form1 الى
"إظهار رقم الايبي" ( يفترض بك ان تعلم طريقة تغييرها)
ثم اضف الكائنات الآتية
قم بتغيير الخاصية caption للكائن command1 الى "اظهر رقم الآيبي"
وتغيير الخاصية text للكائن Text1 الى فراغ ( فقط قم بمسح النص الموجود داخل الخاصية)
وتغيير الخاصية Aligment للكائن Text1 الى 2-center
(لكي يظهر رقم الايبي في الوسط)
ويمكنك تغيير خلفية البرنامج وذلك بتغيير الخاصية backcolor للنموذج form1
انتهت البرمجة المرئية
.......................
البرمجة النصية
طبعا جميع ما قمنا به ليس جديد عليك والان سنبدأ بالأمور الجديدة
ستحتاج الآن الى اداة التحكم winsock المسؤولة عن الإتصالات في فيجوال بيسيك واليك طريقة اضافتها
1- اذهب الى مربع الأدوات الأيمن اضغط بزر الفأرة اليمين واختر Components
لتظهر لك نافذة جديدة ابحث عن الأداة Microsoft Winsock Control 6.0
قوم باختيارها بوضع علامة بجانبها ثم اختر OK
الآن سترى الأداة اضيفت في اسفل شريط الأدوات الأيسر . قم بوضعها على النموذج كما بالصورة
لا يهم اين تضع الأداة في النموذج. فهي لن تكون مرئية عند تشغيل البرنامج اذا يمكنك وضعها في اي مكان.
الان قم بالضغط على الكائن 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
سيظهر لك البرنامج بالمكان الذي حفظته به
انتهى الدرس
