Du bist nicht angemeldet.

Pipette

Kontrollzentrum

Adsense

Spenden

Jeder Euro hilft uns, euch zu helfen.

Bei Überweisungen bitte per PN die Daten erfragen.

Downloads

Lieber Besucher, herzlich willkommen bei: AutoIt.de - Das deutsche AutoIt-Forum. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.

Cheater Dieter

Tippspielsieger EM 2012

  • »Cheater Dieter« ist der Autor dieses Themas

Registrierungsdatum: 27. Mai 2011

Wohnort: Baden-Württemberg

Beruf: Schüler

  • Private Nachricht senden

1

Freitag, 23. Dezember 2011, 20:27

Pipette

Hi, ich habe ein kleines Script gemacht (110 Zeilen) welches es euch ermöglicht, Farben, die auf dem Bildschirm dargestellt werden zu identifizieren (als HEX, RBG und RBG %). Schaut es euch einfach mal an. Es ist wirklich nichts Großes, aber vielleicht findet ja der ein oder andere daran Gefallen. Ich werde in nächster Zeit wahrscheinlich noch ein paar Updates rausbringen.

Feedback ist erwünscht :) .



Version 1.1:
  • Code jetzt ressourcenschonender (danke an Kizum)
Version 1.2
  • Bugfix beim Kopieren des RGB Farbwerts
  • Icon binär eingebunden
  • Code optimiert (danke an RR04)
Version 1.2.1
  • Code "verschönert" - keinerlei Änderrungen an Programmfunktionalität (danke an RR04)
»Cheater Dieter« hat folgende Datei angehängt:
  • Pipette.au3 (4,88 kB - 167 mal heruntergeladen - zuletzt: 19. Mai 2013, 13:14)
MfG Cheater Dieter

Meine Programme:
Crypt Mousemove FTP Backup Dingsbums App Store Schnäppchen Jäger Pipette Susi FotoCam Kiowa Binäruhr Link me!

Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von »Cheater Dieter« (29. Dezember 2011, 20:05)

Kizum

User

Registrierungsdatum: 30. Januar 2007

Wohnort: Berlin

  • Private Nachricht senden

2

Freitag, 23. Dezember 2011, 23:50

AutoIt-Quellcode

 
1

