Includes gesucht

[Σternαl.]

Hey Community,
ich hab mir grad ein Gui Scrpit mit Koda errstellt, aber bekanntich vergisst
Koda leider immer, die Includes mit in den Source zu nehmen.

Ich brauche die Includes für die folgenden Variablen:
$WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS$WS_EX OVERLAPPED WINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDO WEDGE

Danke im Voraus!

[| Moep |]

#include <guiconstants.au3>

..komisch, bei mir vergisst er die nie...

[huberhans]

Originally Posted by | Moep |

#include <guiconstants.au3>

..komisch, bei mir vergisst er die nie...

Und ich dachte immer, die $WS... und $WS_EX wären im

#include <WindowsConstants.au3>

Gruß

[Σternαl.]

Danke, ich versuchs gleich mal mit WindowsConstants ^^

@Moep
GuiConstants includet er immer, das ist aber nicht der Include, den ich brauche.

€dit: So, habs getestet mit WindowsConstants und jetzt klappts^^

Aber ein Problem hab ich noch:
Und zwar zeig er mir die GUI nicht so an, wie ich es in Koda erstellt hab, hier mal ein Bild, wie es sein sollte.



Und dann hab ich noch ein Problem, und zwar mault der Compiler wegen $ms2[1] = 1234.
"$ms2^ERROR" Was mach ich falsch?

[FichteFoll]

Originally Posted by FooFightah

Aber ein Problem hab ich noch:
Und zwar zeig er mir die GUI nicht so an, wie ich es in Koda erstellt hab.

Und dann hab ich noch ein Problem, und zwar mault der Compiler wegen $ms2[1] = 1234.
"$ms2^ERROR" Was mach ich falsch?

1. , ist ein Must-Have

2. Wie zeigt er es denn an? Bekommen ich/wir auch mal den Code? Also Parameter von GUICreate.

3. wenn du den Array neu definierst musst du
"Global $ms2[1] = [1234]" benutzen. Oder

"Global $ms2[1]

$ms2[0] = 1234"

[Σternαl.]

Originally Posted by FichteFoll

1. , ist ein Must-Have

2. Wie zeigt er es denn an? Bekommen ich/wir auch mal den Code? Also Parameter von GUICreate.

3. wenn du den Array neu definierst musst du
"Global $ms2[1] = [1234]" benutzen. Oder

"Global $ms2[1]

$ms2[0] = 1234"

Erstmal vielen Dank! Das Tool ist echt mal praktisch^^

Und zwar sieht es so aus, wenn ich das Script laufen lass.


Hier mal die GUICreate

PHP Code:

$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) 


Meinetwegen kannst du auch den ganzen Source haben, das ist ein kleines InfoTool.

 Spoiler

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

