Ich hab mal ein Programm geschrieben, das bei ICQ6 automatisch antwortet wennn man einen Nachricht bekommt, den Text der geantwortet werden soll gibt man beim Start ein1
[autoit]$Input1 = InputBox("Name", "Wie heist das Fenster?")
$Input2 = InputBox("Text", "Welcher Text soll geantwortet werden?")
WinActivate($Input1)
While 1
Sleep(50)
WinMove($Input1, "", 0, 0)
$1 = PixelGetColor(149, 328)
If $1 = "0xD3E9E7" Then
While 2
$2 = PixelGetColor(149, 328)
If $2 = "0xECFEF2" Then
MouseClick("Left", 24, 357)
Send($Input2, 1)
Send("{enter}")
ExitLoop
EndIf
WEnd
EndIf
$3 = PixelGetColor(37, 69)
If $3 = "0xEDEA3D" Then
MouseClick("Left", 37, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$4 = PixelGetColor(151, 69)
If $4 = "0xEDE93F" Then
MouseClick("Left", 151, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$4 = PixelGetColor(263, 69)
If $4 = "0xEDEA3D" Then
MouseClick("Left", 263, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$5 = PixelGetColor(371, 69)
If $5 = "0xEDE93F" Then
MouseClick("Left", 371, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
Sleep(50)
WEnd