2 GUIs

1. offizieller Beitrag

    Hi,

    der code
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include<GUIConstantsEx.au3>
    #include<StaticConstants.au3>
    #include<WindowsConstants.au3>
    Opt("WinTitleMatchMode", 2)
    Opt("GUICloseOnESC",0)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0165-bandit.gif", @TempDir&"/1.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0164-middlefinger.gif", @TempDir&"/2.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0170-headbang.gif", @TempDir&"/3.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0163-mooning.gif", @TempDir&"/5.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0169-rock.gif", @TempDir&"/6.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0168-toivo-1.gif", @TempDir&"/7.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0166-drunk.gif", @TempDir&"/8.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\bug.gif", @TempDir&"/9.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\fubar.gif", @TempDir&"/10.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\poolparty.gif", @TempDir&"/11.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0139-1-bow.gif", @TempDir&"/12.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\swear.gif", @TempDir&"/13.gif" ,1)
    FileInstall("D:\Eigene Dateien\AU3\Skype\tmi.gif", @TempDir&"/14.gif" ,1)

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

    #Region ### START Koda GUI section ### Form=d:\eigene dateien\au3\skype\form1.kxf
    $Form1_1 = GUICreate("Skype Smileys - Made be senden9", 501, 32, 193, 125)
    $Pic1 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0165-bandit.gif", 0, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic2 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0164-middlefinger.gif", 32, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic3 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0170-headbang.gif", 64, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic4 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0167-smoke.gif", 96, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic5 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0163-mooning.gif", 128, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic6 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0169-rock.gif", 160, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic7 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0168-toivo-1.gif", 192, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic8 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0166-drunk.gif", 224, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic9 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\bug.gif", 256, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic10 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\fubar.gif", 288, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic11 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\poolparty.gif", 320, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic12 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0139-1-bow.gif", 352, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic13 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\swear.gif", 384, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic14 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\tmi.gif", 416, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Optionen = GUICtrlCreateButton("Optionen", 448, 8, 51, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    WinSetOnTop ( "Skype Smileys - Made be senden9", "", 1)
    WinSetTrans("Skype Smileys - Made be senden9", "",200)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUISwitch($Form1_1)
    GUIDelete()
    Exit
    Case $Pic1
    ControlSend("- Chat", "", "TRichViewEdit1", "(bandit)")
    Case $Pic2
    ControlSend("- Chat", "", "TRichViewEdit1", "(finger)")
    Case $Pic3
    ControlSend("- Chat", "", "TRichViewEdit1", "(headbang)")
    Case $Pic4
    ControlSend("- Chat", "", "TRichViewEdit1", "(smoking)")
    Case $Pic5
    ControlSend("- Chat", "", "TRichViewEdit1", "(mooning)")
    Case $Pic6
    ControlSend("- Chat", "", "TRichViewEdit1", "(rock)")
    Case $Pic7
    ControlSend("- Chat", "", "TRichViewEdit1", "(toivo)")
    Case $Pic8
    ControlSend("- Chat", "", "TRichViewEdit1", "(drunk)")
    Case $Pic9
    ControlSend("- Chat", "", "TRichViewEdit1", "(bug)")
    Case $Pic10
    ControlSend("- Chat", "", "TRichViewEdit1", "(fubar)")
    Case $Pic11
    ControlSend("- Chat", "", "TRichViewEdit1", "(poolparty)")
    Case $Pic12
    ControlSend("- Chat", "", "TRichViewEdit1", "(bow)")
    Case $Pic13
    ControlSend("- Chat", "", "TRichViewEdit1", "(swear)")
    Case $Pic14
    ControlSend("- Chat", "", "TRichViewEdit1", "(tmi)")
    Case $Optionen
    _Optionen()
    EndSwitch
    WEnd

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

    Func _Optionen()
    #Region ### START Koda GUI section ### Form=d:\eigene dateien\au3\skype\optionen.kxf
    $Form1_2 = GUICreate("Optionen", 195, 129, 193, 125, -1, -1, $Form1_1)
    $Slider1 = GUICtrlCreateSlider(24, 32, 150, 45 )
    GUICtrlSetLimit(-1, 255, 20)
    GUICtrlSetData(-1, 200)
    $Group1 = GUICtrlCreateGroup("Transparens", 16, 8, 169, 65)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Checkbox1 = GUICtrlCreateCheckbox("", 48, 96, 97, 17)
    GUICtrlSetState($Checkbox1, $GUI_CHECKED)
    $Group2 = GUICtrlCreateGroup("Vordergrund", 40, 80, 113, 41)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    WinSetOnTop ( "Optionen", "", 1)
    WinSetTrans("Optionen", "",200)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUISwitch($Form1_2)
    GUIDelete()
    Case $Slider1
    WinSetTrans("Skype Smileys - Made be senden9", "",GUICtrlRead($Slider1))
    WinSetTrans("Optionen", "",GUICtrlRead($Slider1))
    Case $Checkbox1
    If GUICtrlRead($Checkbox1) = 1 Then
    WinSetOnTop ( "Skype Smileys - Made be senden9", "", 1)
    WinSetOnTop ( "Optionen", "", 1)
    Else
    WinSetOnTop ( "Optionen", "", 0)
    WinSetOnTop ( "Skype Smileys - Made be senden9", "", 0)
    EndIf
    EndSwitch
    WEnd
    EndFunc

    [/autoit]


    Mein Problem ist die "Option" GUI. Wenn ich die offene und danach das Programm beenden will ist das Autoit-Zeichen noch immer im Systemtray. ((Was wahrscheinlich bedeutet das es noch läuft)
    Das Programm soll Skype ein paar "geheimen" Smilleys geben.

    Einmal editiert, zuletzt von senden9 (26. April 2008 um 13:07)

    • Offizieller Beitrag

    Du löschst zwar die GUI, aber Du beendest die Funktion nicht. Füge nach der Zeile 106 mal ein Return ein.

    Außerdem hast Du FileInstall nicht so ganz verstanden.

    Du packst zwar die GIFs mit in das Programm, benutzt anschließend aber die Pfade, wo sie ursprünglich liegen:

    [autoit]

    $Pic1 = GUICtrlCreatePic("D:\Eigene Dateien\AU3\Skype\skype-wackyb-0165-bandit.gif", 0, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

    [/autoit]

    Diese Zeilen solltest Du entsprechend ändern:

    [autoit]

    $Pic1 = GUICtrlCreatePic(@TempDir & "/1.gif", 0, 0, 28, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

    [/autoit]

    Hallo.

    Nach Zeile 106 ein "exit" rein. Das ist alles.

    Sieht dann so aus ab Zeile 106:

    Spoiler anzeigen
    [autoit]


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUISwitch($Form1_2)
    GUIDelete()
    Exit
    Case $Slider1
    WinSetTrans("Skype Smileys - Made be senden9", "",GUICtrlRead($Slider1))
    WinSetTrans("Optionen", "",GUICtrlRead($Slider1))
    Case $Checkbox1
    If GUICtrlRead($Checkbox1) = 1 Then
    WinSetOnTop ( "Skype Smileys - Made be senden9", "", 1)
    WinSetOnTop ( "Optionen", "", 1)
    Else
    WinSetOnTop ( "Optionen", "", 0)
    WinSetOnTop ( "Skype Smileys - Made be senden9", "", 0)
    EndIf
    EndSwitch
    WEnd
    EndFunc

    [/autoit]

    Dazu noch das von Oscar ändern.

    Gruß, Crazy-A.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr