Includes gesucht

Page 1 of 2

05/12/2010 16:48 Σternαl.#1

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!

05/12/2010 18:25 | Moep |#2

Code:

#include <guiconstants.au3>

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

05/12/2010 18:27 huberhans#3

Quote:
Originally Posted by | Moep |
Code:
#include <guiconstants.au3>
..komisch, bei mir vergisst er die nie...

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

Code:

#include <WindowsConstants.au3>

Gru�

05/12/2010 18:33 Σternαl.#4

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.

[Only registered and activated users can see links. Click Here To Register...]

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

05/12/2010 19:48 FichteFoll#5

Quote:

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. [Only registered and activated users can see links. Click Here To Register...], 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"

05/12/2010 20:15 Σternαl.#6

Quote:

Originally Posted by FichteFoll

1. [Only registered and activated users can see links. Click Here To Register...], 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.
[Only registered and activated users can see links. Click Here To Register...]

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

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^^

05/12/2010 20:48 Shadow992#7

Quote:

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.
[Only registered and activated users can see links. Click Here To Register...]

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

05/12/2010 20:50 | Moep |#8

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()
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 :p
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...

05/12/2010 20:57 Σternαl.#9

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

05/12/2010 21:03 FichteFoll#10

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

05/12/2010 21:11 | Moep |#11

Quote:

Originally Posted by FooFightah

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

this!?

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_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

Quote:

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...

05/12/2010 21:30 Σternαl.#12

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

05/12/2010 21:35 | Moep |#13

Quote:

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?! ;)

05/12/2010 21:38 Σternαl.#14

Quote:

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.

05/12/2010 21:52 | Moep |#15

Quote:

Originally Posted by FooFightah

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

War dass nicht dein request? oO

Quote:

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.

[Only registered and activated users can see links. Click Here To Register...]

Page 1 of 2