IniWrite (@TempDir & "\Pipette.txt"
8| 8|

Habe mal die Dateiendung "ini" eingeführt.
Und eine Prüfung ob $farbe immer noch die selbe Farbe wie im vorherigen Schleifendurchgang ist, dann kann man sich den Rest der Schleife sparen.
Und noch ein kleiner Sleep(25), ..freut sich der Prozessor.


  Spoiler Spoiler

AutoIt-Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $farbebackup
Global $farbe
Global $ini = @ScriptDir & "\Pipette.ini"

$farbehtml = "#000000"
$R = 0
$G = 0
$B = 0
$on = False
GUICreate("Pipette", 615, 219)
GUICtrlCreateGroup("", 8, 8, 161, 201)
$vorschau = GUICtrlCreateLabel("", 13, 20, 148, 148)
GUICtrlSetBkColor(-1, 0x0)
$start = GUICtrlCreateButton("Pipette aufnehmen", 16, 176, 147, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Farbmodelle", 176, 16, 233, 193)
GUICtrlCreateLabel("Hexadezimal (HEX):", 192, 40, 98, 17)
$hex_input = GUICtrlCreateInput("#000000", 208, 57, 161, 21)
$copy_hex = GUICtrlCreateButton("", 376, 56, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateLabel("RGB-Farbraum (RGB):", 192, 88, 109, 17)
$RGB_R = GUICtrlCreateInput("0", 208, 104, 49, 21)
$RGB_G = GUICtrlCreateInput("0", 264, 104, 49, 21)
$RGB_B = GUICtrlCreateInput("0", 320, 104, 49, 21)
$copy_rbg = GUICtrlCreateButton("", 376, 104, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateLabel("Prozentualer RGB-Farbraum (RBG %):", 192, 136, 182, 17)
$Proz_R = GUICtrlCreateInput("0", 208, 152, 49, 21)
$Proz_G = GUICtrlCreateInput("0", 264, 152, 49, 21)
$Proz_B = GUICtrlCreateInput("0", 320, 152, 49, 21)
$copy_proz = GUICtrlCreateButton("", 376, 152, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Verlauf", 416, 16, 153, 193)
$verlauf = GUICtrlCreateList("", 424, 32, 137, 162)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileDelete ($ini)
            Exit
        Case $copy_hex
            ClipPut ($farbehtml)
        Case $copy_rbg
            ClipPut (Round ($R/255*100,1) & ", " & Round ($B/255*100,1) & ", " & Round ($G/255*100,1))
        Case $start
            HotKeySet ("{Enter}","_Mark")
            GUICtrlSetState ($start,$GUI_DISABLE)
            GUICtrlSetData ($start,"Zum Ablegen Enter drücken")
            $on = True
        Case $verlauf
            GUICtrlSetData ($hex_input,IniRead ($ini,GUICtrlRead ($verlauf),"HexHTML","Error"))
            GUICtrlSetBkColor ($vorschau,IniRead ($ini,GUICtrlRead ($verlauf),"HexVorschau","Error"))
            GUICtrlSetData ($RGB_R, IniRead ($ini,GUICtrlRead ($verlauf),"R","Error"))
            GUICtrlSetData ($RGB_G, IniRead ($ini,GUICtrlRead ($verlauf),"G","Error"))
            GUICtrlSetData ($RGB_B, IniRead ($ini,GUICtrlRead ($verlauf),"B","Error"))
            GUICtrlSetData ($Proz_R,Round (IniRead ($ini,GUICtrlRead ($verlauf),"R","Error")/255*100,1))
            GUICtrlSetData ($Proz_G,Round (IniRead ($ini,GUICtrlRead ($verlauf),"G","Error")/255*100,1))
            GUICtrlSetData ($Proz_B,Round (IniRead ($ini,GUICtrlRead ($verlauf),"B","Error")/255*100,1))

    EndSwitch

    If $on = True Then
        $farbe = PixelGetColor (MouseGetPos (0),MouseGetPos (1))

            if $farbebackup <> $farbe Then

        $farbehex = Hex ($farbe)
        $farbehex = StringTrimLeft ($farbehex,2)
        $farbehtml = "#" & $farbehex
        $farbedarstellung = "0x" & $farbehex
        GUICtrlSetBkColor($vorschau, $farbedarstellung)
        $HR = StringMid($farbehex, 1, 2)
        $HG = StringMid($farbehex, 3, 2)
        $HB = StringMid($farbehex, 5, 2)
        $R = Dec($HR)
        $G = Dec($HG)
        $B = Dec($HB)
        GUICtrlSetData ($hex_input,$farbehtml)
        GUICtrlSetData ($RGB_R, $R)
        GUICtrlSetData ($RGB_G, $G)
        GUICtrlSetData ($RGB_B, $B)
        GUICtrlSetData ($Proz_R,Round ($R/255*100,1))
        GUICtrlSetData ($Proz_G,Round ($G/255*100,1))
        GUICtrlSetData ($Proz_B,Round ($B/255*100,1))

    EndIf
        EndIf

    $farbebackup = $farbe
    Sleep(25)
WEnd

Func _Mark ()
    $on = False
    HotKeySet ("{Enter}")
    GUICtrlSetState ($start,$GUI_ENABLE)
    GUICtrlSetData ($start,"Pipette aufnehmen")
    GUICtrlSetData ($verlauf, $R & "   " & $G & "   " & $B)
    IniWrite ($ini,$R & "   " & $G & "   " & $B,"HexHTML",$farbehtml)
    IniWrite ($ini,$R & "   " & $G & "   " & $B,"HexVorschau",$farbedarstellung)
    IniWrite ($ini,$R & "   " & $G & "   " & $B,"R",$R)
    IniWrite ($ini,$R & "   " & $G & "   " & $B,"G",$G)
    IniWrite ($ini,$R & "   " & $G & "   " & $B,"B",$B)
EndFunc

Func _binaer ()
$Icon = "0x000001000100101010000100040028010000160000002800000010000000200000000100040000000000000000000000000000000000000000000000000080808000FFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002222200000000222222220111111002222222011111101022200001111110000220110111111111022011011000111102201101111111110220110110000011022011011111111102201101100000110220110111111111022011011111111102201100000000000220111111111022222011111111102222200000000000222F8070000F8030000F8010000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0070000C0070000C0070000"
    FileOpen("copy.ico", 18)
    FileWrite(FileOpen("copy.ico", 18), Binary($Icon))
    FileClose("copy.ico")
EndFunc

Cheater Dieter

Tippspielsieger EM 2012

  • »Cheater Dieter« ist der Autor dieses Themas

Registrierungsdatum: 27. Mai 2011

Wohnort: Baden-Württemberg

Beruf: Schüler

  • Private Nachricht senden

3

Samstag, 24. Dezember 2011, 06:49

Danke Kizum, ich hab mir jetzt mal deinen Code angeschaut und 2 Sachen übernommen: Den Sleep und die Prüfung, ob sich die Farbe verändert hat.
Ob die Datei jetzt Pipette.txt oder Pipette.ini heißt, ist wohl grad egal (theoretisch sind TXTs ja sogar besser, denn INIs haben doch eine Größenbeschränkung oder irre ich mich?).

===> Version 1.1
MfG Cheater Dieter

Meine Programme:
Crypt Mousemove FTP Backup Dingsbums App Store Schnäppchen Jäger Pipette Susi FotoCam Kiowa Binäruhr Link me!

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Cheater Dieter« (24. Dezember 2011, 09:51)

Mattthias

User

Registrierungsdatum: 20. Februar 2010

Wohnort: Teltow, Berlin

Beruf: Schüler

  • Private Nachricht senden

4

Samstag, 24. Dezember 2011, 08:33

@Cheater Deater - Haben sie ?
Wahrscheinlich hat die Ini-Read Funktion das, aber mir wäre das neu; somit müsste jede Datei auf deinem System eine Beschränkung auf 4096 KB haben ...
Aber es ist doch egal, ob die Datei WAYNE.Weihnachten, Farbe.txt oder farbe.schlagmichtot heißt ...
Der Dateiname ist ja letztendlich nur eine Erkennungsmarke, wie ein Hund sie hat -> An der Erkennungsmarke erkennt man den Besitzer. Stellen wir uns vor die Erkennungsmarke ist deine Datei und der Besitzer das Programm das sie ausführt :D
Etwas blöd aber so in etwa ^^
- Inaktiv -


{Ironie ist wenn ein Neonazi in einer Rechtskurve stirbt, weil er zu viel Gas gibt. :D}

Saguhilla

User

Registrierungsdatum: 16. Oktober 2011

Beruf: Schüler

  • Private Nachricht senden

5

Samstag, 24. Dezember 2011, 13:26

@Kizum:
Ich finde dein Befehl äußerst interessant ;-)
______________________________________
IniWrite (@TempDir & "\Pipette.txt"
______________________________________
Wenn schon ,,IniWrite(@TempDir & "\Pipette.txt")
Mit einer Schließklammer :-O
mfg SAGUHILLA

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

6

Dienstag, 27. Dezember 2011, 21:13

Hi,
gute Arbeit, sehr schöner Stil.

Tipps:
Keine Includes nötig.
Den 14 mal "@TempDir & "\Pipette.txt"" eine Variable spendieren "Global $PipetteTXT = @TempDir & "\Pipette.txt"".
Das Icon in das Script einbauen.

  Spoiler Spoiler

AutoIt-Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Pipette.exe
#AutoIt3Wrapper_Res_Icon_Add=copy.ico ;i icon wird in die EXE eingebaut !erst beim kompilieren!
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 ;i mehr Auskunft u. Sicherheit fürs Script
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

$farbehtml = "#000000"
$R = 0
$G = 0
$B = 0
$on = False

Global $PipetteTXT = @TempDir & "\Pipette.txt" ;i eine Globale Var für alle 14 Pfade !
Global $farbebackup, $title = "Pipette"

GUICreate($title, 615, 219)
GUICtrlCreateGroup("", 8, 8, 161, 201)
$vorschau = GUICtrlCreateLabel("", 13, 20, 148, 148)
GUICtrlSetBkColor(-1, 0x0)
$start = GUICtrlCreateButton($title, 16, 176, 147, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Farbmodelle", 176, 16, 233, 193)
GUICtrlCreateLabel("Hexadezimal (HEX):", 192, 40, 98, 17)
$hex_input = GUICtrlCreateInput("#000000", 208, 57, 161, 21)
$copy_hex = GUICtrlCreateButton("", 376, 56, 21, 21, 0x0040)
GUICtrlSetImage(-1, @ScriptFullPath, -5) ;i Aufruf des eingebauten Icons !
GUICtrlCreateLabel("RGB-Farbraum (RGB):", 192, 88, 109, 17)
$RGB_R = GUICtrlCreateInput("0", 208, 104, 49, 21)
$RGB_G = GUICtrlCreateInput("0", 264, 104, 49, 21)
$RGB_B = GUICtrlCreateInput("0", 320, 104, 49, 21)
$copy_rbg = GUICtrlCreateButton("", 376, 104, 21, 21, 0x0040)
GUICtrlSetImage(-1, @ScriptFullPath, -5) ;i Aufruf des eingebauten Icons !
GUICtrlCreateLabel("Prozentualer RGB-Farbraum (RBG %):", 192, 136, 182, 17)
$Proz_R = GUICtrlCreateInput("0", 208, 152, 49, 21)
$Proz_G = GUICtrlCreateInput("0", 264, 152, 49, 21)
$Proz_B = GUICtrlCreateInput("0", 320, 152, 49, 21)
$copy_proz = GUICtrlCreateButton("", 376, 152, 21, 21, 0x0040)
GUICtrlSetImage(-1, @ScriptFullPath, -5) ;i Aufruf des eingebauten Icons !
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Verlauf", 416, 16, 153, 193)
$verlauf = GUICtrlCreateList("", 424, 32, 137, 162)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            FileDelete($PipetteTXT)
            Exit
        Case $copy_hex
            ClipPut($farbehtml)
        Case $copy_rbg
            ClipPut(Round($R / 255 * 100, 1) & ", " & Round($B / 255 * 100, 1) & ", " & Round($G / 255 * 100, 1))
        Case $start
            HotKeySet("{Enter}", "_Mark")
            GUICtrlSetState($start, 128)
            GUICtrlSetData($start, "Enter drücken zum ablegen !")
            $on = True
        Case $verlauf
            GUICtrlSetData($hex_input, IniRead($PipetteTXT, GUICtrlRead($verlauf), "HexHTML", "Error"))
            GUICtrlSetBkColor($vorschau, IniRead($PipetteTXT, GUICtrlRead($verlauf), "HexVorschau", "Error"))
            GUICtrlSetData($RGB_R, IniRead($PipetteTXT, GUICtrlRead($verlauf), "R", "Error"))
            GUICtrlSetData($RGB_G, IniRead($PipetteTXT, GUICtrlRead($verlauf), "G", "Error"))
            GUICtrlSetData($RGB_B, IniRead($PipetteTXT, GUICtrlRead($verlauf), "B", "Error"))
            GUICtrlSetData($Proz_R, Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "R", "Error") / 255 * 100, 1))
            GUICtrlSetData($Proz_G, Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "G", "Error") / 255 * 100, 1))
            GUICtrlSetData($Proz_B, Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "B", "Error") / 255 * 100, 1))
    EndSwitch

    If $on = True Then
        $farbe = PixelGetColor(MouseGetPos(0), MouseGetPos(1))
        If $farbebackup <> $farbe Then
            $farbehex = Hex($farbe)
            $farbehex = StringTrimLeft($farbehex, 2)
            $farbehtml = "#" & $farbehex
            $farbedarstellung = "0x" & $farbehex
            GUICtrlSetBkColor($vorschau, $farbedarstellung)
            $HR = StringMid($farbehex, 1, 2)
            $HG = StringMid($farbehex, 3, 2)
            $HB = StringMid($farbehex, 5, 2)
            $R = Dec($HR)
            $G = Dec($HG)
            $B = Dec($HB)
            GUICtrlSetData($hex_input, $farbehtml)
            GUICtrlSetData($RGB_R, $R)
            GUICtrlSetData($RGB_G, $G)
            GUICtrlSetData($RGB_B, $B)
            GUICtrlSetData($Proz_R, Round($R / 255 * 100, 1))
            GUICtrlSetData($Proz_G, Round($G / 255 * 100, 1))
            GUICtrlSetData($Proz_B, Round($B / 255 * 100, 1))
        EndIf
        $farbebackup = $farbe
    EndIf
    Sleep(25)