Global $ms2[2]
$ms2[0] = 1234567890
$ms2[1] = 1234567890
While 1
    $ms = MouseGetPos()
    $clr = PixelGetColor($ms[0], $ms[1])
    If Not $ms2[0] = $ms[0] And Not $ms2[1] = $ms[1]Then
        sleep(1)
    Else
        $Label3 = GUICtrlCreateLabel($ms[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label4 = GUICtrlCreateLabel($ms[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms2 = MouseGetPos()
    EndIf
WEnd

Func _exit()
    Exit
EndFunc 


Das Tool an sich klappt, aber die Zahlen sind andauernd am flimmern, weil
das Programm ja sehr schnell hintereinander die While Schleife durch geht.
Deswegen hab ich mir gedacht, dass das Programm nur dann einen Wert
als Label schreiben soll, wenn ich die Maus bewege = die Koordinaten sich verändern.
Als ich das nur mit dem Farben und noch ohne Mauskoordinaten hatte, hat
das ganz einfach geklappt, indem ich vor dem Label mit ner If Schleife
überprüft hab, ob sich die Farbe verändert hat. Dann war das Flimmern weg.
Aber jetzt flimmerts komischerweise immernoch, könnt ihr das irgendwie wegkriegen?
€dit: Ja, ich weiß, dass der 2. Include unnötig ist^^

[Shadow992]

Originally Posted by FooFightah

Erstmal vielen Dank! Das Tool ist echt mal praktisch^^

Und zwar sieht es so aus, wenn ich das Script laufen lass.


Hier mal die GUICreate

PHP Code:

$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) 


Meinetwegen kannst du auch den ganzen Source haben, das ist ein kleines InfoTool.

 Spoiler

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

Global $ms2[2]
$ms2[0] = 1234567890
$ms2[1] = 1234567890
While 1
    $ms = MouseGetPos()
    $clr = PixelGetColor($ms[0], $ms[1])
    If Not $ms2[0] = $ms[0] And Not $ms2[1] = $ms[1]Then
        sleep(1)
    Else
        $Label3 = GUICtrlCreateLabel($ms[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label4 = GUICtrlCreateLabel($ms[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms2 = MouseGetPos()
    EndIf
WEnd

Func _exit()
    Exit
EndFunc 


Das Tool an sich klappt, aber die Zahlen sind andauernd am flimmern, weil
das Programm ja sehr schnell hintereinander die While Schleife durch geht.
Deswegen hab ich mir gedacht, dass das Programm nur dann einen Wert
als Label schreiben soll, wenn ich die Maus bewege = die Koordinaten sich verändern.
Als ich das nur mit dem Farben und noch ohne Mauskoordinaten hatte, hat
das ganz einfach geklappt, indem ich vor dem Label mit ner If Schleife
überprüft hab, ob sich die Farbe verändert hat. Dann war das Flimmern weg.
Aber jetzt flimmerts komischerweise immernoch, könnt ihr das irgendwie wegkriegen?
€dit: Ja, ich weiß, dass der 2. Include unnötig ist^^

Probiers doch mal so

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

Global $ms2[2]
$ms2[0] = 1234567890
$ms2[1] = 1234567890
While 1
    $ms = MouseGetPos()
    $clr = PixelGetColor($ms[0], $ms[1])
    If $ms2[0] = $ms[0] And $ms2[1] = $ms[1]Then
        sleep(1)
    Else
        $Label3 = GUICtrlCreateLabel($ms[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label4 = GUICtrlCreateLabel($ms[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms2 = MouseGetPos()
    EndIf
WEnd

Func _exit()
    Exit
EndFunc 


[| Moep |]

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)
$ms0 = MouseGetPos()
While 1
    $ms1 = MouseGetPos()
    If $ms0[0] <> $ms1[0] or $ms0[1] <> $ms1[1] Then
		$ms0 = MouseGetPos()
		$clr = PixelGetColor($ms0[0], $ms0[1])
		$Label3 = GUICtrlCreateLabel($ms0[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label4 = GUICtrlCreateLabel($ms0[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	EndIf
    sleep(1)
WEnd

Func _exit()
    Exit
EndFunc

Edit. meins is ressourcen schonender, da er erst den pixel ausliest wenn sich die maus bewegt hat
Edit2. Außerdem musst du bei Shadows script die x AND y pos der maus verändern um ein refresh deiner gui zu erzwingen, bei mir kommt des schon bei nur einer Achse...

[Σternαl.]

Danke Moep, jetzt muss ich nurnoch das Problem mit der GUI lösen^^

[FichteFoll]

Ich würde eher CtrlSetData benutzen.

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y", 689, 22, 189, 252, -1, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit"); $WS_EX_TOOLWINDOW

$ms = MouseGetPos()
$clr = PixelGetColor($ms[0], $ms[1])
$Label3 = GUICtrlCreateLabel($ms[0], 400, 0, 51, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel($ms[1], 560, 0, 51, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

Global $ms2[2]
$ms2[0] = 1234567890
$ms2[1] = 1234567890
While 1
    $ms = MouseGetPos()
    $clr = PixelGetColor($ms[0], $ms[1])

    If $ms2[0] <> $ms[0] And $ms2[1] <> $ms[1]Then
        GUICtrlSetData($Label1, $clr)
        GUICtrlSetData($Label2, Hex($clr))
        GUICtrlSetData($Label3, $ms[0])
        GUICtrlSetData($Label4, $ms[1])
    EndIf

    Sleep(200)
WEnd

Func _exit()
    Exit
EndFunc 


[| Moep |]

Originally Posted by FooFightah

Danke Moep, jetzt muss ich nurnoch das Problem mit der GUI lösen^^

this!?

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_CAPTION ,$WS_SYSMENU), $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)
$ms0 = MouseGetPos()
While 1
    $ms1 = MouseGetPos()
    If $ms0[0] <> $ms1[0] or $ms0[1] <> $ms1[1] Then
		$ms0 = MouseGetPos()
		$clr = PixelGetColor($ms0[0], $ms0[1])
		$Label3 = GUICtrlCreateLabel($ms0[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label4 = GUICtrlCreateLabel($ms0[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	EndIf
    sleep(1)
WEnd

Func _exit()
    Exit
EndFunc

edit

Originally Posted by FichteFoll

Ich würde eher CtrlSetData benutzen.

Jop, stimmt. garnicht bemerk, so veränderst du nur den wert des Labels. In FooFightah´s Version wird dass label jedesmal über den vorhergehenden neu erzeugt...

[Σternαl.]

So >_>
Erstmal danke für die Codes, aber ich habs jetzt folgendermaßen gemacht =D

 Spoiler

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

$ms0 = MouseGetPos()
$clr2 = 1
While 1
    $ms1 = MouseGetPos()
    If $ms0[0] <> $ms1[0] Then
        $clr = PixelGetColor($ms0[0], $ms0[1])
        $Label3 = GUICtrlCreateLabel($ms0[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms0 = MouseGetPos()
        
        If $clr2 <> $clr Then
            $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $clr2 = PixelGetColor($ms0[0], $ms0[1])
        Else
            sleep(1)
        EndIf
    Else
        sleep(1)
    EndIf
        
    If $ms0[1] <> $ms1[1] Then
        $clr = PixelGetColor($ms0[0], $ms0[1])
        $Label4 = GUICtrlCreateLabel($ms0[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms0 = MouseGetPos()
        
        If $clr2 <> $clr Then
            $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $clr2 = PixelGetColor($ms0[0], $ms0[1])
        Else
            sleep(1)
        EndIf
    Else        
        sleep(1)
    EndIf
WEnd

Func _exit()
    Exit
EndFunc 


[| Moep |]

Originally Posted by FooFightah

So >_>
Erstmal danke für die Codes, aber ich habs jetzt folgendermaßen gemacht =D

 Spoiler

PHP Code:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("COLOR                                          COLOR(HEX)                                           MOUSE X                                     MOUSE Y                      ", 689, 22, 189, 252, BitOR($WS_SYSMENU,$WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_RIGHT,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

$ms0 = MouseGetPos()
$clr2 = 1
While 1
    $ms1 = MouseGetPos()
    If $ms0[0] <> $ms1[0] Then
        $clr = PixelGetColor($ms0[0], $ms0[1])
        $Label3 = GUICtrlCreateLabel($ms0[0], 400, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms0 = MouseGetPos()
        
        If $clr2 <> $clr Then
            $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $clr2 = PixelGetColor($ms0[0], $ms0[1])
        Else
            sleep(1)
        EndIf
    Else
        sleep(1)
    EndIf
        
    If $ms0[1] <> $ms1[1] Then
        $clr = PixelGetColor($ms0[0], $ms0[1])
        $Label4 = GUICtrlCreateLabel($ms0[1], 560, 0, 51, 20)
        GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
        $ms0 = MouseGetPos()
        
        If $clr2 <> $clr Then
            $Label1 = GUICtrlCreateLabel($clr, 32, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $Label2 = GUICtrlCreateLabel(Hex($clr), 192, 0, 115, 20)
            GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
            $clr2 = PixelGetColor($ms0[0], $ms0[1])
        Else
            sleep(1)
        EndIf
    Else        
        sleep(1)
    EndIf
WEnd

Func _exit()
    Exit
EndFunc 


Damit hast du nur meine Or Abfrage in zwei if Abfragen gesplittet, ergo mehr code, ergo unübersichtlicher. Außerdem sieht dass nicht so aus wie in deinem pic?!

[Σternαl.]

Originally Posted by | Moep |

Damit hast du nur meine Or Abfrage in zwei if Abfragen gesplittet, ergo mehr code, ergo unübersichtlicher. Außerdem sieht dass nicht so aus wie in deinem pic?!

Was hat denn die If Schleife mit dem Pic zutun? oO

€dit: Kann mir jemand noch sagen, wie ich es hinbekomme, dass das Fenster immer im Vordergrund ist?
Also wie beim Taskmanager oder beim WindowInfoTool von AutoIt.

[| Moep |]

Originally Posted by FooFightah

Was hat denn die If Schleife mit dem Pic zutun? oO

War dass nicht dein request? oO

Originally Posted by FooFightah

€dit: Kann mir jemand noch sagen, wie ich es hinbekomme, dass das Fenster immer im Vordergrund ist?
Also wie beim Taskmanager oder beim WindowInfoTool von AutoIt.