|
You last visited: Today at 18:39
Advertisement
FarbCode wiedergabe
Discussion on FarbCode wiedergabe within the AutoIt forum part of the Coders Den category.
07/11/2011, 17:25
|
#1
|
elite*gold: 0 
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
FarbCode wiedergabe
Hallo Jungs
leider finde ich den Fehler nicht.
Die Var $Read3 ist richtig aber $Farbe ist null warum und wie löse ich das Problem.
Code:
Func _Pruefen()
$Read1 = GUICtrlRead($Input1,1)
$Read2 = GUICtrlRead($Input2,1)
$Read3 = GUICtrlRead($Input3,1)
$Farbe = StringFormat("%d\t", $Read3)
$Read4 = GUICtrlRead($Input4,1)
MsgBox(0,"Farbe",$Farbe)
MsgBox(0,"Farbe",$Read3)
If BitAND($Read2, Random(0, 9999)) Then
MouseMove($Read1, $Read2)
If Not @error Then
$MSG2 = MsgBox(4, "Speichern", "Wilst du die MausPosition Speichern?")
If $MSG2 = 7 Then
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUIGetMsg()
EndIf
EndIf
Else
If StringFormat("%d\t", $Read3) = True Then
$coord = PixelSearch($x2 - $x1, $y2 - $y1, $x2, $y2, $Farbe, $Read4)
If Not @error Then
MouseClick("right", $coord[0], $coord[1])
Sleep(2 * 1000)
$MSG1 = MsgBox(4, "Speichern", "Wilst du die Pixel/Farb Position Speichern?")
If $MSG1 = 7 Then
GUICtrlSetData($Input3, "")
GUIGetMsg()
EndIf
EndIf
EndIf
EndIf
EndFunc ;==>_Pruefen
MfG
Vierus
|
|
|
|
07/11/2011, 18:02
|
#2
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Schick mal dein gesamtes Script, dann kann man dir besser helfen.
|
|
|
|
|
07/12/2011, 21:14
|
#3
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Find ich zwar nicht so Toll den es könnte dich verwirren da es noch nicht ganz ausgereift ist also sind noch mehr Fehler drin.  aber kannst sie mir gerne alle aufzeigen. 
Code:
#RequireAdmin
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Farben By Vierus", 200, 240)
$Label1 = GUICtrlCreateLabel("MausPosition", 60, 0, 65, 20)
$Label2 = GUICtrlCreateLabel("X", 10, 22, 15, 20)
$Label3 = GUICtrlCreateLabel("Y", 100, 22, 15, 20)
$Input1 = GUICtrlCreateInput("", 25, 20, 30, 20); X achse
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 115, 20, 30, 20); Y Achse
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox = GUICtrlCreateCheckbox("Setze Farbe und Position", 10, 45, 140, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$Input3 = GUICtrlCreateInput("", 10, 65, 60, 20); Farbe
GUICtrlSetState(-1, $GUI_DISABLE)
$Graphic1 = GUICtrlCreateGraphic(115, 65, 40, 20)
GUICtrlSetColor(-1, 0xA0FFA0)
$Input4 = GUICtrlCreateInput("0", 80, 65, 25, 20); Toleranz
;~ GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Klick und Farbe Prüfen", 20, 100, 160, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Maus/Position Suchen", 20, 135, 160, 25, $WS_GROUP)
;~ $Button2 = GUICtrlCreateButton("Bereich der Suche Festlegen", 20, 135, 160, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Pixel/Farbe Suchen", 20, 170, 160, 25, $WS_GROUP)
;~ $Button2 = GUICtrlCreateButton("Bild Suchen", 20, 135, 160, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Ende", 20, 205, 160, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F5}", "Speichern")
Global $Paused, $Speichern, $Color
$x2 = @DesktopWidth
$y2 = @DesktopHeight
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox
If $nMsg == $Checkbox Then
$Read = GUICtrlRead($Checkbox)
If BitAND($Read, $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Input2, $GUI_DISABLE)
GUICtrlSetState($Input3, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
;~ MsgBox(0, "", "CHECKED")
ElseIf BitAND($Read, $GUI_UNCHECKED) Then
GUICtrlSetData($Input1,"")
GUICtrlSetState($Input1, $GUI_ENABLE)
;~ GUICtrlSetState($Input2, $GUI_ENABLE)
;~ GUICtrlSetState($Input3, $GUI_ENABLE)
;~ GUICtrlSetState($Button1, $GUI_ENABLE)
;~ MsgBox(0, "", "UNCHECKED")
EndIf
EndIf
_Checkbox()
Case $Input3
Do
$Read3 = GUICtrlRead($Input3)
$Read3 = StringFormat("%d\t", $Read3)
$Change = GUICtrlSetBkColor($Graphic1, $Read3)
Until $Change = 1
Case $Input4
If $nMsg == $Input4 Then
ToolTip("Farbtoleranz 0-255")
Sleep(5*1000)
EndIf
Case $Button1
_Pruefen()
Case $Button2
_PositionSuchen()
Case $Button3
_PixelSuchen()
Case $Button4
$MSG = MsgBox(1, "Ende", "Willst du wirklich Beenden")
If $MSG = 2 Then
Call($nMsg)
Else
ExitLoop
EndIf
EndSwitch
WEnd
Func _Checkbox()
Do
Sleep(5)
$Read = GUICtrlRead($Checkbox)
$Read1 = GUICtrlRead($Input1,1)
$Read2 = GUICtrlRead($Input2,1)
$Read3 = GUICtrlRead($Input3,1)
If BitAND($Read1, Random(0, 9999)) Then
GUICtrlSetState($Input2, $GUI_ENABLE)
ElseIf BitAND($Read2, Random(0, 9999)) Then
GUICtrlSetState($Input3, $GUI_ENABLE)
GUICtrlSetState($Button1, $GUI_ENABLE)
ElseIf BitAND($Read, $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Input2, $GUI_DISABLE)
GUICtrlSetState($Input3, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
ExitLoop
EndIf
Until BitAND($Read3, StringFormat("%#06x\t", $Read3))
EndFunc ;==>_Checkbox
Func _PositionSuchen()
While 1
$pos = MouseGetPos()
;~ MsgBox(0, "Maus x,y:", $pos[0] & "," & $pos[1])
GUICtrlSetData($Input1, $pos[0])
GUICtrlSetData($Input2, $pos[1])
If $Speichern = 1 Then
GUICtrlSetState($Button1, $GUI_ENABLE)
ExitLoop
EndIf
WEnd
EndFunc ;==>_Farben
Func _PixelSuchen()
While 1
$pos = MouseGetPos()
$Color = PixelGetColor($pos[0], $pos[1])
;~ $sMsgText = StringFormat("Der dezimale Wert der Farbe ist: %d\t", $Color)
;~ MsgBox(0, "PixelGetColor", $sMsgText)
;~ MsgBox(0, "PixelGetColor", $Color)
$sMsgText = StringFormat("%#06x\t", $Color)
GUICtrlSetData($Input3, $sMsgText)
GUICtrlSetBkColor($Graphic1, $Color)
If $Speichern = 1 Then
GUICtrlSetState($Button1, $GUI_ENABLE)
ExitLoop
EndIf
WEnd
EndFunc
Func _Pruefen()
$Read1 = GUICtrlRead($Input1,1)
$Read2 = GUICtrlRead($Input2,1)
$Read3 = GUICtrlRead($Input3,1)
;~ $Farbe = StringFormat("%d\t", $Read3)
$Read4 = GUICtrlRead($Input4,1)
;~ MsgBox(0,"Farbe",$Farbe)
;~ MsgBox(0,"Farbe",$Read3)
If BitAND($Read2, Random(0, 9999)) Then
MouseMove($Read1, $Read2)
If Not @error Then
$MSG2 = MsgBox(4, "Speichern", "Wilst du die MausPosition Speichern?")
If $MSG2 = 7 Then
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUIGetMsg()
EndIf
EndIf
EndIf
If StringFormat("%d\t", $Read3) = True Then
$coord = PixelSearch($Read1, $Read2, $x2, $y2, $Color, $Read4)
If Not @error Then
MouseClick("right", $coord[0], $coord[1])
Sleep(2 * 1000)
$MSG1 = MsgBox(4, "Speichern", "Wilst du die Pixel/Farb Position Speichern?")
If $MSG1 = 7 Then
GUICtrlSetData($Input3, "")
GUIGetMsg()
EndIf
EndIf
EndIf
EndFunc ;==>_Pruefen
Func Speichern()
If $Speichern = 0 Then
$Speichern += 1
Else
$Speichern -=1
EndIf
EndFunc ;==>Speichern
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script ist pausiert', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Bei:
$coord = PixelSearch($Read1, $Read2, $x2, $y2, $Color, $Read4)
habe ich mal $Color reingemacht damit geht es über den Pixelsuchen Button aber wenn man es eingeben will (Checkbox Hacken) geht das ja nicht also müsste $Read3 dahin wie oben da er das aber nicht macht hatte ich wie oben es mit der dierekten Variablen Deklaration also mit $Farbe aber es haut nicht hin der Klickt mir ins nichts bei der eingabe eines Farbwertes.
MfG
Vierus
|
|
|
|
|
07/13/2011, 00:13
|
#4
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Gewöhn dir am besten gleich die ganzen do und while schleifen ab, damit provozierst du nur dass sich dein Script in einer davon aufhängt. Konntes nämlich grade nur übern Task Manager wieder schließen.
Was willst du denn mit dem Script erreichen? Erklär mal kurz die gewünschten Funktionen der ganzen Checkboxen, Inputs, Buttons usw.... Kanns mir zwar schon denken, aber so wie du dein Script imo hast isses einfacher neu anzufagen 
|
|
|
|
|
07/13/2011, 01:14
|
#5
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Naja das Programm soll wenn man auf MausPosition Suchen Klickt die Positionen in Input1 und 2 anzeigen und wenn F5 gedrückt wurde dann schalte den Button Position Prüfen frei. Das gleiche soll dann mit Pixelsearch geschen also der Farbe.
Der Button Prüfen soll: wenn nur die Position X und Y angegeben wurde die Angezeigte/Eingegebene MousePosition Anzeigen, wenn X und Y und die Farbe angegeben wurde (eingrenzung des zu durchsuchendes Rechteck für Pixelsearc) soll er die Pixelposition der Farbe und die genaue Position Anzeigen.
(es ist gedacht das der Farbtolleranzwert auch in der Gui sichtbar gemacht wird wenn das geht, so wie ich die Anzeige der Farbe gemacht habe)
Die Checkbox ist nur zur Manuellen Eingabe der X und Y MausPosition und der Farbe (Freischaltung der Inputboxen damit man was reinschreiben kann).
So ich hoffe mal das Reicht an Infos.
MfG
Vierus
|
|
|
|
|
07/13/2011, 12:12
|
#6
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
So, hab mal nen bisschen aufgeräumt und dir ne GUI gebastelt die problemlos funktioniert. Was du genau machen willst weiß ich allerdings immer noch nicht.
Investier in der Zukunft mehr Zeit in die Variablebezeichnung, Kommentierung und Ordnung im Script, spart dir später bei größeren Scripts viel Zeit.
Sag was dir noch fehlt, dann können wir zusammen daran arbeiten. Und vergiss das thxen nicht wenn ich dir geholfen haben sollte.
Code:
;==================================================================================
;#RequireAdmin
;==================================================================================
#RequireAdmin
#NoTrayIcon
;==================================================================================
;Includes
;==================================================================================
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;==================================================================================
;Set Hotkeys
;==================================================================================
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F5}", "Speichern")
;==================================================================================
;Define Global Vars
;==================================================================================
Global $Paused = False
Global $ButtonMouseSearch_SWITCH = False, $ButtonColorSearch_SWITCH = False, $CheckboxDisableInputs_SWITCH = False, $F5_SWITCH = False
;==================================================================================
;Define GUI
;==================================================================================
#region
$Form1 = GUICreate("Farben By Vierus", 200, 240)
;Labels
$Label1 = GUICtrlCreateLabel("MausPosition", 60, 0, 65, 20)
$Label2 = GUICtrlCreateLabel("X", 10, 22, 15, 20)
$Label3 = GUICtrlCreateLabel("Y", 100, 22, 15, 20)
;Inputs
$InputX = GUICtrlCreateInput("0", 25, 20, 30, 20); X achse
$InputY = GUICtrlCreateInput("0", 115, 20, 30, 20); Y Achse
$InputColor = GUICtrlCreateInput("0", 10, 65, 60, 20); Farbe
$InputShader = GUICtrlCreateInput("0", 80, 65, 25, 20); Toleranz
GUICtrlSetState($InputX, $GUI_DISABLE)
GUICtrlSetState($InputY, $GUI_DISABLE)
GUICtrlSetState($InputColor, $GUI_DISABLE)
GUICtrlSetState($InputShader, $GUI_DISABLE)
;Checkboxes
$CheckboxDisableInputs = GUICtrlCreateCheckbox("Setze Farbe und Position", 10, 45, 140, 20)
GUICtrlSetState($CheckboxDisableInputs, $GUI_CHECKED)
;Graphics
$Graphic1 = GUICtrlCreateGraphic(115, 65, 40, 20)
GUICtrlSetColor($Graphic1, 0xFFFFFF)
;Buttons
$ButtonTestColor = GUICtrlCreateButton("Klick und Farbe Prüfen", 20, 100, 160, 25, $WS_GROUP)
$ButtonMouseSearch = GUICtrlCreateButton("Maus/Position Suchen", 20, 135, 160, 25, $WS_GROUP)
$ButtonColorSearch = GUICtrlCreateButton("Pixel/Farbe Suchen", 20, 170, 160, 25, $WS_GROUP)
$ButtonExit = GUICtrlCreateButton("Ende", 20, 205, 160, 25, $WS_GROUP)
GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#endregion
;==================================================================================
;Main Loop
;==================================================================================
While 1
; Get Inputs
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonExit
Exit
Case $ButtonTestColor
; was soll hier gemacht werden?
Case $ButtonMouseSearch
$ButtonMouseSearch_SWITCH = Not $ButtonMouseSearch_SWITCH
Case $ButtonColorSearch
$ButtonColorSearch_SWITCH = Not $ButtonColorSearch_SWITCH
EndSwitch
; Set Outputs
If GUICtrlRead($CheckboxDisableInputs) = $GUI_CHECKED And Not $CheckboxDisableInputs_SWITCH Then
GUICtrlSetState($InputX, $GUI_DISABLE)
GUICtrlSetState($InputY, $GUI_DISABLE)
GUICtrlSetState($InputColor, $GUI_DISABLE)
GUICtrlSetState($InputShader, $GUI_DISABLE)
$CheckboxDisableInputs_SWITCH = True
ElseIf GUICtrlRead($CheckboxDisableInputs) = $GUI_UNCHECKED And $CheckboxDisableInputs_SWITCH Then
GUICtrlSetState($InputX, $GUI_ENABLE)
GUICtrlSetState($InputY, $GUI_ENABLE)
GUICtrlSetState($InputColor, $GUI_ENABLE)
GUICtrlSetState($InputShader, $GUI_ENABLE)
$CheckboxDisableInputs_SWITCH = False
EndIf
If $ButtonMouseSearch_SWITCH Then
If MouseGetPos(0) <> GUICtrlRead($InputX) Then GUICtrlSetData($InputX, MouseGetPos(0))
If MouseGetPos(1) <> GUICtrlRead($InputY) Then GUICtrlSetData($InputY, MouseGetPos(1))
EndIf
If $ButtonColorSearch_SWITCH Then
If PixelGetColor(MouseGetPos(0), MouseGetPos(1)) <> GUICtrlRead($InputColor) Then
GUICtrlSetData($InputColor, hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1))))
GUICtrlSetColor($Graphic1, PixelGetColor(MouseGetPos(0), MouseGetPos(1)))
EndIf
EndIf
WEnd
;==================================================================================
;Speichern()
;==================================================================================
Func Speichern()
$F5_SWITCH = Not $F5_SWITCH
If $F5_SWITCH Then GUICtrlSetState($ButtonTestColor, $GUI_ENABLE)
If Not $F5_SWITCH Then GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
EndFunc
;==================================================================================
;TogglePause()
;==================================================================================
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script ist pausiert', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
;==================================================================================
;Terminate()
;==================================================================================
Func Terminate()
Exit 0
EndFunc ;==>Terminate
|
|
|
|
|
07/13/2011, 18:21
|
#7
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
So überarbeitet hab ichs jetzt um die Do schleifen werde ich wohl nicht drum rum komm. 
Den Hotkey Speichern F5 habe ich überarbeitet und die Funktionen den Buttons zugewiesen.
Aber das Hauptproblem Bleibt sieht zwar schöner aus aber besser ist es dadurch nicht geworden. Der Fehler bei Pixelsearce bleibt er sucht den Pixel nicht an der richtigen stelle wegen der Fehl interpretation des Farbcodes nehme ich mal an den mit der direckten eingabe eines Farbwertes gehts ja. 
Code:
;==================================================================================
;#RequireAdmin
;==================================================================================
#RequireAdmin
#NoTrayIcon
;==================================================================================
;Includes
;==================================================================================
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;==================================================================================
;Set Hotkeys
;==================================================================================
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F5}", "Speichern")
;==================================================================================
;Define Global Vars
;==================================================================================
Global $Paused = False
Global $ButtonMouseSearch_SWITCH = False, $ButtonColorSearch_SWITCH = False, $CheckboxDisableInputs_SWITCH = False, $F5_SWITCH = False
$x2 = @DesktopWidth
$y2 = @DesktopHeight
;==================================================================================
;Define GUI
;==================================================================================
#region
$Form1 = GUICreate("Farben By Vierus", 200, 240)
;Labels
$Label1 = GUICtrlCreateLabel("MausPosition", 60, 0, 65, 20)
$Label2 = GUICtrlCreateLabel("X", 10, 22, 15, 20)
$Label3 = GUICtrlCreateLabel("Y", 100, 22, 15, 20)
;Inputs
$InputX = GUICtrlCreateInput("0", 25, 20, 30, 20); X achse
$InputY = GUICtrlCreateInput("0", 115, 20, 30, 20); Y Achse
$InputColor = GUICtrlCreateInput("0", 10, 65, 60, 20); Farbe
$InputShader = GUICtrlCreateInput("0", 80, 65, 25, 20); Toleranz
GUICtrlSetState($InputX, $GUI_DISABLE)
GUICtrlSetState($InputY, $GUI_DISABLE)
GUICtrlSetState($InputColor, $GUI_DISABLE)
GUICtrlSetState($InputShader, $GUI_DISABLE)
;Checkboxes
$CheckboxDisableInputs = GUICtrlCreateCheckbox("Setze Farbe und Position", 10, 45, 140, 20)
GUICtrlSetState($CheckboxDisableInputs, $GUI_CHECKED)
;Graphics
$Graphic1 = GUICtrlCreateGraphic(115, 65, 40, 20)
GUICtrlSetColor($Graphic1, 0xFFFFFF)
;Buttons
$ButtonTestColor = GUICtrlCreateButton("Klick und Farbe Prüfen", 20, 100, 160, 25, $WS_GROUP)
$ButtonMouseSearch = GUICtrlCreateButton("Maus/Position Suchen", 20, 135, 160, 25, $WS_GROUP)
$ButtonColorSearch = GUICtrlCreateButton("Pixel/Farbe Suchen", 20, 170, 160, 25, $WS_GROUP)
$ButtonExit = GUICtrlCreateButton("Ende", 20, 205, 160, 25, $WS_GROUP)
GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#endregion
;==================================================================================
;Main Loop
;==================================================================================
While 1
; Get Inputs
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonExit
Exit
Case $ButtonTestColor
MouseMove(GUICtrlRead($InputX), GUICtrlRead($InputY));simpler MouseMove um zu sehen ob die Angaben Richtig sind
If Not @error Then
$MSG2 = MsgBox(4, "Speichern", "Wilst du die MausPosition Speichern?")
If $MSG2 = 7 Then
GUICtrlSetData($InputX, "")
GUICtrlSetData($InputY, "")
GUIGetMsg()
EndIf
EndIf
$Pos = PixelSearch(GUICtrlRead($InputX), GUICtrlRead($InputY), $x2, $y2, GUICtrlRead($InputColor), GUICtrlRead($InputShader))
If Not @error Then
MouseClick("right", $Pos[0], $Pos[1]);simpler Klick um zu sehen wo er angeblich den Pixel Findet
Sleep(2 * 1000)
$MSG1 = MsgBox(4, "Speichern", "Wilst du die Pixel/Farb Position Speichern?")
If $MSG1 = 7 Then
GUICtrlSetData($InputColor, "")
GUICtrlSetData($InputShader, "")
GUIGetMsg()
EndIf
EndIf
; Eine Simple Überprüfung soll hier gemacht werden!
Case $ButtonMouseSearch
$ButtonMouseSearch_SWITCH = Not $ButtonMouseSearch_SWITCH
$F5_SWITCH = False
Do
If $ButtonMouseSearch_SWITCH Then
If MouseGetPos(0) <> GUICtrlRead($InputX) Then GUICtrlSetData($InputX, MouseGetPos(0))
If MouseGetPos(1) <> GUICtrlRead($InputY) Then GUICtrlSetData($InputY, MouseGetPos(1))
EndIf
Until $F5_SWITCH = True
Case $ButtonColorSearch
$ButtonColorSearch_SWITCH = Not $ButtonColorSearch_SWITCH
$F5_SWITCH = False
Do
If $ButtonColorSearch_SWITCH Then
If PixelGetColor(MouseGetPos(0), MouseGetPos(1)) <> GUICtrlRead($InputColor) Then
GUICtrlSetData($InputColor, Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1))))
GUICtrlSetBkColor($Graphic1, PixelGetColor(MouseGetPos(0), MouseGetPos(1)))
EndIf
EndIf
Until $F5_SWITCH = True
EndSwitch
; Set Checkbox
If GUICtrlRead($CheckboxDisableInputs) = $GUI_CHECKED And Not $CheckboxDisableInputs_SWITCH Then
GUICtrlSetState($InputX, $GUI_DISABLE)
GUICtrlSetState($InputY, $GUI_DISABLE)
GUICtrlSetState($InputColor, $GUI_DISABLE)
GUICtrlSetState($InputShader, $GUI_DISABLE)
$CheckboxDisableInputs_SWITCH = True
ElseIf GUICtrlRead($CheckboxDisableInputs) = $GUI_UNCHECKED And $CheckboxDisableInputs_SWITCH Then
GUICtrlSetState($InputX, $GUI_ENABLE)
GUICtrlSetState($InputY, $GUI_ENABLE)
GUICtrlSetState($InputColor, $GUI_ENABLE)
GUICtrlSetState($InputShader, $GUI_ENABLE)
$CheckboxDisableInputs_SWITCH = False
EndIf
WEnd
;==================================================================================
;Speichern()
;==================================================================================
Func Speichern()
$F5_SWITCH = True
If $F5_SWITCH = True Then
GUICtrlSetState($ButtonTestColor, $GUI_ENABLE)
ElseIf $F5_SWITCH = False Then
GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
EndIf
EndFunc ;==>Speichern
;==================================================================================
;TogglePause()
;==================================================================================
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script ist pausiert', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
;==================================================================================
;Terminate()
;==================================================================================
Func Terminate()
Exit 0
EndFunc ;==>Terminate
MfG
Vierus
Ps: Thanks kriegste Trotzdem für die nette Arbeit es nochmal zu Skripten
|
|
|
|
|
07/13/2011, 19:13
|
#8
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
Quote:
Code:
MouseMove(GUICtrlRead($InputX), GUICtrlRead($InputY))
[COLOR="Red"]If Not @error Then <--- MouseMove kann @error nicht setzen, daher nutzlos[/COLOR]
|
Quote:
Code:
If $MSG2 = 7 Then
GUICtrlSetData($InputX, "")
GUICtrlSetData($InputY, "")
[COLOR="Red"]GUIGetMsg() <-- was hat das jetzt dort zu suchen?[/COLOR]
EndIf
|
Quote:
Code:
$Pos = PixelSearch(GUICtrlRead($InputX), GUICtrlRead($InputY), $x2, $y2, GUICtrlRead($InputColor), GUICtrlRead($InputShader))
|
verstehe immmernoch nicht, was das pixelsearch hier überhaupt zu suchen hat, bzw was das tool denn überhaupt bringen soll...
Quote:
Code:
[COLOR="Red"]Do <-- do schleifen überflüssig... zustandswechsel reicht[/COLOR]
If $ButtonMouseSearch_SWITCH Then
If MouseGetPos(0) <> GUICtrlRead($InputX) Then GUICtrlSetData($InputX, MouseGetPos(0))
If MouseGetPos(1) <> GUICtrlRead($InputY) Then GUICtrlSetData($InputY, MouseGetPos(1))
EndIf
[COLOR="Red"]Until $F5_SWITCH = True[/COLOR]
|
Quote:
Code:
[COLOR="Red"]$F5_SWITCH = True[/COLOR]
If $F5_SWITCH = True Then
GUICtrlSetState($ButtonTestColor, $GUI_ENABLE)
[COLOR="Red"]ElseIf $F5_SWITCH = False Then <--- $x = False ... if $x=True = nutzlose abfrage[/COLOR]
GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
EndIf
|
zu deinem problem kann ich leider nichts sagen, da ich nicht weis was das tool machen soll...
|
|
|
|
|
07/13/2011, 20:59
|
#9
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Meine Güte wollt ihr mich den in den Wahnsinn Treiben?
Das Programm soll so wie es jetzt ist Funktionieren !!! (und ohne das mann Buchstaben in die Inputboxen schreiben kann / darum war "If BitAND($Read2, Random(0, 9999)) Then" das oben im Skript)
Nix mit warum das und das sondern ne Antwort warum:
Quote:
|
$Pos = PixelSearch(GUICtrlRead($InputX), GUICtrlRead($InputY), $x2, $y2, GUICtrlRead($InputColor), GUICtrlRead($InputShader))
|
Das Hier Nicht Funktioniert !!!
Der sinn ist weitreichender da es als eine art Konfigurator für ein anderes PG ist !!!
Sorry aber bin echt am zweifeln ob Ihr überhaupt das Problem lösen wollt oder Ihr mir immer wieder neu steine in den weg legen wollt, es gibt unterschiedliche wege nach Rom zu komm das sieht man ja an den zwei Skripten die das gleiche machen.
Aber sinnlos das Thema auszudenen und mir alles vor zu kauen ist nicht der sinn der Frage gewesen!
Für die Hilfe in Schreibform und Fehler erkennung bin ich echt Dankbar.
Also mehr kann ich es nicht mehr beschreiben was das Tool machen soll Lies doch mal bitte alle Post von Oben!
Die Frage stellung war klar und das Problem liegt nur an der Variable (Farbe) in Pixelsearc wo ist da das Problem mir den Fehler zu zeigen?
Quote:
$F5_SWITCH = True
If $F5_SWITCH = True Then
GUICtrlSetState($ButtonTestColor, $GUI_ENABLE)
ElseIf $F5_SWITCH = False Then <--- $x = False ... if $x=True = nutzlose abfrage
GUICtrlSetState($ButtonTestColor, $GUI_DISABLE)
EndIf
|
Natürlich ist das bestimmen Überflüssig erhöht aber die Lesbarkeit!
Und so wies war wars nutzlos. so What
Quote:
|
GUIGetMsg() <-- was hat das jetzt dort zu suchen?
|
Ja nee da kommt noch was.
Quote:
MouseMove(GUICtrlRead($InputX), GUICtrlRead($InputY))
If Not @error Then <--- MouseMove kann @error nicht setzen, daher nutzlos
|
Simmt mein fehler da fehlt noch was.(If BitAND($Read2, Random(0, 9999)) Then)
Gibt auch kein error aus also muss ich mir da noch was besseres einfallen lassen.
Danke für die Hilfe
MfG
Vierus
|
|
|
|
|
07/13/2011, 22:02
|
#10
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Quote:
Originally Posted by Vierus.exe
Meine Güte wollt ihr mich den in den Wahnsinn Treiben?
Das Programm soll so wie es jetzt ist Funktionieren !!! (und ohne das mann Buchstaben in die Inputboxen schreiben kann / darum war "If BitAND($Read2, Random(0, 9999)) Then" das oben im Skript)
Nix mit warum das und das sondern ne Antwort warum:
Das Hier Nicht Funktioniert !!!
Der sinn ist weitreichender da es als eine art Konfigurator für ein anderes PG ist !!!
Sorry aber bin echt am zweifeln ob Ihr überhaupt das Problem lösen wollt oder Ihr mir immer wieder neu steine in den weg legen wollt, es gibt unterschiedliche wege nach Rom zu komm das sieht man ja an den zwei Skripten die das gleiche machen.
Aber sinnlos das Thema auszudenen und mir alles vor zu kauen ist nicht der sinn der Frage gewesen!
Für die Hilfe in Schreibform und Fehler erkennung bin ich echt Dankbar.
Also mehr kann ich es nicht mehr beschreiben was das Tool machen soll Lies doch mal bitte alle Post von Oben!
Die Frage stellung war klar und das Problem liegt nur an der Variable (Farbe) in Pixelsearc wo ist da das Problem mir den Fehler zu zeigen?
Natürlich ist das bestimmen Überflüssig erhöht aber die Lesbarkeit!
Und so wies war wars nutzlos. so What
Ja nee da kommt noch was.
Simmt mein fehler da fehlt noch was.(If BitAND($Read2, Random(0, 9999)) Then)
Gibt auch kein error aus also muss ich mir da noch was besseres einfallen lassen.
Danke für die Hilfe
MfG
Vierus
|
Dein Script war von oben bis unten voll mit Fehlern. Nachdem ich es aufgeräumt und Bugfrei gemacht habe, hast du die Frechheit zu behaupten dass lediglich der Source nach meiner Bearbeitung besser aussieht. Sorry, aber mit diesem Post hast du dir jeglichen Support meinerseits verspielt.
"lolkop" und ich haben bestimmt mehr als ausreichend Skills um bei vielen deiner Probleme zu helfen. Nun musst du aber auch versuchen dir unseren Rat anzunehmen und deine Probleme klar zu schildern. Denn wir helfen dir nicht weil wir es müssen, sondern weil wir es von uns aus gerne tun. Das erfordert aber auch eine angemessene und respektvolle Wortwahl uns gegenüber, schließlich willst du etwas von uns und nicht umgekehrt.
Schau dir mein Script an, versuch zu verstehen was es macht und pass es an deine Ansprüche an. Wenn ich mir ansehe wie sehr du mein Script wieder zerstört und verunstaltet hast, dann wird mir klar dass du rein gar nichts von dem verstanden hast.
Wenn du weiterhin Support von mir willst erwarte ich in Zukunft eine andere Umgangsform.
|
|
|
|
|
07/13/2011, 22:58
|
#11
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Quote:
|
Dein Script war von oben bis unten voll mit Fehlern. Nachdem ich es aufgeräumt und Bugfrei gemacht habe, hast du die Frechheit zu behaupten dass lediglich der Source nach meiner Bearbeitung besser aussieht.
|
Weiß nicht was du Bugfrei nennst?
Aber dein Skript Läuft so überhaupt nicht und hängt in der Funktion F5 die so keinen sinn hatte,die Farbe wurde nicht angezeigt auf der Gui und die Funktionen unter Case $ButtonColorSearch und Case $ButtonTestColor müssen seperat sein da ja sonst auch ein Button ausreichen würde like Farbe und Position suchen.
(Meins tat genau das gleiche While hin oder her!!!)
Für die Hinweisse bin ich ja auch Dankbar und das euer Skill größer ist sehe ich selber.
Aber meint Ihr nicht mir wäre schneller und einfacher geholfen wenn Ihr die Frage einfach mal beantwortet.
Sorry wenn ich euch aufn schlips getretten hab aber so Viele gegenfragen die nichts mit dem Problem zu tun haben sind für mich als new be in AutoIt sinnlos da ich die Funktionen erst kennenlernen muss um Richtig schreiben zu können.
Das Skript versteh ich sehr gut und das ich ne andere schreib form habe ist mir auch aufgefallen aber das das bei dir zu unmut führt versteh ich nicht denn wie ich schon sagte viele wege führen nach Rom und wo steht bitte das While nicht benutzt werden soll wenn man es ordentlich beendet (exitloopt) gibts doch da keine Probleme.
Der Farbwert der in InputBox3 ist soll mit Pixelsearc gefunden werden wobei die Inputbox1 und 2 die eingrenzung des Rechteckes sind aber die Farbe wird nicht gefunden weil die Variable in der Inputbox3 nicht mit Pixelsearce kompatiebel zu sein scheint. Was soll ich da noch mehr Erklären. Da gibts nichts mehr!
MfG
Vierus
|
|
|
|
|
07/13/2011, 23:34
|
#12
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
So, lies dir bitte vorher nochmal genau den 5ten Post dieses Treads durch.
Danach kannst du hier weiter lesen.
Quote:
Originally Posted by Vierus.exe
... in der Funktion F5 die so keinen sinn hatte...
|
Du hast geschrieben, dass man mit F5 den Position Prüfen Button freischalten soll, was mein Script auch macht. Was dann allerdings dieser freigeschaltete Button machen soll konnte ich nicht nachvollziehen.
Quote:
Originally Posted by Vierus.exe
die Farbe wurde nicht angezeigt auf der Gui
|
Schonmal den" Pixel/Farbe Suchen" Button gedrückt?!
Quote:
Originally Posted by Vierus.exe
die Funktionen unter Case $ButtonColorSearch und Case $ButtonTestColor müssen seperat sein da ja sonst auch ein Button ausreichen würde like Farbe und Position suchen.
|
Du hast geschrieben, dass mit den Button die Position in den Inputs angezeigt werden soll, was mein Script auch macht. Für die Farbe galt Gleiches.
Quote:
Originally Posted by Vierus.exe
wo steht bitte das While nicht benutzt werden soll wenn man es ordentlich beendet (exitloopt) gibts doch da keine Probleme.
|
Stimmt, aber warum machst du dass dann nicht mit deinen While/do Schleifen?
|
|
|
|
|
07/14/2011, 03:35
|
#13
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Also wenn du mich schon des Postes Nr.5 verweißt hättest du auch lesen müssen was der (Freigeschalteter) Button Prüfen machen soll den da hab ich alles Beschrieben.
Quote:
Der Button Prüfen soll: wenn nur die Position X und Y angegeben wurde die Angezeigte/Eingegebene MousePosition Anzeigen, wenn X und Y und die Farbe angegeben wurde (eingrenzung des zu durchsuchendes Rechteck für Pixelsearc) soll er die Pixelposition der Farbe und die genaue Position Anzeigen.
(es ist gedacht das der Farbtolleranzwert auch in der Gui sichtbar gemacht wird wenn das geht, so wie ich die Anzeige der Farbe gemacht habe)
Die Checkbox ist nur zur Manuellen Eingabe der X und Y MausPosition und der Farbe (Freischaltung der Inputboxen damit man was reinschreiben kann).
|
F5 ist der Funktion Speichern zu geordnet also sollen die Wert auch stehen bleiben das tuts bei dir Definitiv nicht.
Quote:
|
Schonmal den" Pixel/Farbe Suchen" Button gedrückt?!
|
Na kalro aber GUICtrlSetColor ist nicht gleich GUICtrlSetBkColor so wie ich es wollte / will ja nicht nur die Umrandung einfärben.
Quote:
|
Du hast geschrieben, dass mit den Button die Position in den Inputs angezeigt werden soll, was mein Script auch macht. Für die Farbe galt Gleiches.
|
Klaro zeigt dien Skript alles fein an aber was nützt mir das wenn ichs nicht Stopen kann und nen Exitloop in der Gui schleife zu bringen ist glaube nicht sinvoll.
Quote:
|
Stimmt, aber warum machst du dass dann nicht mit deinen While/do Schleifen?
|
Mach ich doch siehe mein erstes Skript und die paar Fehler, sagte ja es ist noch nicht Fertig gewesen und es könnte mehr verwirren als nützen.
So Letztens bin ich genauso weit wie vorher meine Ursprüngliche Frage wurde nicht beantwortet und wir schreiben über ein Tool das bis jetzt nichts kann ausser was Anzeigen.
Du hast zwar alles schön geschrieben  aber genau um das Problem drumrum  .
Das ganze Bringt mich auch nicht weiter also Bitte ich doch drum dem ganzen Heckmek ein ende zu setzen und auf den Punkt zu kommen.
Was muss ich machen / beachten.
Damit der Eingegebene / Gesuchte Farbwert mit dem Befehl Pixelsearce Funktioniert da es mit GUICtrlRead($InputColor) nicht geht?
MfG
Vierus
|
|
|
|
|
07/15/2011, 00:56
|
#14
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Hier nochmal Das Problem im Detail.
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Farben", 200, 240)
$Label1 = GUICtrlCreateLabel("MausPosition", 60, 0, 65, 20)
$Label2 = GUICtrlCreateLabel("X", 10, 22, 15, 20)
$Label3 = GUICtrlCreateLabel("Y", 100, 22, 15, 20)
$Input1 = GUICtrlCreateInput("", 25, 20, 30, 20); X achse
$Input2 = GUICtrlCreateInput("", 115, 20, 30, 20); Y Achse
$Input3 = GUICtrlCreateInput("", 10, 65, 60, 20); Farbe
$Input4 = GUICtrlCreateInput("0", 80, 65, 25, 20); Toleranz
$Button3 = GUICtrlCreateButton("Pixel/Farbe Suchen", 20, 170, 160, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Ende", 20, 205, 160, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Read1 = GUICtrlRead($Input1,1)
$Read2 = GUICtrlRead($Input2,1)
$Read3 = GUICtrlRead($Input3,1)
$Read4 = GUICtrlRead($Input4,1)
$x1 = 1105
$y1 = 1005
$x2 = @DesktopWidth
$y2 = @DesktopHeight
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
$coord = PixelSearch($Read1, $Read2, $x2, $y2, $Read3, $Read4)
MouseClick("right", $coord[0], $coord[1])
Sleep(2 * 1000)
$MSG1 = MsgBox(4, "Speichern", "Wilst du die Pixel/Farb Position Speichern?")
If $MSG1 = 7 Then
GUICtrlSetData($Input3, "")
GUIGetMsg()
EndIf
Case $Button4
$MSG = MsgBox(1, "Ende", "Willst du wirklich Beenden")
If $MSG = 2 Then
Call($nMsg)
Else
ExitLoop
EndIf
EndSwitch
WEnd
Leider sucht er die gewünschte Farbe nicht Richtig.(die Daten übernehme ich 1:1 von dem AutoIt Windowtool)
Was ist bei der Variable $Read3 beim Pixelsearc Befehl Falsch?
MfG
Vierus
|
|
|
|
|
07/15/2011, 22:48
|
#15
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Der sinn entschließt sich mir zwar immer noch... Aufjdenefall wird jetzt die angegebene Farbe gesucht. Einfach die Farbe in Hexadezimal und ohne "0x" eingeben und suchen.
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Farben", 200, 240)
$Label1 = GUICtrlCreateLabel("MausPosition", 60, 0, 65, 20)
$Label2 = GUICtrlCreateLabel("X", 10, 22, 15, 20)
$Label3 = GUICtrlCreateLabel("Y", 100, 22, 15, 20)
$Label4 = GUICtrlCreateLabel("0x", 13, 67, 15, 20)
$Input1 = GUICtrlCreateInput("", 25, 20, 30, 20); X achse
$Input2 = GUICtrlCreateInput("", 115, 20, 30, 20); Y Achse
$Input3 = GUICtrlCreateInput("ffffff", 25, 65, 60, 20); Farbe
$Input4 = GUICtrlCreateInput("0", 95, 65, 25, 20); Toleranz
$Button3 = GUICtrlCreateButton("Pixel/Farbe Suchen", 20, 170, 160, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Ende", 20, 205, 160, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$x1 = 1105
$y1 = 1005
$x2 = @DesktopWidth
$y2 = @DesktopHeight
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
$Read1 = GUICtrlRead($Input1, 1)
$Read2 = GUICtrlRead($Input2, 1)
$Read3 = GUICtrlRead($Input3, 1)
$Read4 = GUICtrlRead($Input4, 1)
$coord = PixelSearch($Read1, $Read2, $x2, $y2, "0x" & $Read3, $Read4)
If IsArray($coord) then
MouseMove($coord[0], $coord[1])
Else
MsgBox("", "", "Farbe nicht gefunden")
EndIf
Case $Button4
$MSG = MsgBox(1, "Ende", "Willst du wirklich Beenden")
If $MSG = 1 Then
Exit
EndIf
EndSwitch
WEnd
|
|
|
|
Similar Threads
|
Problem mit Video wiedergabe
06/08/2011 - Technical Support - 7 Replies
Hi,
ich hab ein Problem mit der Wiedergabe von Videos...
Ich hab eine HD Camera gekauft und ein Video aufgenommen, diese ist im .avi format und hat 1080P.. nun wollte ich das Video abspielen, was nicht geht, da diese in Zeitlupe läuft, doch nur das Bild der Ton ist richtig, woran liegt das? mit Nicht HD videos klappt das, könnt ihr mir helfen?
MFG
.Adidas
PS: Bereits 1stunde gegooglet.
|
Wie finde ich den Farbcode?
06/09/2010 - General Coding - 3 Replies
Hey Liebe Community,
Mein Freund ist bei einem Script so einem Farbcode begegnet.
0x0080C0
Solch einen Farbcode brauch ich für diese Farbe
http://s1.directupload.net/images/100609/temp/wrx 9kn4u.jpg
|
Farbcode Grüner items gesucht
08/09/2005 - World of Warcraft - 12 Replies
genau. also zum beispil nen... scharlachroter helm des falken oder so, die farbe der überschrift.
von dem grün brauch ich nen hexadezimalen code.
danke sehr!
|
All times are GMT +1. The time now is 18:43.
|
|