WEnd

Func _Mark()
    $on = False
    HotKeySet("{Enter}")
    GUICtrlSetState($start, 64)
    GUICtrlSetData($start, $title)
    GUICtrlSetData($verlauf, $R & "   " & $G & "   " & $B)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "HexHTML", $farbehtml)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "HexVorschau", $farbedarstellung)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "R", $R)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "G", $G)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "B", $B)
EndFunc   ;==>_Mark

; Ende

Schöne Feiertage ! 8)
»RR04« hat folgende Datei angehängt:
  • Pipette(2).zip (291,68 kB - 50 mal heruntergeladen - zuletzt: 2. Mai 2013, 06:52)
MfG RR04

Cheater Dieter

Tippspielsieger EM 2012

  • »Cheater Dieter« ist der Autor dieses Themas

Registrierungsdatum: 27. Mai 2011

Wohnort: Baden-Württemberg

Beruf: Schüler

  • Private Nachricht senden

7

Mittwoch, 28. Dezember 2011, 17:18

Zitat von »RR04«

Keine Includes nötig.
8o Danke für den Tipp, das kannte ich nicht.

Zitat von »RR04«

Das Icon in das Script einbauen.
Oder es einfach binär einbinden.

Zitat von »RR04«

Den 14 mal "@TempDir & "\Pipette.txt"" eine Variable spendieren "Global $PipetteTXT = @TempDir & "\Pipette.txt"".
Gut, habe ich gemacht.

==> Das und ein Bugfix in Version 1.2 eingebaut.
MfG Cheater Dieter

Meine Programme:
Crypt Mousemove FTP Backup Dingsbums App Store Schnäppchen Jäger Pipette Susi FotoCam Kiowa Binäruhr Link me!

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

8

Donnerstag, 29. Dezember 2011, 17:04

Hi, mit

AutoIt-Quellcode

 
1

GUISetCursor(3, 1, $Cursor)

wird der Cursor zum Kreuz, natürlich erst nach dem drücken von Pipette ! ;)
MfG RR04

James1337

User

Registrierungsdatum: 2. August 2011

  • Private Nachricht senden

9

Donnerstag, 29. Dezember 2011, 17:15

Nettes Skript, erinnert mich an frühere Versionen von Paint...

  Spoiler Spoiler

AutoIt-Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

$Show = False
HotKeySet('{F1}', '_Toggle')
HotKeySet('{ESC}', '_Exit')
Do
    If $Show Then
        ToolTip(Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1))))
    EndIf
Until False
Func _Toggle()
    $Show = Not $Show
    If Not $Show Then
        ToolTip('')
    EndIf
EndFunc
Func _Exit()
    Exit
EndFunc
"Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth

22:23 *** peer joined #minx
22:24 *** minxolicious quit (Connection reset by peer)

