.NET Scan screen for specific pixel color, move mouse to it, and click it.

PHP Code



<?php 
Function TakeScreenshot() As Bitmap
    Dim B As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    Dim G = Graphics.FromImage(B)

    G.CopyFromScreen(My.Computer.Screen.Bounds.X, My.Computer.Screen.Bounds.Y, 0, 0, My.Computer.Screen.Bounds.Size)
    G.Dispose()

    Return B
End Function

PHP Code



<?php 
Dim s = TakeScreenshot()

For y = 0 To s.Height - 1
    For x = 0 To s.Width - 1
      Dim pixel = s.GetPixel(x, y)
      ' ...
    Next
Next

PHP Code



<?php 
Iterator Function FindPixels(b As Bitmap, c As Color) As IEnumerable(Of Point)
    Dim d = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), Imaging.ImageLockMode.ReadOnly, b.PixelFormat)
    Dim buf(d.Height * d.Stride - 1) As Byte

    ' Copy the bytes to memory (buf)
    Runtime.InteropServices.Marshal.Copy(d.Scan0, buf, 0, buf.Count)

    ' Loop trought all the bits in the image
    For i = 0 To buf.Length - 1 Step 4 ' Each pixel contains four bytes (A, R, G, B)
      If c.A <> buf(i + 3) Then Continue For ' You can remove this as your picture doesn't contain opacity
      If c.R <> buf(i + 2) Then Continue For
      If c.G <> buf(i + 1) Then Continue For
      If c.B <> buf(i + 0) Then Continue For

      Dim ya = i / d.Stride
      Dim y = Math.Floor(ya)
      Dim x = (ya - y) * d.Width

      Yield New Point(CInt(x), Math.Floor(y))
    Next

    ' Finaly unlock the image 
    b.UnlockBits(d)
End Function

PHP Code



<?php 
Private Declare Sub mouse_event Lib "user32" (dwFlags%, dX%, dY%, cButtons%, dwExtraInfo As IntPtr)

Public Enum MouseEventFlags
    Move = 1 << 0
    LeftDown = 1 << 1
    LeftUp = 1 << 2
    RightDown = 1 << 3
    RightUp = 1 << 4
    MiddleDown = 1 << 5
    MiddleUp = 1 << 6
    ABSOLUTE = 1 << 15 ' Is it just me who think it's wierd that they didn't put this at 2^7 so that it would fit on a byte?
End Enum

Sub LeftClick()
    mouse_event(MouseEventFlags.LEFTDOWN Or MouseEventFlags.LEFTUP, 0, 0, 0, 0)
End Sub

PHP Code



<?php 
For Each p In FindPixels(TakeScreenshot, Color.Green)
    Cursor.Position = p
    LeftClick()
Next

Code

Public Function ObserveColor(ByVal Pos As Point, ByVal C As Color, Optional Trys As Integer = 5) As Boolean

      Cursor.Position = Pos

      For i As Integer = 0 To Trys

      G.CopyFromScreen(Cursor.Position, Point.Empty, Bmp.Size)

      If Bmp.GetPixel(0, 0).Equals(C) Then

            Return True

      End If

      System.Threading.Thread.Sleep(150)

      Next

      Return False

    End Function

Code

Public Declare Auto Function SetCursorPos Lib "User32.dll" (ByVal X As Integer, ByVal Y As Integer) As Long

    Public Declare Auto Function GetCursorPos Lib "User32.dll" (ByRef lpPoint As Point) As Long

    Public Declare Sub Mouse_Event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

    Public Const MOUSEEVENTF_LEFTDOWN = &H2

    Public Const MOUSEEVENTF_LEFTUP = &H4

    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20

    Public Const MOUSEEVENTF_MIDDLEUP = &H40

    Public Const MOUSEEVENTF_RIGHTDOWN = &H8

    Public Const MOUSEEVENTF_RIGHTUP = &H10

    Public Const MOUSEEVENTF_MOVE = &H1



    Public Sub MouseClick(ByVal MouseButton As MouseButtons, ByVal MousePos As Point)

      Cursor.Position = MousePos



      Select Case MouseButton



      Case MouseButtons.Left

            Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

            Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)



      Case MouseButtons.Right

            Mouse_Event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)

            Mouse_Event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)



      End Select

    End Sub