منتديات كركوك تايمز

منتديات كركوك تايمز
 
الرئيسيةس .و .جالتسجيلدخول
أفضل 10 أعضاء في هذا المنتدى
فيــرو - 3141
 
شميران كركوكي - 2120
 
Rasti - 1769
 
zoba - 1578
 
كــاردينيــا - 1350
 
دمعة حزن - 579
 
A.O.J - 538
 
Aramos - 497
 
ديدار - 410
 
دانيار كوردى - 404
 
المواضيع الأخيرة
» استضافة مجانية مع دومين .com مجاني مدى الحياة
الخميس 10 ديسمبر 2015, 4:36 pm من طرف hayderaltimimi

» ليلى والخمسين حرامي .. بقلمي
الإثنين 09 نوفمبر 2015, 7:19 pm من طرف حجي تمساح

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:56 pm من طرف فيــرو

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:52 pm من طرف فيــرو

» ثغرة XSS
الثلاثاء 27 أغسطس 2013, 5:20 pm من طرف فيــرو

» موقع يقدم اخر الثغرات
السبت 24 أغسطس 2013, 7:04 am من طرف فيــرو

» ثغرة جديدة
السبت 24 أغسطس 2013, 7:01 am من طرف فيــرو

» برنامج الهجوم على المواقع
السبت 24 أغسطس 2013, 4:57 am من طرف فيــرو

عداد الزوار

hit counter

شاطر | 
 

 كرات صغيرة تتبع الماوس

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
منار
أدارةأدارة
avatar
بيانات العضو
الجنس : انثى
عدد المساهمات : 252
نقاط : 38308
تاريخ التسجيل : 20/09/2009
العمر : 29

مُساهمةموضوع: كرات صغيرة تتبع الماوس   الجمعة 02 أكتوبر 2009, 1:01 am

ضع هذا الكود على الفورم



الكود:



Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Timer2.Interval = 100
Timer2.Enabled = True
Form1.Hide
End Sub
Sub Timer1_Timer()
Dim Position As POINTAPI
GetCursorPos Position

Ellipse GetWindowDC(0), Position.x - 7, Position.y - 7, Position.x + 5, Position.y + 5
End Sub
توقيــع العضو منار
الرجوع الى أعلى الصفحة اذهب الى الأسفل
دنيــــا
مشـــرفة المنتديـــات الفنيـــــةمشـــرفة المنتديـــات الفنيـــــة
بيانات العضو
عدد المساهمات : 119
نقاط : 15054
تاريخ التسجيل : 01/10/2009

مُساهمةموضوع: رد: كرات صغيرة تتبع الماوس   الجمعة 02 أكتوبر 2009, 3:46 am

مبدعة منار الله لا يحرمنا منج
توقيــع العضو دنيــــا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
فيــرو
مؤســـس منتديـــات كركوك تايمزمؤســـس منتديـــات كركوك تايمز
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 3141
نقاط : 42918
تاريخ التسجيل : 20/09/2009
العمر : 28

مُساهمةموضوع: رد: كرات صغيرة تتبع الماوس   الخميس 29 أكتوبر 2009, 2:36 am

تسلم ايدج منار
توقيــع العضو فيــرو


يرحل من يرحل . . لن تهدم الدنيا .. ولن تغلق ابواب السماء
فأنا لا ألتفت ابدا للوراء... فالحب والصداقه لا يأتوا بالتوسل والرجاء
وغرور من امامي زادني كبرياء
....فإن كان وجودهم شيئا فإن كرامتي أشيااااء

الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://xp10.ahlamontada.com
 

كرات صغيرة تتبع الماوس

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات كركوك تايمز :: منتديات الكومبيوتر و الانترنيت :: منتدى لغات البرمجة-
a
انتقل الى: