 |
08-26-2009, 03:12 AM
|
 |
Newcomer
|
|
Join Date: Aug 2009
Posts: 17
|
|
[SOLVED]How do i make a program that would click colors[SOLVED]
I found out how to do it, i made 4 programs so far, ill release soon.
Last edited by Mn533 : 08-31-2009 at 12:07 AM.
|
08-26-2009, 07:09 AM
|
 |
Massive Troll
|
|
Join Date: May 2006
Location: The internet.
Posts: 1,604
|
|
Re: How do i make a program that would click colors
__________________
I do not trade.
Always ask for a PM.
|
08-27-2009, 07:31 AM
|
|
Newcomer
|
|
Join Date: Aug 2009
Posts: 5
|
|
Re: How do i make a program that would click colors
there is alot of custom functions i have seen in forums you should maybe see if cruels lib (***********) is still about i think that had everything you should need,
i kno back in the day TerrenKiller had some sweet movemouse & mousecurve functions in his forums if there still about i dont know
also read up on the Script control very intresting
Last edited by OCR : 08-27-2009 at 07:34 AM.
|
08-28-2009, 01:24 AM
|
|
Member
|
|
Join Date: Aug 2009
Posts: 46
|
|
Re: How do i make a program that would click colors
I wouldn't use the findcolor in the link. It works if you want to do something basic, but if you want to code anything more advanced you'll need a decent function.
I'm on a Mac right now so I obviously don't have access to my old vb stuff, but in a while if I have time I will unearth some functions I wrote back in the day and post them here. 
Oh and if you want it to be reeeallly easy you should switch to delphi. I love using scanlines. |
08-29-2009, 06:30 AM
|
|
Newcomer
|
|
Join Date: Aug 2009
Posts: 17
|
|
Re: How do i make a program that would click colors
Im really new to coding with mouse movements, and stuff, so can someone really make it basic for me, just a simple source code for color clicking would be nice.
Thanks
|
08-29-2009, 06:58 PM
|
|
Newcomer
BANNED
|
|
Join Date: Aug 2009
Posts: 8
|
|
Re: How do i make a program that would click colors
Quote:
Originally Posted by Mn533
Im really new to coding with mouse movements, and stuff, so can someone really make it basic for me, just a simple source code for color clicking would be nice.
Thanks
|
Read the second post of this thread... wow.. |
08-29-2009, 08:07 PM
|
|
Newcomer
|
|
Join Date: Aug 2009
Posts: 17
|
|
Re: How do i make a program that would click colors
Quote:
Originally Posted by Lord MuffSag
Read the second post of this thread... wow..
|
Id did, i dont know if i need CruelLib.dll, and if i do, i dont know how to add it, i dont know were to put the codes, and if i need a button or not.
Can someone just make it easy for me? |
08-29-2009, 09:02 PM
|
|
Newcomer
BANNED
|
|
Join Date: Aug 2009
Posts: 8
|
|
Re: How do i make a program that would click colors
Quote:
Originally Posted by Mn533
Id did, i dont know if i need CruelLib.dll, and if i do, i dont know how to add it, i dont know were to put the codes, and if i need a button or not.
Can someone just make it easy for me?
|
You do not need the dll for that code.
You need to start with simpler stuff (even though this seems extremely basic to me..) if you don't know the answer to those questions.
No one is going to just do all the work for you. This is one of the easiest languages ever, so I think you could figure it out if you spent the time. |
09-17-2009, 07:36 AM
|
|
Newcomer
|
|
Join Date: Sep 2009
Posts: 9
|
|
Re: How do i make a program that would click colors
i know you already found it but im going to post the code i use anyway
Code:
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32) As Int32
Public Declare Function WindowFromPoint Lib "user32" ( _
ByVal stPoint As Point) As IntPtr
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Function ScreenshotForm() As Bitmap
Dim bmp As New Bitmap(Me.Width, Me.Height)
Using g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(Me.Location, Point.Empty, Me.Size)
End Using
Return bmp
End Function
Private Sub MoveMousetoPixel(ByVal Clr As Color)
Dim BMP As Bitmap = ScreenshotForm()
For x As Integer = 1 To BMP.Width - 1
For y As Integer = 1 To BMP.Height - 1
If BMP.GetPixel(x, y).ToArgb = Clr.ToArgb Then
ax.Text = x + Me.Location.X
Ay.Text = y + Me.Location.Y
Exit Sub
End If
Next
Next
End Sub
|
|
|
How do i make a program that would click colors
Linear Mode