Vorlage für Problemberichte und Fragestellungen
Windows Management Instrumentation (WMI) - AutoIt Script Info - Chatbot - TCP Server

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

10

Donnerstag, 29. Dezember 2011, 19:32

Pipette

AutoIt-Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

#cs
    1. Eine Var für 4 mal "@TempDir & "\" & "copy.jpg"".
    2. 2x3 = 6 Inputs erstellt.
    3. Das Bild "copy.jpg" gelöscht.
#ce

Global $icon = ""
$icon &= "0x000001000100101010000100040028010000160000002800000010000000200000000100040000000000000000000000000000000000000000000000000080808000FFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002222200000000222222220111111002222222011111101022200001111110000220110111111111022011011000111102201101111111110220110110000011022011011111111102201101100000110220110111111111022011011111111102201100000000000220111111111022222011111111102222200000000000222F8070000F8030000F8010000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0070000C0070000C0070000"
Global $copyJPG = @TempDir & "\" & "copy.jpg" ;i Eine Var für 4 mal "@TempDir & "\" & "copy.jpg"".
$handle = FileOpen($copyJPG, 18)
FileWrite($handle, Binary($icon))
FileClose($handle)
Global $PipetteTXT = @TempDir & "\Pipette.txt"
Global $farbehtml = "#000000"
$R = 0
$G = 0
$B = 0
$on = False
Global $farbebackup
GUICreate("Pipette", 615, 219)
GUICtrlCreateGroup("", 8, 8, 161, 201)
$vorschau = GUICtrlCreateLabel("", 13, 20, 148, 148)
GUICtrlSetBkColor(-1, 0x0)
$start = GUICtrlCreateButton("Pipette aufnehmen", 16, 176, 147, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Farbmodelle", 176, 16, 233, 193)
GUICtrlCreateLabel("Hexadezimal (HEX):", 192, 40, 98, 17)
$hex_input = GUICtrlCreateInput("#000000", 208, 57, 161, 21)
$copy_hex = GUICtrlCreateButton("", 376, 56, 21, 21, 0x0040)
GUICtrlSetImage(-1, $copyJPG, -1)
GUICtrlCreateLabel("RGB-Farbraum (RGB):", 192, 88, 109, 17)

#region ### Start 2x3 = 6 Inputs erstellen ###
Global $RGB[3], $Proz[3] ;i 2x3 = 6 Inputs erstellen
For $i = 0 To 2
    $RGB[$i] = GUICtrlCreateInput("0", 208 + $i * 56, 104, 49, 21)
    $Proz[$i] = GUICtrlCreateInput("0", 208 + $i * 56, 152, 49, 21)
Next
#endregion ### Start 2x3 = 6 Inputs erstellen ###

$copy_rbg = GUICtrlCreateButton("", 376, 104, 21, 21, 0x0040)
GUICtrlSetImage(-1, $copyJPG, -1)
GUICtrlCreateLabel("Prozentualer RGB-Farbraum (RBG %):", 192, 136, 182, 17)
$copy_proz = GUICtrlCreateButton("", 376, 152, 21, 21, 0x0040)
GUICtrlSetImage(-1, $copyJPG, -1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Verlauf", 416, 16, 153, 193)
$verlauf = GUICtrlCreateList("", 424, 32, 137, 162)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            FileDelete($PipetteTXT)
            FileDelete($copyJPG) ;i Das Bild auch löschen!
            Exit
        Case $copy_hex
            ClipPut($farbehtml)
        Case $copy_rbg
            ClipPut($R & ", " & $B & ", " & $G)
        Case $copy_proz
            ClipPut(Round($R / 255 * 100, 1) & ", " & Round($B / 255 * 100, 1) & ", " & Round($G / 255 * 100, 1))
        Case $start
            HotKeySet("{Enter}", "_Mark")
            GUICtrlSetState($start, 128)
            GUICtrlSetData($start, "Zum Ablegen Enter drücken")
            $on = True
        Case $verlauf
            GUICtrlSetData($hex_input, IniRead($PipetteTXT, GUICtrlRead($verlauf), "HexHTML", "Error"))
            GUICtrlSetBkColor($vorschau, IniRead($PipetteTXT, GUICtrlRead($verlauf), "HexVorschau", "Error"))
            GUICtrlSetData($RGB[0], IniRead($PipetteTXT, GUICtrlRead($verlauf), "R", "Error"))
            GUICtrlSetData($RGB[1], IniRead($PipetteTXT, GUICtrlRead($verlauf), "G", "Error"))
            GUICtrlSetData($RGB[2], IniRead($PipetteTXT, GUICtrlRead($verlauf), "B", "Error"))
            GUICtrlSetData($Proz[0], Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "R", "Error") / 255 * 100, 1))
            GUICtrlSetData($Proz[1], Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "G", "Error") / 255 * 100, 1))
            GUICtrlSetData($Proz[2], Round(IniRead($PipetteTXT, GUICtrlRead($verlauf), "B", "Error") / 255 * 100, 1))
    EndSwitch

    If $on = True Then
        $farbe = PixelGetColor(MouseGetPos(0), MouseGetPos(1))
        If $farbebackup <> $farbe Then
            $farbehex = Hex($farbe)
            $farbehex = StringTrimLeft($farbehex, 2)
            $farbehtml = "#" & $farbehex
            $farbedarstellung = "0x" & $farbehex
            GUICtrlSetBkColor($vorschau, $farbedarstellung)
            $HR = StringMid($farbehex, 1, 2)
            $HG = StringMid($farbehex, 3, 2)
            $HB = StringMid($farbehex, 5, 2)
            $R = Dec($HR)
            $G = Dec($HG)
            $B = Dec($HB)
            GUICtrlSetData($hex_input, $farbehtml)
            GUICtrlSetData($RGB[0], $R)
            GUICtrlSetData($RGB[1], $G)
            GUICtrlSetData($RGB[2], $B)
            GUICtrlSetData($Proz[0], Round($R / 255 * 100, 1))
            GUICtrlSetData($Proz[1], Round($G / 255 * 100, 1))
            GUICtrlSetData($Proz[2], Round($B / 255 * 100, 1))
        EndIf
        $farbebackup = $farbe
    EndIf
    Sleep(25)
