Home › Forum › Programming › Other Programming › Visual Basic Programming › [Help]Win Api / Mouse to color
[Help]Win Api / Mouse to color
[Help]Win Api / Mouse to color
hey i saw this cool thing online it was a thing were you could put you mouse over a color then you could save the color and push go and the mouse would automaticly go to that color anytime it saw it
Sure, If you want it
(Not mine, Standard MSDN)
Originally Posted by Dan From MSDN
(Not mine, Standard MSDN)
Originally Posted by Dan From MSDN
Dim bitmap As Bitmap = New Bitmap("myBitmap.bmp")
Dim x As Integer
Dim y As Integer
For x = 0 To bitmap.Width
For y = 0 To bitmap.Height
If bitmap.GetPixel(x, y) = Color.AliceBlue Then
'this is where you'd move the mouse to, and possibly exit the loop
End If
Next
Next
inside the loop, you can call this function :
move_mouse_to_location(x,y)
this is where it gets really tricky. You will need to call the windows API to get the mouse to move. Add this to the top of your code outside of any function definitions:
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_MOVE As Integer = &H1 ' mouse move
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4 ' left button up
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8 ' right button down
Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10 ' right button up
Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20 ' middle button down
Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40 ' middle button up
Private Const MOUSEEVENTF_WHEEL As Integer = &H800 ' wheel button rolled
Private Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000 ' absolute move
Private slowmode As Boolean = False
this is the constants and the declaration allowing you to call the windows API.
then you can use this subroutine to move the mouse to the desired location:
Private Function move_mouse_to_location(ByVal x As Integer, ByVal y As Integer)
Dim desired As Point
Dim current As Point
Dim move As Point
Dim resolution As Rectangle
resolution = My.Computer.Screen.Bounds
If x > 0 And x < resolution.Right Then 'the value is legimate
desired.X = x
Else
MsgBox("The value for the mouse that you passed is out of bounds. X must be a value between 0 and " & resolution.Right & " You passed the value " & x)
desired.X = 0
End If
If y > 0 And y < resolution.Bottom Then
desired.Y = y
Else
MsgBox("The value for the mouse that you passed is out of bounds. Y must be a value between 0 and " & resolution.Bottom & " You passed the value " & y)
desired.Y = 0
End If
move = desired - current
current.X = MousePosition.X
current.Y = MousePosition.Y
While current.Y > desired.Y
mouse_event(MOUSEEVENTF_MOVE, 0, -1, 0, 0)
current.Y = MousePosition.Y
End While
While current.Y < desired.Y
mouse_event(MOUSEEVENTF_MOVE, 0, 1, 0, 0)
current.Y = MousePosition.Y
End While
While current.X > desired.X
mouse_event(MOUSEEVENTF_MOVE, -1, 0, 0, 0)
current.X = MousePosition.X
End While
While current.X < desired.X
mouse_event(MOUSEEVENTF_MOVE, 1, 0, 0, 0)
current.X = MousePosition.X
End While
Return True
End Function
Dim x As Integer
Dim y As Integer
For x = 0 To bitmap.Width
For y = 0 To bitmap.Height
If bitmap.GetPixel(x, y) = Color.AliceBlue Then
'this is where you'd move the mouse to, and possibly exit the loop
End If
Next
Next
inside the loop, you can call this function :
move_mouse_to_location(x,y)
this is where it gets really tricky. You will need to call the windows API to get the mouse to move. Add this to the top of your code outside of any function definitions:
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_MOVE As Integer = &H1 ' mouse move
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4 ' left button up
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8 ' right button down
Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10 ' right button up
Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20 ' middle button down
Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40 ' middle button up
Private Const MOUSEEVENTF_WHEEL As Integer = &H800 ' wheel button rolled
Private Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000 ' absolute move
Private slowmode As Boolean = False
this is the constants and the declaration allowing you to call the windows API.
then you can use this subroutine to move the mouse to the desired location:
Private Function move_mouse_to_location(ByVal x As Integer, ByVal y As Integer)
Dim desired As Point
Dim current As Point
Dim move As Point
Dim resolution As Rectangle
resolution = My.Computer.Screen.Bounds
If x > 0 And x < resolution.Right Then 'the value is legimate
desired.X = x
Else
MsgBox("The value for the mouse that you passed is out of bounds. X must be a value between 0 and " & resolution.Right & " You passed the value " & x)
desired.X = 0
End If
If y > 0 And y < resolution.Bottom Then
desired.Y = y
Else
MsgBox("The value for the mouse that you passed is out of bounds. Y must be a value between 0 and " & resolution.Bottom & " You passed the value " & y)
desired.Y = 0
End If
move = desired - current
current.X = MousePosition.X
current.Y = MousePosition.Y
While current.Y > desired.Y
mouse_event(MOUSEEVENTF_MOVE, 0, -1, 0, 0)
current.Y = MousePosition.Y
End While
While current.Y < desired.Y
mouse_event(MOUSEEVENTF_MOVE, 0, 1, 0, 0)
current.Y = MousePosition.Y
End While
While current.X > desired.X
mouse_event(MOUSEEVENTF_MOVE, -1, 0, 0, 0)
current.X = MousePosition.X
End While
While current.X < desired.X
mouse_event(MOUSEEVENTF_MOVE, 1, 0, 0, 0)
current.X = MousePosition.X
End While
Return True
End Function
xD
- doesn't matter, just saying, it probably should have been a module