Color bot?

[Jason]

Color & Colour, both is correct.

Both "are" correct. Jeez Kevin, you're turning me into a Nazi /

But I agree with Hassan, I don't really think he wants to learn, just get spoonfed.

[ᶠᶸᶜᵏ]

Use GetPixel.

[Hassan]

Use GetPixel.

Dude, he can hardly print "Hello world !!"

[Lolland]

Useful posts or GTFO.

[tremaster]

ok so make my mouse coords go to the pixle

Public Class Form1




Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim BMP As New Drawing.Bitmap(1, 1)
Dim GFX As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
GF*****pyFromScreen(New Drawing.Point(MousePosition.X, MousePosition.Y), _
New Drawing.Point(0, 0), BMP.Size)
Dim Pixel As Drawing.Color = BMP.GetPixel(0, 0)
PictureBox1.BackColor = Pixel
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If My.Computer.Keyboard.AltKeyDown Then
PictureBox2.BackColor = PictureBox1.BackColor
End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label1.Text = Cursor.Position.X
Label2.Text = Cursor.Position.X
End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick


End Sub
End Class

anyhelp

[Jason]

Useful posts or GTFO.

Says you? /

@tremaster, that code looks horrible. Just look up "CreateDC", "DeleteDC" and "GetPixel" APIs on google, and figure it from there. 1 tip I will give you, this is how to get the screen device context:

[php]
Dim ScreenDC as IntPtr
ScreenDC = CreateDC("Display", Nothing, Nothing, 0)
[/php]

['Bruno]

ok so make my mouse coords go to the pixle

Public Class Form1




Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim BMP As New Drawing.Bitmap(1, 1)
Dim GFX As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
GF*****pyFromScreen(New Drawing.Point(MousePosition.X, MousePosition.Y), _
New Drawing.Point(0, 0), BMP.Size)
Dim Pixel As Drawing.Color = BMP.GetPixel(0, 0)
PictureBox1.BackColor = Pixel
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If My.Computer.Keyboard.AltKeyDown Then
PictureBox2.BackColor = PictureBox1.BackColor
End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label1.Text = Cursor.Position.X
Label2.Text = Cursor.Position.X
End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick


End Sub
End Class

anyhelp

I heard code tags are awesome shit, those even make you look pro