چگونه می توان موس را با کد حرکت داد?

[ahmad_r]

چگونه می توان موس را با کد حرکت داد??
مثلا در موقع لود برنامه، موس از یک سمت به سمت دیگر مانیتور برود (بدون حرکت دادن آن)

[Mr.reCoder]

تابع SetCursorPos برای اینکار بکار میره! به MSDN رجوع کن اطلاعاتی خوبی بدست میاری!

[ahmad_r]

من که چنین تابعی در Vb6 پیدا نکردم
میشه یه مثال بزنید

[Payman_62]

سلام.
api هست نه تابع ویبی.

[majj]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
'E-Mail: KPDTeam@Allapi.net

Command1.Caption = "Screen Middle"
Command2.Caption = "Form Middle"
'API uses pixels
Me.ScaleMode = vbPixels
End Sub
Private Sub Command1_Click()
'Get information about the screen's width
P.x = GetDeviceCaps(Form1.hdc, 8) / 2
'Get information about the screen's height
P.y = GetDeviceCaps(Form1.hdc, 10) / 2
'Set the mouse cursor to the middle of the screen
ret& = SetCursorPos(P.x, P.y)
End Sub
Private Sub Command2_Click()
P.x = 0
P.y = 0
'Get information about the form's left and top
ret& = ClientToScreen&(Form1.hwnd, P)
P.x = P.x + Me.ScaleWidth / 2
P.y = P.y + Me.ScaleHeight / 2
'Set the cursor to the middle of the form
ret& = SetCursorPos&(P.x, P.y)
End Sub[/CODE]

[majj]

Private Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, _
ByVal Y As Integer)
Private Sub Command1_GotFocus()
X = (Form1.Left + Command1.Left + Command1.Width / 2 + 60) / Screen.TwipsPerPixelX
Y = (Form1.Top + Command1.Top + Command1.Height / 2 + 360) / Screen.TwipsPerPixelY
SetCursorPos X, Y
End Sub

[MrJamshidy]

خوبه قبل از پست دادن یک سرچ بزنی
براتون پول نمیندازه

[ULF_VB6]

خوبه قبل از پست دادن یک سرچ بزنی
براتون پول نمیندازه
خدا از دهنت بشنوه

[ahmad_r]

چشم از این به بعد توی سایت سرچ می کنم اما...
(خدائیش سرچ سایت خیلی قوی نیست و معمولا به نتیجه مورد نظر نمی رسم)

[MrJamshidy]

مشکل از سرچ سایت نیست

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

[ULF_VB6]

چرا آقای جمشیدی. سرچ سایت هم تا حدودی مشکل داره.
مهمترین مشکلش هم حذف کلمات 3 حرفی و کمتره.
من خیلی اوقات دنبال چیزی میخوام بگردم که از 3 حرف تشکیل شده، ولی طبق الگوریتم سایت، کلماتی که 3 حرف و کمتر باشن، از جستجو حذف میشن.
در این مواقع دیگه باید دست به دامن موتورهای جستجو شد.

[MrJamshidy]

چرا آقای جمشیدی. سرچ سایت هم تا حدودی مشکل داره.
مهمترین مشکلش هم حذف کلمات 3 حرفی و کمتره.
من خیلی اوقات دنبال چیزی میخوام بگردم که از 3 حرف تشکیل شده، ولی طبق الگوریتم سایت، کلماتی که 3 حرف و کمتر باشن، از جستجو حذف میشن.
در این مواقع دیگه باید دست به دامن موتورهای جستجو شد.

دوست عزیز همه چی بر میگرده به نحوه سرچ شما

[ULF_VB6]

دوست عزیز همه چی بر میگرده به نحوه سرچ شما
خب فرض کنیم شما میخوای دنبال بازی sam & max بگردی.
حالا وقتی که این عبارت رو وارد کنید، کل حروف حذف میشه و چیزی برای جستجو نمیمونه.

اگه بخواید به صورتهای دیگه بنویسید، مثلا "sam-max ," sam max , ... به احتمال 99% به نتیجه مورد نظر نمیرسید.

حالا شما بگید، اینو چجوری جستجو میکنید، تا ما هم یاد بگیریم.