Bilder wie button animieren ?

Eistee

Hallo liebe Community

Ich habe mal eine kleine Frage, und zwar verwende ich in meinem folgendem script Bilder Als buttons.
Aber wenn man einen echten button drückt dan drückt er sich ja sozusagen etwas nach unten oder ? also man sieht halt das man ihn gedrückt hatt
kann man sowas evtl. einbauen ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

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

DirCreate("C:\Air\KalLauncher")
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

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

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', _
'long', $x1, _
'long', $y1, _
'long', $pos[2], _
'long', $pos[3], _
'long', $x3, _
'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc

[/autoit]

und wenn ja wie in etwa gibts da was in der hilfe oder so ?

Mfg LogiVidia

P.s. Bilder sind im Anhang

FireFlyer

ohh je,

ich würd fast sagen da musst du mit mehreren bildchen arbeiten und diese übereinander legen ...
Etwa so:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Misc.au3>

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

Opt("GUIOnEventMode", 1)

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

GUICreate("Test", 100, 40)
$button = GUICtrlCreatePic("C:\Air\KalLauncher\Start.jpg", 10, 10, 80,25)
$button2 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 10, 10, 80,25)
GUICtrlSetState($button2, $GUI_HIDE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button, "_test")

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

GUISetState()

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

While 1
WEnd

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

Func _test()
While _IsPressed(01)
GUICtrlSetState($button2, $GUI_SHOW)
GUICtrlSetState($button, $GUI_HIDE)
Sleep(100)
WEnd
GUICtrlSetState($button, $GUI_SHOW)
GUICtrlSetState($button2, $GUI_HIDE)
Sleep(1000) ;nur damit du siehst das das alte bildchen wieder kommt xD
MsgBox(0, "", "hier kommt jetzt die eig. funktion")
EndFunc

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

Func _exit()
Exit
EndFunc

[/autoit]

Bzw. du kannst dir natürlich auch ne UDF schreiben wir sind ja alle faul

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Misc.au3>

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

Opt("GUIOnEventMode", 1)

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