WEnd

Func _Mark()
    $on = False
    HotKeySet("{Enter}")
    GUICtrlSetState($start, 64)
    GUICtrlSetData($start, "Pipette aufnehmen")
    GUICtrlSetData($verlauf, $R & "   " & $G & "   " & $B)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "HexHTML", $farbehtml)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "HexVorschau", $farbedarstellung)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "R", $R)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "G", $G)
    IniWrite($PipetteTXT, $R & "   " & $G & "   " & $B, "B", $B)
EndFunc   ;==>_Mark

;)
MfG RR04

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »RR04« (29. Dezember 2011, 19:58)

Mattthias

User

Registrierungsdatum: 20. Februar 2010

Wohnort: Teltow, Berlin

Beruf: Schüler

  • Private Nachricht senden

11

Donnerstag, 29. Dezember 2011, 19:37

RR04 wieso lädst du eine "v1.3" hoch wenn du nicht ersteller bist ?
- Inaktiv -


{Ironie ist wenn ein Neonazi in einer Rechtskurve stirbt, weil er zu viel Gas gibt. :D}

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

12

Donnerstag, 29. Dezember 2011, 19:44

@Mattthias,
ist nur zur besseren Kenntlichkeit, Pipette ist natürlich nicht von mir! ;-)
MfG RR04

