How to Move and Click with VB

The Code for clicking with the mouse is
//Code
Imports System.Windows.Forms
Imports System.Drawing
Public Class Click Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up Public Shared Sub LeftDown() mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) End Sub Public Shared Sub LeftUp() mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) End Sub Public Shared Sub RightDown() mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) End Sub Public Shared Sub RightUp() mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0) End Sub
End Class
//
The Code for moving with the mouse is
//Code
Imports System.Windows.Forms
Imports System.Drawing
Public Class Move Public Shared Sub SetMousePosition(ByVal x As Integer, ByVal y As Integer) Windows.Forms.Cursor.Position = New Point(x, y) End Sub
End Class
//
this is all in a class
and to left click: mouse.click.leftdown
and to move:mouse.move,setmousepoition(100,100)
this is a form

Category:

Howto & Style

Tags:

• vb
• mouse

[rocketrobotzrobotz11]

do you know how to drag?

coz I used this code for my mouse recorder

it has left,right,middle click ... I dont know how to hold or drag it

[CODEINGWITHALEX]

@rocketrobotzrobotz11 yep just watch the newest mouse video

[velociraptorblip]

HELP!!! 2 Errors and one Warning its about the "Imports Mouse" It says that the Mouse cant be find... :/

[CODEINGWITHALEX]

Alright Tomorrow im going to post a new video

of how to make the Mouse dll and i will post it on my site

[lolypopboy777]

the program works perfect!

[TheMundoFlash]

How to Move and Click with VB

[rocketrobotzrobotz11]

@CODEINGWITHALEX What vid is it? Ive watched some of ur mouse bids

[velociraptorblip]

@CODEINGWITHALEX Thanx! :)

[oleks21]

Awsome