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

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

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

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

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

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

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

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

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

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

عداد الزوار

hit counter

شاطر | 
 

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

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

كرات صغيرة تتبع الماوس Empty
مُساهمةموضوع: كرات صغيرة تتبع الماوس   كرات صغيرة تتبع الماوس Icon_minitimeالجمعة 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
توقيــع العضو منار
الرجوع الى أعلى الصفحة اذهب الى الأسفل
دنيــــا
مشـــرفة المنتديـــات الفنيـــــةمشـــرفة المنتديـــات الفنيـــــة
avatar
بيانات العضو
عدد المساهمات : 119
نقاط : 26669
تاريخ التسجيل : 01/10/2009

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

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

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

تسلم ايدج منار
توقيــع العضو فيــرو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://xp10.ahlamontada.com
 

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

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

 مواضيع مماثلة

+
صفحة 1 من اصل 1

(( مَا يَلْفِظُ مِنْ قَوْلٍ إِلَّا لَدَيْهِ رَقِيبٌ عَتِيدٌ))


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