ساخت موس نرم افزاری ( کدهای کنترل موس )

[omid-vbAuto]

با سلام خدمت دوستان

آیا ما می تونیم کدی رو با VB بنویسم که به وسیله اون بتونیم نشانه گر موس رو کنتزل کنیم؟
یعنی بجای اینکه به وسیله موس نشانه گر موس را تکون بدیم کدی بنویسیم و بگم نشانه گر موس بره رو مختصات (10,10) از صفحه نمایش و عمل کلیک رو انجام بده.!!!

[Mani_rf]

محل فعلی موس را اینطوری میشه عوض کرد :

SetCursorPosرا عمومی تعریف میکنی :

Declare

Function SetCursorPos& Lib"user32" (ByVal p AsPoint)

این کد را جای مناسب فراخوانی می کنی:

Dim p AsPoint
p.X = 10
p.Y = 10
SetCursorPos(p)

[Mani_rf]

این هم برای کلیک و راست کلیک :

DeclareSub mouse_event Lib"user32" (ByVal dwFlages AsInteger, ByVal dx AsInteger, ByVal dy AsInteger, ByVal cButtons AsInteger, ByVal dwExtraInfo AsInteger)
PublicConst MouseEventTf_LeftDown = &H2
PublicConst MouseEventTf_LeftUp = &H4
PublicConst MouseEventTf_RightDown = &H8
PublicConst MouseEventTf_RightUp = &H10

'--------------- کلیک --------------------

mouse_event(MouseEventTf_LeftDown, 0, 0, 0, 0)
mouse_event(MouseEventTf_LeftUp, 0, 0, 0, 0)

'----------------راست کلیک -------------------

mouse_event(MouseEventTf_RightDown, 0, 0, 0, 0)
mouse_event(MouseEventTf_RightUp, 0, 0, 0, 0)

[MehdiElexal]

این هم برای کلیک و راست کلیک :

DeclareSub mouse_event Lib"user32" (ByVal dwFlages AsInteger, ByVal dx AsInteger, ByVal dy AsInteger, ByVal cButtons AsInteger, ByVal dwExtraInfo AsInteger)
PublicConst MouseEventTf_LeftDown = &H2
PublicConst MouseEventTf_LeftUp = &H4
PublicConst MouseEventTf_RightDown = &H8
PublicConst MouseEventTf_RightUp = &H10

'--------------- کلیک --------------------

mouse_event(MouseEventTf_LeftDown, 0, 0, 0, 0)
mouse_event(MouseEventTf_LeftUp, 0, 0, 0, 0)

'----------------راست کلیک -------------------

mouse_event(MouseEventTf_RightDown, 0, 0, 0, 0)
mouse_event(MouseEventTf_RightUp, 0, 0, 0, 0)

سلام دوست عزیز
میشه یکم واضح تر توضییح بدید که چطور باید از این کد استفاده کرد ؟
اولا Space توش نیست کلا ،یه لطفی کن کدهاتون رو داخل تگ Code قرار بدید
البته ببخشیدها جسارتا
بعد اینکه اگه میشه یه نمونه برنامه بگذارید کمال تشکر رو دارم
خیلی خیلی ممنون

[Mani_rf]

سلام دوستان.
این هم یک نمونه برنامه ساده که از این کد ها درونش استفاده شده و عمل جابجایی و کلیک کردن را شبیه سازی میکنه.
امیدوارم مفید باشه.

دانلود کنید.

[kaka22]

چطور می توان همین عمل را برای فرم انجام داد؟
یعنی عمل جابجایی و کلیک کردن موس را روی فرم یا یک کنترل شبیه سازی کنه.

[shahab2025]

من هم همین سوال را دارم
چطوری میتونم برای کلیک راست روی برنامه ام کد بنویسم به صورتی که یک فرم کوچک مثل فرم کلیک راست ویندوز نمایش داده شده و امکان انتخاب داشته باشه؟

[mehdad.koulab]

سلام
اين رو ببينيد حتما به دردتون ميخوره.

يك نمونه برنامه است.

mouse.rar