İyi günler. Ekteki kodlar AutoIt programıyla açılan. AU3 uzantılı kodlardır. Zamanında Recep Baltaş hocam bulmuştu. Bu kodları AutoIt programıyla açıp F5'e bastığımızda, bir exe dosyası ve güzel bir efekt oluşturuyor. Amacım bu efekti ekran koruyucu gibi kullanabilmek. Fakat bu kodların içinde, her seferinde ekran resmini kaydeden satır veya satırlar var. İşte bundan kurtulmak istiyorum. İçinde m. BMP geçen satırları comment haline getiriyorum. Fakat hata veriyor. Yapamadım bir türlü. Hangi satırları iptal edersem hata vermeden ekran resmi oluşturmasını devre dışı bırakabilirim ve efekt normal olarak çalışabilir? Kod:Panoya kopyala #include <ScreenCapture. au3> ; Animation from 0 to 21 Local $iAnimation = 0 ; ATTENTION! ; This enables GDI acceleration. Disable this if the script does Not ; run as expected Local $bAndyMode = True ; m1, m2, k1, k2, z1, z2 Local $aAnimations = [ _ , _ ; 0 - Melt , _ ; 1 - Powder Blow , _ ; 2 - Powder , _ ; 3 - Evaporate , _ ; 4 - Water Color , _ ; 5 - Accumulate , _ ; 6 - Checks , _ ; 7 - Extreme Checks , _ ; 8 - Wind Blow , _ ; 9 - Pour Down , _ ; 10 - Running , _ ; 11 - Crazy Smoke , _ ; 12 - Super Fast Stream , _ ; 13 - Moving Water , _ ; 14 - Sort of Powder & Water , _ ; 15 - Dissolve , _ ; 16 - Blinds , _ ; 17 - Stars , _ ; 18 - Arrows , _ ; 19 - Fire , _ ; 20 - Grained _ ; 21 - Shake ] Global Const $hDwmApiDll = DllOpen Global $sChkAero = DllStructCreate DllCall($hDwmApiDll, "int", "DwmIsCompositionEnabled", "ptr", DllStructGetPtr Global $aero = DllStructGetData($sChkAero, 1) If $aero Then DllCall ;Sleep(500) Opt("GUIOnEventMode",1) Local $c=b(0),$a=@DesktopWidth,$b=@DesktopHeight _ScreenCapture_Capture("m. bmp",0,0,-1,-1, False) $d = GUICreate(0,$a,$b,0,0,0x80000000) GUISetOnEvent(-3,"a") GUICtrlCreatePic("m. bmp",0,0,$a,$b) $e=b GUISetState While 1;. $f=($a-$aAnimations ) random(0,1) $g=($b-$aAnimations ) random(0,1) $h = $aAnimations random(0,1) - $aAnimations $i = $aAnimations random(0,1) - $aAnimations If Not $bAndyMode Then DllCall("gdi32. dll","bool","BitBlt","handle",$e,"int",$f+$h,"int",$g+$i,"int",$aAnimations ,"int",$aAnimations ,"handle",$c,"int",$f,"int",$g,"dword",0x00CC0020); Else DllCall("gdi32. dll","bool","BitBlt","handle",$e,"int", int , "int", int ,"int",128, "int",128,"handle",$e,"int", int ,"int", int , "dword", 0x00CC0020) ;Andy's Variante EndIf WEnd; DllCall("user32. dll","int","ReleaseDC","hwnd",$d,"handle",$e) DllCall("user32. dll","int","ReleaseDC","hwnd",0,"handle",$c) Func a ; If $aero Then DllCall Exit; EndFunc;. ... ... Olumsuz dahi olsa ya da yol gösterme adına cevap verebilecek var mı? Örnek buna benzer talepleri, technopat dışında hangi sitede çözüme kavuşturabilirim?