Printable View
با سلام خدمت دوستان
آیا ما می تونیم کدی رو با VB بنویسم که به وسیله اون بتونیم نشانه گر موس رو کنتزل کنیم؟
یعنی بجای اینکه به وسیله موس نشانه گر موس را تکون بدیم کدی بنویسیم و بگم نشانه گر موس بره رو مختصات (10,10) از صفحه نمایش و عمل کلیک رو انجام بده.!!!:متفکر:
محل فعلی موس را اینطوری میشه عوض کرد :
SetCursorPosرا عمومی تعریف میکنی :
Declare
Function SetCursorPos& Lib"user32" (ByVal p AsPoint)
این کد را جای مناسب فراخوانی می کنی:Dim p AsPoint
p.X = 10
p.Y = 10
SetCursorPos(p)
این هم برای کلیک و راست کلیک :
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)
سلام دوست عزیزنقل قول:
نوشته شده توسط Mani_rf
میشه یکم واضح تر توضییح بدید که چطور باید از این کد استفاده کرد ؟
اولا Space توش نیست کلا ،یه لطفی کن کدهاتون رو داخل تگ Code قرار بدید
البته ببخشیدها جسارتا
بعد اینکه اگه میشه یه نمونه برنامه بگذارید کمال تشکر رو دارم
خیلی خیلی ممنون
سلام دوستان.
این هم یک نمونه برنامه ساده که از این کد ها درونش استفاده شده و عمل جابجایی و کلیک کردن را شبیه سازی میکنه.
امیدوارم مفید باشه.
چطور می توان همین عمل را برای فرم انجام داد؟
یعنی عمل جابجایی و کلیک کردن موس را روی فرم یا یک کنترل شبیه سازی کنه.
من هم همین سوال را دارم
چطوری میتونم برای کلیک راست روی برنامه ام کد بنویسم به صورتی که یک فرم کوچک مثل فرم کلیک راست ویندوز نمایش داده شده و امکان انتخاب داشته باشه؟
سلام
اين رو ببينيد حتما به دردتون ميخوره.
يك نمونه برنامه است.
ضمیمه 65810