Mattthias

User

Registrierungsdatum: 20. Februar 2010

Wohnort: Teltow, Berlin

Beruf: Schüler

  • Private Nachricht senden

13

Donnerstag, 29. Dezember 2011, 19:47

Hmm ...
Was ist an deinem Script anders als an CheaterDieters (grad zu faul zu testen :D)
- Inaktiv -


{Ironie ist wenn ein Neonazi in einer Rechtskurve stirbt, weil er zu viel Gas gibt. :D}

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

14

Donnerstag, 29. Dezember 2011, 19:49

@Mattthias,

AutoIt-Quellcode

 
1
2
3
4
5

#cs
    1. Eine Var für 4 mal "@TempDir & "\" & "copy.jpg"".
    2. 2x3 = 6 Inputs erstellt.
    3. Das Bild "copy.jpg" gelöscht.
#ce

;-)
MfG RR04

Mattthias

User

Registrierungsdatum: 20. Februar 2010

Wohnort: Teltow, Berlin

Beruf: Schüler

  • Private Nachricht senden

15

Donnerstag, 29. Dezember 2011, 20:02

Unglaublich XD
- Inaktiv -


{Ironie ist wenn ein Neonazi in einer Rechtskurve stirbt, weil er zu viel Gas gibt. :D}

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

16

Donnerstag, 29. Dezember 2011, 20:04

@Mattthias,
habe es entfernt ! :thumbsup:
MfG RR04

Cheater Dieter

Tippspielsieger EM 2012

  • »Cheater Dieter« ist der Autor dieses Themas

Registrierungsdatum: 27. Mai 2011

Wohnort: Baden-Württemberg

Beruf: Schüler

  • Private Nachricht senden

17

Donnerstag, 29. Dezember 2011, 20:07

Also ich habe jetzt deine Vorschläge (mit kleinen Änderrungen) übernommen und habe nun eine Version 1.2.1 hochgeladen, da die Änderrungen ja nur eine Verschönerrung sind und die Funktionalität des Programms nicht verändern.
MfG Cheater Dieter

Meine Programme:
Crypt Mousemove FTP Backup Dingsbums App Store Schnäppchen Jäger Pipette Susi FotoCam Kiowa Binäruhr Link me!
Thema bewerten