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

[ahmad_r]

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

[Mr.reCoder]

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

[ahmad_r]

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

[Payman_62]

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

[majj]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

'E-Mail: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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]

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

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