بخصوص نقرة الماوس ومكانه

أخي عماوي

أنا أستطيع أن أجيبك على السؤال الأول أول شطرين فقط

الشطر الأول :

هذا كود بعمل على تقليد ضغطة الماوس

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Const MOUSEEVENTF_MIDDLEDOWN = &H20

Const MOUSEEVENTF_MIDDLEUP = &H40

Const MOUSEEVENTF_MOVE = &H1

Const MOUSEEVENTF_ABSOLUTE = &H8000

Const MOUSEEVENTF_RIGHTDOWN = &H8

Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Form_Activate()

'KPD-Team 1998

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

Do

'Simulate a mouseclick on the cursor's position

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI

DoEvents

Loop

End Sub

أما بالنسبة للشطر الثاني أظن أن هذا الكود ينفع :

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

private sub Form_load()

timer1.interval=1

end sub

Private Sub Timer1_Timer()

Dim o As POINTAPI

GetCursorPos o

label1.Caption = o.X & "," & o.Y

End Sub

شكرا جزيلا اخي الكريم

قد افتدني حقا

وجزاك الله خير كما طلبت تماما

اتمنى من بقية الاخوة الطيبين الاجابة على ما تبقى

اكرر شكري الجزيل لك اخي

وبالتوفيق

up

up

بالنسبة للشطر الثالث من سؤالك:

وهو لتغيير موقع الفأرة برمجيا"

تفضل:

Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)

Private Sub Command1_Click()
t& = SetCursorPos(200, 100)
End Sub

يمكنك تغييرموقع الفارة بتغيير الارقام(200, 100)

وبالنسبة للسؤال الثاني الشطر الأول: فأرى أن تعمل تسجيل خروج برمجيا"

اهلا اخي عبد العزيز

اشكرك جزيل الشكر حقا

ولكن بخصوص اجابتك على الشطر الثالث

كيف لي ان اعوض مكان x,y بمعادلة مثلا اريد ان يسير الماوس حركة موجية او حركة من زاوية الفورم اليسرى من الاعلى الى زاوية الفورم اليمنى من الاسفل

يعني كيف ادخل تعابير رياضية فيه

==========

بخصوص الشطر الاول من السؤال الثاني فانا لم اقصد اغلاق الكمبيوتر او تسجيل الخروج

كل ما اريد ان يخرج من كل النوافذ المفتوحة

اكرر شكري الجزيل لك

وفي انتظار مساعدة جديدة

بالتوفيق

مرحباً أخي

أظن بأن لدي جواب ربما ليس كاملاً ... ولكنه يفي بالغرض بالنسبة لسؤلك الثاني

1- كيف لي ان اغلق كل الشاشات المفتوحة امامي كنوافذ الانترنت والبرامج المختلفة وما الى ذلك

2- كيف لي ان اغلق برامجا محددة مثلا اريد اغلاق كل النوافذ المفتوحة الا صفحة موقعي الرئيسية او كل النوافذ الا لعبة الورق

اجابة السؤالين من خلال الضغط على Alt+F4 معاً .. حيث سيتم اغلاق النوافذ الواحدة تلوى الأخرى قيد العمل في كل مرة تضغط فيها على الزرين.

اهلا بك اخي المدمر

فكرت بالطريقة التي طرحتها سابقا

الا انني وجدت نفسي ناسيا تماما للأمر sendkey

هل لي ان اثقل عليك بكتابته

اما بخصوص الشق الثاني فاعتقد ان العملية اكبر من ذلك

فانا لا اريد اغلاق كل البرامج بل شيئا منها طبعا برمجيا ^_^

في انتظار اجابة

وبالتوفيق

up

مرحبا مجددا

بخصوص الشق الأول من السؤال الثاني

فالحمد لله الحمد قد تذكرته

وانا الآن محتار جدا بخصوص الشق الثاني من السؤال الثاني

اتمنى اجد الاجابة الشافية لديكم

وبالتوفيق

وجدت لك هذا الرابط فيه أداة لإغلاق أي برامج شغال :

/index.ph...67295&st=15

أبحث عن الأداة ListKillProcess

شكرا جزيلا اخي الكريم

وكان بودي ان اجد كود لهذا العمل

بالتوفيق للجميع

تفضل هذا بالكود:

TaskManager.rar