يمكنك من التحكم بالماوس من الكيبورد

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 02, 2009, 09:12:25 صباحاً
السلام عليكم ورحمة الله تعالى  وبركاته
[/SIZE][/COLOR]
بسم الله والصلاة والسلام على  رسول الله وعلى اله وصحبة اجمعين

اما بعد  :
اليوم حضرت لكم برنامج
و البرنامج مبرمج بلغة --AutoIt --xx

 
 
البرنامج يمكنك من تحريك الفارة  ( الماوس ) من لوحة التحكم ( الكيبوورد )
 
 
كيفية استخدام البرنامج :
   للدهاب الى اعلى اضغط عل الرقم  8
    للدهاب الى اسفل اضغط عل الرقم  2
     للدهاب الى اليمين اضغط عل الرقم  6
     للدهاب الى اليسار اضغط عل الرقم  4
للضغط على الزر الايمن للماوس اضغط على  3
للضغط على الزر الايسر للماوس اضغط على  1
و كما تلاحضون يمكنك الاستغناء عن  الماوس مع هدا البرنامج لان فيه كل خاصيات الماوس  


و الان ساقوم بشرح الكود  سورس
في البداية هناك
#include      
Opt("TrayAutoPause",0)  
         
 
السطر الأول هو استدعاء  المكتبة Misc
وبها عدة اوامر ودالات .
 
والسطر الثاني Opt("TrayAutoPause",0)
هي وضع البرنامج في حالة تثبيت  
 و ادا لم تستعمل التتبيت سيشتغل البرنامج  للحضات تم سيتوقف .
 
 و في هده  الاسطر
HotKeySet("{NUMPAD1}", "m1")
HotKeySet("{NUMPAD3}",  "m3")
HotKeySet("{NUMPAD2}", "m2")
HotKeySet("{NUMPAD4}",  "m4")
HotKeySet("{NUMPAD6}", "m6")
HotKeySet("{NUMPAD8}", "m8")
 
[/B][/SIZE][/SIZE][/B][/SIZE][/FONT][/SIZE][/B][/SIZE][/SIZE][/B][/SIZE][/FONT][/B][/SIZE][/SIZE][/B][/COLOR][/SIZE]

في تلك الاسطر وضعنا  HotKeySet و هي تستعمل للتحكم في لوحة التحكم اي الكيبوورد
ثم "{NUMPAD1}" هي الزر 1  الدي يوجد في الكيبوورد
ثم "m1" وضعنا على ان  m1  هي NUMPAD1 .
و دلك هو الحال بالنسبة  للاسطر الاخرى .
 
ثم
 
$speed  = 30
استعملنا الرمز $  لتعريف  Speed
و هي السرعة و التي  اعطيناها 30 .
 
ثم
While 1
     Sleep(100)
Wend
 (0 Sleep (10
تعني ايقاف لمدة 100 م
يليسوكند mlsecond


ثم
Func m1()
     HotKeySet("{NUMPAD1}")
    MouseDown("left")
    While  _IsPressed(61)
        Sleep(100)
    WEnd
    MouseUp("left")
     HotKeySet("{NUMPAD1}", "m1")
EndFunc
Func m1 ()
هي دالة و قد عرفناها ب m1 و يمكن  للدالة ان تاخد اي اسم لكننا عرفنا الزر 1 على انه m1
و في While_IsPressed (61) تعني  عندما يضغط على الزر 1 .
Sleep (100)
تعني ايقاف لمدة 100 م
يليسوكند  mlsecond
[/COLOR][/SIZE]
و
MouseUp ("left")
تعني عند الضغط على الزر1 الدي يوجد في  اليسار تقوم بعمل مثل عندما تضغط بالزر الايسر للفارة .
و Endfunc
تعني نهاية الدالة

ثم
Func m3()
     HotKeySet("{NUMPAD3}")
    MouseDown("right")
    While  _IsPressed(63)
        Sleep(100)
    WEnd
    MouseUp("right")
     HotKeySet("{NUMPAD3}", "m3")
EndFunc
نفسها التي تعمل دور الزر الايسر  للماوس
و لكن هده مختصة بالزر الايمن  للماوس
 
ثم
Func m2()
$pos =  MouseGetPos()
MouseMove($pos[0], $pos[1] + $speed, 1)
EndFunc

 Func m4()
$pos =  MouseGetPos()
MouseMove($pos[0] - $speed, $pos[1], 1)
EndFunc

 Func m6()
$pos =  MouseGetPos()
MouseMove($pos[0] + $speed, $pos[1], 1)
EndFunc

 Func m8()
$pos =  MouseGetPos()
MouseMove($pos[0], $pos[1] - $speed,  1)
EndFunc

هده مختصة باوامر دهاب الماوس الى  اعلى او الى اسفل او الى يسار او الى يمين


شذى الروح

  • Hero Member
  • *****
    • مشاركة: 3501
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: كانون الثاني 02, 2009, 09:41:40 صباحاً
جيد لا بل رائع شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا
اااااااااااااااااااااااااااااااااااااااااااااااااااا
اااااااااااااااااااااااااااااااااا
اااااااااااااااااااا
اااااااا
اااا
اا
ا
تقبل احتراماتي و تقديري الخالص اخ اشرف بارك الله فيك


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: كانون الثاني 02, 2009, 09:50:21 صباحاً
شكرا ........بارك الله فيك اختي شذى على مرورك الطيب   ..مرورك شرفني