GUICreate("Test", 100, 40)
$pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\Start.jpg", 10, 10, 80,25)
$pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 10, 10, 80,25)
GUICtrlSetState($pic2, $GUI_HIDE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($pic1, "_test")

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

GUISetState()

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

While 1
WEnd

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

Func _test()
_picbutton($pic1, $pic2)
Sleep(1000) ;nur damit du siehst das das alte bildchen wieder kommt xD
MsgBox(0, "", "hier kommt jetzt die eig. funktion")
EndFunc

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

Func _picbutton($button1, $button2)
While _IsPressed(01)
GUICtrlSetState($button2, $GUI_SHOW)
GUICtrlSetState($button1, $GUI_HIDE)
Sleep(100)
WEnd
GUICtrlSetState($button1, $GUI_SHOW)
GUICtrlSetState($button2, $GUI_HIDE)
EndFunc

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

Func _exit()
Exit
EndFunc

[/autoit]

**Alina**

Moin-Moin

Oder Du machst es so:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Misc.au3>

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

Opt("GUIOnEventMode", 1)

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

GUICreate("Test", 100, 40) ; Titel des Fensters
$button = GUICtrlCreatePic("C:\Air\KalLauncher\Start.jpg", 10, 10, 80,26) ; Bild wenn Button NICHT gedrückt
$button2 = GUICtrlCreatePic("C:\Air\KalLauncher\Start.jpg", 11, 11, 78,24) ; Bild wenn Button gedrückt ist (Maus-Klick-Effekt)
GUICtrlSetState($button2, $GUI_HIDE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button, "_test")

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

GUISetState()

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

While 1
WEnd

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

Func _test()
While _IsPressed(01)
GUICtrlSetState($button2, $GUI_SHOW)
GUICtrlSetState($button, $GUI_HIDE)
Sleep(100)
WEnd
GUICtrlSetState($button, $GUI_SHOW)
GUICtrlSetState($button2, $GUI_HIDE)
Sleep(1000) ;nur damit du siehst das das alte bildchen wieder kommt xD
MsgBox(0, "", "hier kommt jetzt die eig. funktion")
EndFunc

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

Func _exit()
Exit
EndFunc

[/autoit]

Edit:
Script von mir nur verändert. Original von: FireFlyer
Habe das so gemacht, das man nur ein Bild hat, das aber einen sog. Maus-Klick-Effekt hat, wenn man es anklickt. Achtet mal drauf, das Bild wird dann etwas kleiner.

eigentlich ist das Script doch sehr leicht zu verstehen.

Spart man ein Bild

Gruß, Crazy-A.

**BugFix**

oder so:

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
Global $picBasic = 'C:\WINDOWS\system32\oobe\images\'
Global $pic1 = 'nextover.jpg', $pic2 = 'nextup.jpg'

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

$gui = GUICreate("Test",Default,Default,-1,-1)
$btn = GUICtrlCreatePic($picBasic & $pic1, 30, 40, 24, 24, $SS_BLACKRECT)
GUISetState()

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

Do
$msg = GUIGetMsg()
$aCursorInfo = GUIGetCursorInfo()
Select
Case $aCursorInfo[2] = 1 And $aCursorInfo[4] = $btn
_AnimButton($gui, $btn, $picBasic & $pic1, $picBasic & $pic2)
; Code
Case Else
;;
EndSelect
Until $msg = $GUI_EVENT_CLOSE

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

Func _AnimButton($IDgui, ByRef $IDbtn, $picUP, $picDOWN, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
GUICtrlDelete($IDbtn)
Local $tmpBtn = GUICtrlCreatePic($picDOWN, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Sleep($delay)
GUICtrlDelete($tmpBtn)
$IDbtn = GUICtrlCreatePic($picUP, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc

[/autoit]

Eistee

äh geht das evtl. auch mit etwas weniger code mit erklärung welche funktion was macht ?
des von fireflyer macht bei mir gar nichts
und die anderen raffe ich nicht

so gehts schonmal nicht

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

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

DirCreate("C:\Air\KalLauncher")
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
_GuiRoundCorners($Form1, 0, 0, 10, 10)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetOnEvent($pic2, "_test")
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlSetOnEvent($pic2, "_test")
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
_GuiRoundCorners($Form1, 0, 0, 65, 65)
$Pic2 = GUICtrlCreatePic("C:\Air\KalLauncher\Startb.jpg", 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

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

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', _
'long', $x1, _
'long', $y1, _
'long', $pos[2], _
'long', $pos[3], _
'long', $x3, _
'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc

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

Func _test()
_picbutton($pic2, $pic3)
EndFunc
Func _picbutton($button1, $button2)
While _IsPressed(01)
GUICtrlSetState($button2, $GUI_SHOW)
GUICtrlSetState($button1, $GUI_HIDE)
Sleep(100)
WEnd
GUICtrlSetState($button1, $GUI_SHOW)
GUICtrlSetState($button2, $GUI_HIDE)
EndFunc

[/autoit]

**BugFix**

Zitat von Eistee

und die anderen raffe ich nicht

Ich glaube, du willst es dir zu leicht machen. Du mußt natürlich den von uns gezeigten Code durcharbeiten, Funktionen, die du nicht verstehst in der Hilfe nachschlagen, solange bis dir klar ist, was dort passiert.
Ich habs mal kommentiert. Aber meine Kommentare enthalten eigentlich nur das, was du selbst nachlesen kannst!

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
Global $picBasic = 'C:\WINDOWS\system32\oobe\images\'
Global $pic1 = 'nextover.jpg' ; Bild f. nicht gedrückten Button
Global $pic2 = 'nextup.jpg' ; Bild für gedrückten Button

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

$gui = GUICreate("Test",Default,Default,-1,-1)
$btn = GUICtrlCreatePic($picBasic & $pic1, 30, 40, 24, 24, $SS_BLACKRECT)
GUISetState()

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

Do
$msg = GUIGetMsg()
$aCursorInfo = GUIGetCursorInfo()
Select
Case $aCursorInfo[2] = 1 And $aCursorInfo[4] = $btn ; li. (primäre) Maustaste UND Button gedrückt
; AnimierFunc aufrufen (ID-GUI, ID-Btn, BildPfad-nicht-gedrückt, BildPfad-gedrückt [, optional Verzögrung])
_AnimButton($gui, $btn, $picBasic & $pic1, $picBasic & $pic2)
; Code
Case Else
;;
EndSelect
Until $msg = $GUI_EVENT_CLOSE

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

Func _AnimButton($IDgui, ByRef $IDbtn, $picUP, $picDOWN, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
GUICtrlDelete($IDbtn)
Local $tmpBtn = GUICtrlCreatePic($picDOWN, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Sleep($delay)
GUICtrlDelete($tmpBtn)
$IDbtn = GUICtrlCreatePic($picUP, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc

[/autoit]

Eistee

nw Bugfix ich wills mir nicht leicht machen ehrlich ich verstehe Deinen script auch mit diesen kommentaren nicht der liest sich schon sau kompliziert

JoEtHeKiLlEr

Öhm was gibts da nicht zu verstehen?
Als ob das jetzt eine schwer zu verstehende Funktion wäre... [Blockierte Grafik: http://www.ugly.plzdiekthxbye.net/medium/m078.gif]

Eistee

ja ist es und vor allem sehr unübersichtlich des weiteren weis man nicht was man wie zuordnen muss was die egentliche funktion ist und wie ich das in meinem script unter kriege

**BugFix**

Zitat von Eistee

und vor allem sehr unübersichtlich

Ich glaube, du weißt nicht, was du mit diesem Satz angerichtet hast!
Diesen wirklich einfachen Code von mir als *sehr unübersichtlich* zu bezeichnen, betrachte ich schon als persönliche Beleidigung!!

Vielleicht solltest du mal in Betracht ziehen, dass das *Unübersichtlichkeitsproblem* zwischen deinen Ohren sitzt.
Würdest du dir die Mühe machen, die verwendeten Funktionen in der Hilfe nachzulesen und nachzustellen, hättest du auch keine Probleme, den Code zu verstehen.

[NB]
User Eistee in meine Non-Support-List verschieb
[/NB]

Eistee

äh lol wieso persönlich angegriffen ? ich blicke da nicht durch bei so viel variablen und diesen dingern wo man global davor schreibt
für mich ist sowas sau unübersichtlich ich raffe da gar nichts das war nichts gegen dich bugfix ganz ehrlich

und einfach ist dein code nicht im geringsten da blickt doch keine sau durch
das ist nichts gegen dich aber so ein "krieg der Variablen" ist nichts für mich

nochdazu funktioniert dein script nichtmal
da kommt nur eine gui ohne inhalt ohne buttons ohne irgendwas

**BugFix**

Zitat von Eistee

nochdazu funktioniert dein script nichtmal
da kommt nur eine gui ohne inhalt ohne buttons ohne irgendwas

Wahrscheinlich nutzt du kein Windows sondern Vista
- Pfad anpassen:

[autoit]

; statt
Global $picBasic = 'C:\WINDOWS\system32\oobe\images\'
; ändern zu ==>
Global $picBasic = @SystemDir & '\oobe\images\'

[/autoit]

Eistee

nice joke man
ja ich verwende vista danke

Edit: habe die zeile ausgetausch ebenfalss nur eine leere gui

habe jetzt einfach @scriptdir genommen und eigene bilder verwendet so geht es problemfrei
wäre echt cool aber ich verstehe immer noch nicht wie ich das in mein script einbauen könnte

Eistee

so habe es jetzt lange probiert bin jetzt schon mal soweit das er das erste bild verschwinden lässt...
kann mir bitte jemand einen Tipp geben wo der Fehler ist ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#include-once
#NoTrayIcon

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

Global $picBasic = 'C:\Air\KalLauncher\'
Global $pic21 = 'startb.jpg' ; Bild f. nicht gedrückten Button
Global $pic22 = 'start2.jpg' ; Bild für gedrückten Button

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

DirCreate("C:\Air\KalLauncher")
FileInstall("rd.bmp","C:\Air\KalLauncher\rdacd.bmp")
FileInstall("Start.jpg","C:\Air\KalLauncher\Startb.jpg")
FileInstall("balk.jpg","C:\Air\KalLauncher\balk.jpg")
FileInstall("Options.jpg","C:\Air\KalLauncher\Optionsb.jpg")
FileInstall("Website.jpg","C:\Air\KalLauncher\Websiteb.jpg")
FileInstall("Close.jpg","C:\Air\KalLauncher\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic($picBasic & $pic21, 40, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Air\KalLauncher\Optionsb.jpg", 210, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Air\KalLauncher\Websiteb.jpg", 380, 269, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("C:\Air\KalLauncher\Close.jpg", 517, 15, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic13 = GUICtrlCreatePic("C:\Air\KalLauncher\balk.jpg", 0, 269, 550, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Pic1 = GUICtrlCreatePic("C:\Air\KalLauncher\rdacd.bmp", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
GUICtrlCreateLabel("",15,15,520,155,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Edit1 = GUICtrlCreateEdit("", 0, 168, 550, 99)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd

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

Func _1 ()
Do
$msg = GUIGetMsg()
$aCursorInfo = GUIGetCursorInfo()
Select
Case $aCursorInfo[2] = 1 And $aCursorInfo[4] = $Pic2 ; li. (primäre) Maustaste UND Button gedrückt
; AnimierFunc aufrufen (ID-GUI, ID-Btn, BildPfad-nicht-gedrückt, BildPfad-gedrückt [, optional Verzögrung])
_AnimButton($Form1, $Pic2, $picBasic & $pic21, $picBasic & $pic22)
; Code
Case Else
;;
EndSelect
Until $msg = $GUI_EVENT_CLOSE
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
Sleep(200)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

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

Func _AnimButton($IDgui, ByRef $IDbtn, $picUP, $picDOWN, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
GUICtrlDelete($IDbtn)
Local $tmpBtn = GUICtrlCreatePic($picDOWN, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Sleep($delay)
GUICtrlDelete($tmpBtn)
$IDbtn = GUICtrlCreatePic($picUP, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc

[/autoit]

**BugFix**

Na gut, einmal noch.

Habe die Funktion mal so verändert, dass nur noch ein Picture benötigt wird. Den optischen Klick-Effekt erzeuge ich durch Verschieben und Übergrauen des Picture-Controls.

Spoiler anzeigen

[autoit]

#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
Global $pic = @SystemDir & '\oobe\images\nextover.jpg'

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

$gui = GUICreate("Test",Default,Default,-1,-1)
$btnPic = GUICtrlCreatePic($pic, 30, 40, 24, 24)
GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnPic
_AnimButton($gui, $btnPic)
MsgBox(0, '', 'click')
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

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

;==================================================================================================
; Function Name: _AnimButton($IDgui, $IDbtn [, $delay=150])
; Description: animiert ein Pic, wie einen geklickten Button
; Parameter(s): $IDgui ID der GUI
; $IDbtn ID des Picture als Button
; optional $delay Verzögerung Zustand geklickt/nicht geklickt, Standard 150 ms
;==================================================================================================
Func _AnimButton($IDgui, $IDbtn, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0]+$pos[0], $pWin[1]+$pos[1]+20, $WS_POPUP)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOW, $tmpGui)
Sleep($delay)
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

[/autoit]

Eistee

so funktioniert es perfekt aber eine klitzekleine frage noch
kann man den effekt den du benutzt hast auch so ändern das der button kurz schwarz umrandet wird ?

P.S. @Crazy-A dein zip archiv ist beschädigt ich kann es nicht öffnen

**Alina**

Dann brauchst Du aber zwei Bilder.

Hier nochmals die gepackt Datei !!!
Sound an und los geht es. Also auf meinen Laptop funzt es einwandfrei !!!

Gruß, Crazy-A.

Eistee

@Crazy-A
ähm mal ne frage was nutzt eine leere gui ?

BugFix

Habe die func etwas verändert

Spoiler anzeigen

[autoit]

Func _AnimButton($IDgui, $IDbtn, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0]+$pos[0], $pWin[1]+$pos[1]+200, $WS_POPUP);die +20 durch +200 dadurch ist der komische weise effekt nichtmehr da dann isses perfekt
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOW, $tmpGui)
Sleep($delay)
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

[/autoit]

So ist es perfekt danke nochmal und sry für vorhin ne

Mfg LogiVidia

Edit: mist mir fällt grade auf das das doch noch kommt nur weiter unten...

Ok habe diesen teil einfach herausgelöscht

Spoiler anzeigen

[autoit]

Func _AnimButton($IDgui, $IDbtn, $delay=150)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0]+$pos[0], $WS_POPUP)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOW, $tmpGui)
Sleep($delay)
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

[/autoit]

**BugFix**

Wenn du den Effekt nicht willst, kannst du die Zeilen 5,6,7,9 kpl. löschen.
Das ist das, was ich meine - du verwendest die Dinge ohne zu wissen was du tust.

Eistee

wieso ? ich habe es doch noch iwie weggekriegt