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

[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]

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

Declare Sub mouse_event Lib "user32" (ByVal dwFlages As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Public Const MouseEventTf_LeftDown = &H2
Public Const MouseEventTf_LeftUp = &H4
Public Const MouseEventTf_RightDown = &H8
Public Const 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]

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


http://barnamenevis.org/forum/attachment.php?attachmentid=60295&stc=1&d=1289800142


دانلود کنید. (http://barnamenevis.org/forum/attachment.php?attachmentid=60294&stc=1&d=1289800142)

[kaka22]

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

[shahab2025]

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

[mehdad.koulab]

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

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

65810