Hi,
der code
#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)
#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
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
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.