[Delphi] Ajuda Getpixelcolor

[xh1e1x 2]

bom galera tranquilo ? hoje tentando construir um programa eu fiquei com uma duvida.

preciso passar esse codigo de auto it para delphi :

While True

$color = PixelGetColor(@DesktopWidth / 2, @DesktopHeight / 2)

If $color = 16711680 Or $color = 16646144 Then

MouseClick("right")

Sleep(30)

EndIf

WEnd

 

queria saber como eu devo fazer a programação no delphi em si, de pegar a cor que ta no centro do monitor e se a cor for a indicada no valor (16711680 = vermelho) dar um click no mouse.

espero a ajuda, obrigado!

[AceStryker 32]

Isto é so um esboço pois estou sem o delphi aqui no meu pc, entao tente algo mais ou menos assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Qualquer erro me avisa ;)

[Zaphey 2]

Área Errada.

Área correta: Programação - Dúvidas/Ajuda

Movido...

[xh1e1x 2]

Vou testar, mais ai no seu codigo tem a simulçao de 1 click ? porque eu preciso que tipo, quando passe na cor determinada de 1 click intendeu ?

-----------------edit-------------------

deu bastantes erros S:

[DCC Error] Unit2.pas(31): E2029 Declaration expected but number found

[DCC Error] Unit2.pas(34): E2003 Undeclared identifier: 'GetCurrentPos'

[DCC Error] Unit2.pas(35): E2066 Missing operator or semicolon

[DCC Error] Unit2.pas(35): E2003 Undeclared identifier: 'DesktopWidth'

[DCC Error] Unit2.pas(35): E2015 Operator not applicable to this operand type

[DCC Error] Unit2.pas(35): E2015 Operator not applicable to this operand type

[DCC Error] Unit2.pas(36): E2066 Missing operator or semicolon

[DCC Error] Unit2.pas(38): E2003 Undeclared identifier: 'sc'

[DCC Error] Unit2.pas(40): E2066 Missing operator or semicolon

[DCC Error] Unit2.pas(41): E2066 Missing operator or semicolon

[DCC Error] Unit2.pas(41): E2003 Undeclared identifier: 'bsCircle'

[DCC Error] Unit2.pas(42): E2066 Missing operator or semicolon

[DCC Error] Unit2.pas(43): E2029 ')' expected but identifier 'handle' found

[DCC Error] Unit2.pas(12): E2065 Unsatisfied forward or external declaration: 'TForm2.FormClick'

[DCC Fatal Error] Project2.dpr(7): F2063 Could not compile used unit 'Unit2.pas'

[AceStryker 32]

Nao entendi totalmente mas fiz o que eu entendi

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Coloca isto em um timer com interval 1

[soquerogold1 7]

Sou inciante de delphi mais,se voçê pegou esse codigo de alguem tente contacta-lo para ele resolver acho que concerteza ele sabera lhe responder.Espero ter ajudado

 

 

 

[xh1e1x 2]

Ace, vo tentar deixar mais claro, eu quero o seguinte, quando a cor do centro do monitor ficar VERMELHA ele de1 CLIQUE no mouse intendeu ?

e deu erro seu code >.<

Checking project dependencies...

Compiling Project2.dproj (Debug, Win32)

dcc command line for "Project2.dpr"

c:\program files (x86)\embarcadero\rad studio\8.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;

DbiProcs=BDE -DDEBUG -E.\Debug\Win32 -I"c:\program files (x86)\embarcadero\rad studio\8.0\lib\Win32\release";"C:\Users\Gilson\Documents\RAD

Studio\8.0\Imports";"c:\program files (x86)\embarcadero\rad studio\8.0\Imports";"C:\Users\Public\Documents\RAD Studio\8.0\Dcp";"c:\program files

(x86)\embarcadero\rad studio\8.0\include";"C:\Program Files (x86)\Raize\CS4\Lib\RS-XE";"c:\program files (x86)\embarcadero\rad

studio\8.0\RaveReports\Lib" -LE"C:\Users\Public\Documents\RAD Studio\8.0\Bpl" -LN"C:\Users\Public\Documents\RAD Studio\8.0\Dcp" -N0.\Debug\Win32

-O"c:\program files (x86)\embarcadero\rad studio\8.0\lib\Win32\release";"C:\Users\Gilson\Documents\RAD Studio\8.0\Imports";"c:\program files

(x86)\embarcadero\rad studio\8.0\Imports";"C:\Users\Public\Documents\RAD Studio\8.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\8.0\include";

"C:\Program Files (x86)\Raize\CS4\Lib\RS-XE";"c:\program files (x86)\embarcadero\rad studio\8.0\RaveReports\Lib" -R"c:\program files

(x86)\embarcadero\rad studio\8.0\lib\Win32\release";"C:\Users\Gilson\Documents\RAD Studio\8.0\Imports";"c:\program files (x86)\embarcadero\rad

studio\8.0\Imports";"C:\Users\Public\Documents\RAD Studio\8.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\8.0\include";"C:\Program Files

(x86)\Raize\CS4\Lib\RS-XE";"c:\program files (x86)\embarcadero\rad studio\8.0\RaveReports\Lib" -U"c:\program files (x86)\embarcadero\rad

studio\8.0\lib\Win32\release";"C:\Users\Gilson\Documents\RAD Studio\8.0\Imports";"c:\program files (x86)\embarcadero\rad studio\8.0\Imports";

"C:\Users\Public\Documents\RAD Studio\8.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\8.0\include";"C:\Program Files

(x86)\Raize\CS4\Lib\RS-XE";"c:\program files (x86)\embarcadero\rad studio\8.0\RaveReports\Lib" -K00400000 -NB"C:\Users\Public\Documents\RAD

Studio\8.0\Dcp" -NH"C:\Users\Public\Documents\RAD Studio\8.0\hpp" -NO.\Debug\Win32 Project2.dpr

[DCC Error] Unit2.pas(29): E1030 Invalid compiler directive: 'color1'

[DCC Error] Unit2.pas(31): E2003 Undeclared identifier: 'GetCurrentPos'

[DCC Error] Unit2.pas(32): E2003 Undeclared identifier: 'PixelGetColor'

[DCC Error] Unit2.pas(33): E2012 Type of expression must be BOOLEAN

[DCC Error] Unit2.pas(40): E2029 Statement expected but end of file found

[DCC Error] Unit2.pas(40): E2029 ';' expected but end of file found

[DCC Fatal Error] Project2.dpr(7): F2063 Could not compile used unit 'Unit2.pas'

Failed

Elapsed time: 00:00:00.2

[AceStryker 32]

99% disto é porque voce nao adaptou o seu codigo, significa que voce eh exatamente um Ctrl C Ctril V user...

Ja o outro 1% é a function

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[xh1e1x 2]

sim cara, eu não programo nada mesmo, meu amigo pediu pra alguem converter e eu compila pra ele no delphi, eu so sei o ultra mega basico ;d

[Zaphey 2]

Bom, pelo jeito dúvida resolvida.

Caso o membro queira reabrir o tópico, entre em contato.

 

Resolvido := Fechado;