Search the Community

[b]Merhaba arkadaşlar. Benim sorunum şu şekilde. Aşağıdaki kodları bu siteden bi konudan aldım. Resim ve müzik eklemede sorun yok. Çok güzel çalışıyor. Fakat ben bir konuda takıldım. Resim birden görünüyor ve Sleep(5000) süresi sonunda aniden kayboluyor. Resim aşağıdan çıksın ve süre bitince aşağıya doğru insin istiyorum. Yani aşağı ve yukarı efekti nasıl uygularız. ? Şimdiden teşekkür ederim[/b] [CODE] #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=cs.ico #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <WindowsConstants.au3> #include <GuiConstantsEx.au3> #include <GDIPlus.au3> Global $Resim = __TempFile(".png") Global $MP3 = __TempFile(".wav") FileInstall("Resim.png", $Resim, 1) ;Resmi autoit içine alalım FileInstall("Muzik.wav", $MP3, 1) ;MP3ü autoit içine alalım If FileExists($MP3) = 1 Then SoundPlay($MP3, 0) Global $ResW, $ResH _My_Gui() Sleep(5000) FileDelete($Resim) FileDelete($MP3) Exit Func SetBitmap($hGUI, $hImage, $iOpacity) Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend $hScrDC = _WinAPI_GetDC(0) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) $pSize = DllStructGetPtr($tSize) $ResW = _GDIPlus_ImageGetWidth($hImage) $ResH = _GDIPlus_ImageGetHeight($hImage) DllStructSetData($tSize, "X", $ResW) DllStructSetData($tSize, "Y", $ResH) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) $pBlend = DllStructGetPtr($tBlend) DllStructSetData($tBlend, "Alpha", $iOpacity) DllStructSetData($tBlend, "Format", 1) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_SelectObject($hMemDC, $hOld) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) EndFunc ;==>SetBitmap Func _My_Gui() Local $yGUI = GUICreate("", 1, 1, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) _GDIPlus_Startup() Local $yImage = _GDIPlus_ImageLoadFromFile($Resim) SetBitMap($yGUI, $yImage, 255) Local $Gui_X = @DesktopWidth - ($ResW + 5) Local $Gui_Y = @DesktopHeight - ($ResH + 5) Local $Shell_Pos = WinGetHandle("[CLASS:Shell_TrayWnd]") ;CLASS:Progman If $Shell_Pos <> "" Then $Shell_Pos = WinGetPos($Shell_Pos) If UBound($Shell_Pos) = 4 Then If $Shell_Pos[1] < 1 Then If $Shell_Pos[0] > 0 Then $Gui_X = @DesktopWidth - ($Shell_Pos[2] + ($ResW + 5)) Else If $Shell_Pos[0] < 1 Then $Gui_Y = @DesktopHeight - ($Shell_Pos[3] + ($ResH + 5)) EndIf EndIf EndIf WinMove($yGUI, "", $Gui_X, $Gui_Y, $ResW, $ResH) GUISetState(@SW_SHOW) EndFunc ;==>_My_Gui Func __TempFile($s_FileExtension = ".tmp", $s_DirectoryName = @TempDir, $s_FilePrefix = "~", $i_RandomLength = 7) ; Check parameters If IsKeyword($s_FilePrefix) Then $s_FilePrefix = "~" If IsKeyword($s_FileExtension) Then $s_FileExtension = ".tmp" If IsKeyword($i_RandomLength) Then $i_RandomLength = 7 If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir ; First reset to default temp dir If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir ; Still wrong then set to Scriptdir ; add trailing \ for directory name If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" ; Local $s_TempName Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return $s_TempName EndFunc ;==>__TempFile [/CODE]