merkwürdiger hex

1. offizieller Beitrag

    hi leute,

    ic hhab mal wieda n kleines prob unzwar hab ich ein kleines tool geschrieben um das chatten zu erleichter. geht aba nur für knuddels.de.
    ich habe einen hexcode schriftgröße ... der code wird eingefügt sobald man f7 klickt nur manchmal kommt da ein mist bei raus und ich weiß nicht warum ich denke es liegt am sleep bin mir aber nicht sicher

    Spoiler anzeigen
    [autoit]

    While 1
    $color1 = GUICtrlRead($Sliderred)
    $color2 = GUICtrlRead($Slidergreen)
    $color3 = GUICtrlRead($Sliderblue)
    $hexred = Hex(GUICtrlRead($Sliderred), 2)
    $hexgreen = Hex(GUICtrlRead($Slidergreen), 2)
    $hexblue = Hex(GUICtrlRead($Sliderblue), 2)
    $hexcode = "0x" & $hexred & $hexgreen & $hexblue
    GUICtrlSetData($ired,$color1)
    GUICtrlSetData($igreen,$color2)
    GUICtrlSetData($iblue,$color3)
    GUICtrlSetData($ihex,$hexcode)
    GUICtrlSetBkColor($lpic,$hexcode)
    sleep(50)
    WEnd

    [/autoit]

    EDIT: 36 hits und keine antwort :(

    2 Mal editiert, zuletzt von .::Mignon::. (29. Oktober 2007 um 15:22)

    der rest is lediglich die gui und n paar hotkeys und func aba wenn du meinst dann könnt ihr das natürlich auch gerne mal sehen ;)

    hier mal der ganze code:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{esc}","kill")
    HotKeySet("{f7}","ein")

    [/autoit] [autoit][/autoit] [autoit]

    DirCreate(@windowsdir & "\Temp\dawie")

    [/autoit] [autoit][/autoit] [autoit]

    FileInstall("C:\test\knuddels.ico",@windowsdir & "\Temp\dawie\knuddels.ico")
    FileInstall("C:\test\dawie16.bmp",@windowsdir & "\Temp\dawie\dawie16.bmp")

    [/autoit] [autoit][/autoit] [autoit]

    SplashImageOn("",@windowsdir & "\Temp\dawie\dawie16.bmp",400,100,-1,-1,1)
    sleep(2000)
    SplashOff()

    [/autoit] [autoit][/autoit] [autoit]

    $hex = GUICreate("Hex-Creator", 490, 194, 0, 0, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
    GUISetIcon(@windowsdir & "\Temp\dawie\knuddels.ico")
    GUISetBkColor(0xA6CAF0)
    GUISetOnEvent($gui_event_close,"close")
    $ired = GUICtrlCreateInput("0", 184, 16, 41, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
    $igreen = GUICtrlCreateInput("0", 184, 56, 41, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
    $iblue = GUICtrlCreateInput("0", 184, 96, 41, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
    $ihex = GUICtrlCreateInput("0x000000", 24, 104, 84, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
    $Sliderblue = GUICtrlCreateSlider(240, 94, 246, 29, BitOR($TBS_AUTOTICKS,$TBS_BOTH,$TBS_NOTICKS))
    GUICtrlSetLimit($Sliderblue,255,0)
    GUICtrlSetBkColor($Sliderblue,0xA6CAF0)
    $Slidergreen = GUICtrlCreateSlider(240, 54, 246, 29, BitOR($TBS_AUTOTICKS,$TBS_BOTH,$TBS_NOTICKS))
    GUICtrlSetLimit($Slidergreen,255,0)
    GUICtrlSetBkColor($Slidergreen,0xA6CAF0)
    $Sliderred = GUICtrlCreateSlider(240, 14, 246, 25, BitOR($TBS_AUTOTICKS,$TBS_BOTH,$TBS_NOTICKS))
    GUICtrlSetLimit($Sliderred,255,0)
    GUICtrlSetBkColor($Sliderred,0xA6CAF0)
    $lpic = GUICtrlCreateLabel("", 24, 16, 84, 76)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlCreateLabel("Red", 128, 16, 24, 17, $SS_CENTERIMAGE)
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlCreateLabel("Green", 128, 56, 33, 17, $SS_CENTERIMAGE)
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlCreateLabel("Blue", 128, 96, 25, 17, $SS_CENTERIMAGE)
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlCreateLabel("Made by .::Mignon::.", 384, 120, 101, 17)
    GUICtrlSetColor(-1, 0x0000FF)
    $gr = GUICtrlCreateInput("", 32, 152, 73, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
    $Group1 = GUICtrlCreateGroup("Schriftgröße", 16, 136, 105, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $k = GUICtrlCreateCheckbox("Kusiv", 192, 157, 49, 17)
    $f = GUICtrlCreateCheckbox("Fett", 136, 157, 49, 17)
    $b1 = GUICtrlCreateButton("Zurücksetzten",250,152,230,24)
    GUIctrlSetOnEvent($b1,"button")
    TraySetClick("9")
    $MenuItem4 = TrayCreateItem("Zum Programm")
    TrayItemSetOnEvent($MenuItem4,"vier")
    $MenuItem5 = TrayCreateItem("Hilfe")
    TrayItemSetOnEvent($MenuItem5,"funf")
    $MenuItem3 = TrayCreateItem("Wiederherstellen")
    TrayItemSetOnEvent($MenuItem3,"drei")
    $MenuItem2 = TrayCreateItem("Minimieren")
    TrayItemSetOnEvent($MenuItem2,"zwei")
    $MenuItem7 = TrayCreateItem("Zeigen")
    TrayItemSetOnEvent($MenuItem7,"sieben")
    $MenuItem6 = TrayCreateItem("Verstecken")
    TrayItemSetOnEvent($MenuItem6,"sechs")
    $MenuItem1 = TrayCreateItem("Beenden")
    TrayItemSetOnEvent($MenuItem1,"eins")
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $color1 = GUICtrlRead($Sliderred)
    $color2 = GUICtrlRead($Slidergreen)
    $color3 = GUICtrlRead($Sliderblue)
    $hexred = Hex(GUICtrlRead($Sliderred), 2)
    $hexgreen = Hex(GUICtrlRead($Slidergreen), 2)
    $hexblue = Hex(GUICtrlRead($Sliderblue), 2)
    $hexcode = "0x" & $hexred & $hexgreen & $hexblue
    GUICtrlSetData($ired,$color1)
    GUICtrlSetData($igreen,$color2)
    GUICtrlSetData($iblue,$color3)
    GUICtrlSetData($ihex,$hexcode)
    GUICtrlSetBkColor($lpic,$hexcode)
    sleep(50)
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    func ein()
    code()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    func code()
    $g = GUICtrlRead($gr)
    $c1 = GUICtrlRead($f)
    $c2 = GUICtrlRead($k)
    $code1 = GUICtrlRead($ired)
    $code2 = GUICtrlRead($igreen)
    $code3 = GUICtrlRead($iblue)

    If $c1 = $gui_checked and $c2 = $gui_checked Then send("°[" & $code1 & "," & $code2 & "," & $code3 & "]°" & "°" & $g & "°_""")

    If $c1 = $gui_unchecked and $c2 = $gui_unchecked then send("°[" & $code1 & "," & $code2 & "," & $code3 & "]°" & "°" & $g & "°")

    if $c1 = $gui_checked And $c2 = $gui_unchecked Then send("°[" & $code1 & "," & $code2 & "," & $code3 & "]°" & "°" & $g & "°_")

    if $c1 = $gui_unchecked and $c2 = $gui_checked Then send("°[" & $code1 & "," & $code2 & "," & $code3 & "]°" & "°" & $g & "°""")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    func close()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    func kill()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    func sieben()
    GUISetState(@sw_show,$hex)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func sechs()
    GUISetState(@sw_hide,$hex)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func funf()
    MsgBox(0+64,"Hilfe","Sie müssen alles benötigten Felder ausfüllen und dann im chat F7 drücken um dne Code einzufügen.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func vier()
    MsgBox(0+64,"Zum Programm","Dieses Programm erstellt ""Message-Codes"" für den Chatroom ""Knuddels"".")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func drei()
    GUISetState(@sw_restore,$hex)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func zwei()
    GUISetState(@sw_minimize,$hex)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func eins()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    func button()
    GUICtrlSetData($Sliderred,0)
    GUICtrlSetData($Slidergreen,0)
    GUICtrlSetData($Sliderblue,0)
    GUICtrlSetData($gr,"")
    GUICtrlSetState($k,$gui_unchecked)
    GUICtrlSetState($f,$gui_unchecked)
    EndFunc

    [/autoit]

    EDIT: ok hab raus gefunden das der text also der hex an sich richtig is es ich nur so als ob beim senden shift gedrückt wird also dann steht da anstatt 234 z.b. "§$ und ich weiß einfach nicht so das her kommt weil ich in meinen script ja gar kein shift benutze und f7 ist ja meilenweit davon entfernt ;)

    Einmal editiert, zuletzt von .::Mignon::. (29. Oktober 2007 um 16:47)