SimpsoN_Bart

Bu çalışmamda basit olarak Fade ın ve out efeklerini anlatacağım.Yaptığınız çalışmalar için giriş ve çıkış efektlerini bir kaç şekilde yapabilirsiniz. WinSetTrans ile; #NoTrayIcon #RequireAdmin ;Coder By SimpsoN_Bart Global $GUI_TITLE = 'Tnctr Fade In Fade Out' Global $HWND, $BTN_ABOUT, $BTN_EXIT $HWND = GUICreate($GUI_TITLE, 280, 107, 370, 213, -1, 0x00080000) $BTN_ABOUT = GUICtrlCreateButton("Hakkında", 20, 60, 110, 25) $BTN_EXIT = GUICtrlCreateButton("Çıkış Yap", 150, 60, 110, 25) GUISetState() _SK_Fade_In_Out($HWND, True) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 _SK_Fade_In_Out($HWND) ;Çarpıya Basıldığında Kapatma Exit Case $BTN_EXIT _SK_Fade_In_Out($HWND) ;Butona Basıldığında Kapatma Exit Case $BTN_ABOUT _ABOUT() EndSwitch WEnd Func _ABOUT() MsgBox(64, "Hakkında", "Coder By SimpsoN_Bart", 2) EndFunc ;==>_ABOUT Func _SK_Fade_In_Out($GuiHwnd, $In = False) If $In = True Then Local $Start = 50, $End = 255, $Step = +1 Else Local $Start = 255, $End = 50, $Step = -4 EndIf For $I = $Start To $End Step $Step WinSetTrans($GuiHwnd, "", $I) Sleep(2) Next EndFunc ;==>_SK_Fade_In_Out WinAPI ile; ;Coder By SimpsoN_Bart #NoTrayIcon #RequireAdmin Global $GUI_TITLE = 'Tnctr Fade In Fade Out' Global $HWND, $BTN_ABOUT, $BTN_EXIT Global $nMsg, $I $HWND = GUICreate($GUI_TITLE, 280, 107, 370, 213, -1, 0x00080000) $BTN_ABOUT = GUICtrlCreateButton("Hakkında", 20, 60, 110, 25) $BTN_EXIT = GUICtrlCreateButton("Çıkış Yap", 150, 60, 110, 25) GUISetState() _SK_FadeIn() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 _SK_FadeOut() Exit Case $BTN_EXIT _SK_FadeOut() Case $BTN_ABOUT _ABOUT() EndSwitch WEnd Func _SK_FadeIn() For $I = 0 To 255 Step 4 __WinAPI_SetLayeredWindowAttributes($HWND, 0xABABAB, $I, BitOR(0x1, 0x2)) Sleep(20) Next EndFunc ;==>_SK_FadeIn Func _SK_FadeOut() For $I = 255 To 0 Step -4 __WinAPI_SetLayeredWindowAttributes($HWND, 0xABABAB, $I, BitOR(0x1, 0x2)) Sleep(20) Next Exit EndFunc ;==>_SK_FadeOut Func _ABOUT() MsgBox(64, "Hakkında", "Coder By SimpsoN_Bart", 3) EndFunc ;==>_ABOUT Func __WinAPI_SetLayeredWindowAttributes($HWND, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False) If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03 If Not $isColorRef Then $i_transcolor = Hex(String($i_transcolor), 6) $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2)) EndIf Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $HWND, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc ;==>__WinAPI_SetLayeredWindowAttributes Ayrıca Bkz: http://www.tnctr.com/topic/205961-sk-animatewindowex/ https://www.box.com/s/ebwmzq0bo9ipmcmilhk2 Sleep ve diğer sayısal değerleri kendinize göre ayarlayabilirsiniz..Umarım faydalı olmuştur.

[font="Georgia"] [font="Georgia"][img]http://i.imgur.com/hZZHU.png[/img] [/font]Hemen ardıdan V2 versiyonu sizlerle.. [/font] [font="Georgia"][codebox]#include <Array.au3> Local $Form1 = GUICreate("Loto Tahmini", 392, 153, 192, 114) Local $Button1 = GUICtrlCreateButton("Sayı Üret", 72, 112, 89, 25) Local $Button2 = GUICtrlCreateButton("Kapat", 216, 112, 97, 25) $Label1 = GUICtrlCreateLabel("", 8, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label2 = GUICtrlCreateLabel("", 72, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label3 = GUICtrlCreateLabel("", 136, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label4 = GUICtrlCreateLabel("", 200, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label5 = GUICtrlCreateLabel("", 264, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label6 = GUICtrlCreateLabel("", 328, 72, 36, 17) GUICtrlSetBkColor(-1, 0xFFFFFF) $Label7 = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret:", 8, 40, 182, 17) GUISetState(@SW_SHOW) Global $array[6] While 1 $nMsg = GUIGetMsg() If $nMsg = $Button1 Then $sayac = 6 While $sayac > 0 $sayi = Random(1, 49, 1) _ArraySearch($array, $sayi) If @error Then _ArrayInsert($array, "", $sayi) $sayac = $sayac - 1 EndIf WEnd $Progress1 = GUICtrlCreateProgress(192, 24, 193, 9) $Label8 = GUICtrlCreateLabel("İşlem...", 192, 0, 59, 17) GUICtrlSetData($Progress1, 10) Sleep(1000) GUICtrlSetData($Label1, $array[0]) GUICtrlSetData($Progress1, 20) Sleep(800) GUICtrlSetData($Label2, $array[1]) GUICtrlSetData($Progress1, 35) Sleep(600) GUICtrlSetData($Label3, $array[2]) GUICtrlSetData($Progress1, 50) Sleep(400) GUICtrlSetData($Label4, $array[3]) GUICtrlSetData($Progress1, 70) Sleep(200) GUICtrlSetData($Label5, $array[4]) GUICtrlSetData($Progress1, 100) GUICtrlSetData($Label6, $array[5]) GUICtrlSetData($Label8, "Sayılarınız!") EndIf If $nMsg = $Button2 Then Exit EndIf WEnd[/codebox] [/font] [font="Georgia"][color="#ff0000"]Edit v1+v2 blackman12 modifye source + program;[/color][/font] [font="Georgia"]http://www.mediafire.com/download.php?71aie64p7rzsnzt[/font]

[font="Georgia"]Bende hata vermedi ama tekrar upload ediyorum hemen[/font]

Basit olarak sayısal tahmin yapıyor, kim bilir bu programla belki sizde zengin olabilirsiniz. Kodlamada örnek alınabilir yerler koydum örneğin tek butonla 2 iş yapmak, random kullanımı kodlama da en çok kullandığım AdlibRegister() ve AdlibUnRegister() kodu kullanımı ve dizi kullanımı umarım işinize yarar.Kolay gelsin. ;Coder By SimpsoN_Bart Global $_BUTTON = False Local $GUI = GUICreate("Loto Tahmini", 230, 100) Local $LABEL = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret:", 5, 10) Local $GENERATE = GUICtrlCreateButton("Sayı Üret", 10, 30, 100, 20) Local $EXIT = GUICtrlCreateButton("Kapat", 116, 30, 100, 20) Global $I[6] For $N = 1 To 6 $I[$N - 1] = GUICtrlCreateInput("", 10 + 35 * ($N - 1), 60, 30, 20) Next GUISetState() While 1 $MSG = GUIGetMsg() Select Case $MSG = -3 Or $MSG = $EXIT Exit Case $MSG = $GENERATE If $_BUTTON = False Then $_BUTTON = True Else $_BUTTON = False EndIf If $_BUTTON = True Then GUICtrlSetData($GENERATE, 'Dur') AdlibRegister('_SK_RANDOM_NUMBER', 50) EndIf If $_BUTTON = False Then GUICtrlSetData($GENERATE, 'Sayı Üret') AdlibUnRegister('_SK_RANDOM_NUMBER') EndIf EndSelect WEnd Func _SK_RANDOM_NUMBER() For $N = 1 To 6 GUICtrlSetData($I[$N - 1], Random(1, 49, 1)) Next EndFunc ;==>_SK_RANDOM_NUMBER Program + Source Code v1+v2 https://www.box.com/s/sikapn3htb7ssf1pymr1 https://www.box.com/s/va710629db1qokjc8znk

Çalıştırmaktan ziyade reg yazmak daha mantıklı. Basit bir örnek verecek olursak; [codebox]#RequireAdmin RegWrite("HKEY_CURRENT_USER\Software\Test", "TestKey", "REG_SZ", "TNCTR") [/codebox] Kendine göre düzenlersin iyi akşamlar..

[font="Georgia"]Netframework kurmayı dene bide setup eksik olabilir sitede katılımsız var onda sıkıntı vermez.Kolay gelsin..[/font] [font="Georgia"]bunuda kurmayı dene genelde bu eksik olunca da olur bilgisayrını güncellemyi dene[/font] [font="Georgia"][code] http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=5638[/code] [/font]

[font="Georgia"]Bilgisayarında ne kadar RAM var ?[/font]

[font="Georgia"]Yüce Allah (c.c) uzun ömürler versin.Hep bizimle olman dileğiyle,esenle kal..[/font]

[font="Georgia"]Çalıştırılabilir program dosyaları için Run komutunu Kullanırız..Bunu yanında ShellExecute komutuda iş görür help dosyasında aratırsan ayrıntılı bilgi bulabilirsiniz.Kolay gelsin[/font] [codebox]Run(@WindowsDir & "\Notepad.exe", "", @SW_MINIMIZE) ;Min Run(@WindowsDir & "\Notepad.exe", "", @SW_HIDE) ;Hide[/codebox]

[quote name='Lastman' date='24 November 2011 - 20:17 ' timestamp='1322158678' post='1117758'] başındaki ftp. yı kaldırıp denedin mi hiç? mesela ftp.sitem.com yerine sitem.com birde 1ay sık sık bağlanmışsan ib ban yemiş olabilirsin.ip sabit değilse modeme reset atıp tekrar bağlanmayı deneyebilirsin. şimdilik bunlar geliyor aklıma [/quote] [font="Georgia"] Arkadaşa katılıyorum benden önce davranmış bu tip sorunlarda bunlara bakarız zaten.[/font]

[font="Georgia"]Bi sorun daha var webmaster bölümünüde aynı konuyu açmış neyi nerde yapmak isteğini bilsek biraz da toparlayıp derdini tam ve acık anlatsa yardımcı olacağız ama durum karışık hayırlısı [/font]

[font="Georgia"]Biraz kafam karıştı bunların hepsini nasıl yazdın sen [img]http://www.tnctr.com/public/style_emoticons/default/mellow.gif[/img][/font] [font="Georgia"]Belki biraz daha acıklayıcı olursan bişeyler karalarız..[/font]

[font="Georgia"]3 kere düzenledim olmuyor olmuyor [img]http://www.tnctr.com/public/style_emoticons/default/help.gif[/img][/font] [font="Georgia"]Neyse sağlık olsun ama işe yarar bi çalışmadır ccleaner den bozma temp silici [/font]

[font="Georgia"]Üstteki kodlarda File ile Array kütüphanlerini yazıyorum gözükmüyor ilginç [img]http://www.tnctr.com/public/style_emoticons/default/mellow.gif[/img][/font]

[font="Georgia"]Bi çalışmamda kullanmıştım, kendine göre düzenlersin..[/font] [font="Georgia"] [/font] [font="Georgia"][codebox]#Include #Include $Debug=0 Func KlasorBosalt($Klasor) $TumDosya=_FileListToArray($Klasor,"*",0) If $Debug Then MsgBox(0,"",$Klasor) If IsArray($TumDosya) Then If $Debug Then _ArrayDisplay( $TumDosya,$Klasor) EndIf For $i = 1 To $TumDosya[0] FileDelete($Klasor & "\" & $TumDosya[$i]) DirRemove($Klasor & "\" & $TumDosya[$i], 1) Next EndIf EndFunc KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temp") KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files\Content.IE5") KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files") ;KlasorBosalt (@HomeDrive & @HomePath & "\Cookies") KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\History") KlasorBosalt (@HomeDrive & "\Temp\Temporary Internet Files") KlasorBosalt (@WindowsDir & "\Temp") KlasorBosalt (@HomeDrive & @HomePath & "\Recent") KlasorBosalt (@HomeDrive & @HomePath & "\Application Data\Microsoft\Office\Recent") KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temp") MsgBox(0, "Durum", "Geçici doyalarınız silinmiştir.")[/codebox] [/font]

[font="Georgia"]Mesajların daha düzenli güzel olması için güzel bir çalışma,belki flood olaylarınıda azaltır..[/font]

[font="Georgia"]Eskisini kaldırmanız mümkün ise kaldırın yoksa mavi ekran alabilirsiniz...[/font]

[font="Georgia"]Basit bir örnek verecek olursak;[/font] [font="Georgia"] [/font] [codebox]Local $Form1 = GUICreate("Form1", 314, 157, 192, 124) Local $Button1 = GUICtrlCreateButton("Google", 216, 120, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 ShellExecute("www.google.com") EndSwitch WEnd[/codebox] [font="Georgia"]Bu gibi işlemler için autoitin hali hazırda fonksiyonları da vardır misal _IENavigate() de aynı işlevi görür daha fazlası için help dosyasının IE Management bölümüne bakabilirsiniz.[/font] [font="Georgia"] [/font] [font="Georgia"]İyi Bayramlar..[/font]

[font="Georgia"]Onun paylaşımı daha iyi olabilir,sen onun kini kullan bunlar pek de umrumda olduğu söylenemez ama farkındaysan konu içinde konu olması doğru bir olay değil. Kendi adına farklı bir başlıkta konu açması gerekirdi seninde dediğin gibi aynı konular değil.Hem o konu zaten forumda vardı.Daha önce aynı şeyi yaptı raporladım, yönetimde görüşlerimi doğru bularak mesajını sildi demek ki bi yerde haklıyım.Sana tavsiyem konu başlıklarına bak bakalım aynı içerikli konular iç içe mi yoksa farklı başlıklarda mı ? Ha benzer içerikli konuları bir araya toplayıp konu açılsa amenna.Misal MehMetBen adlı üyemiz öyle yaptı siteleri toplayıp videolu anlatım yapmış saolsun. Ayrıca bur da yapılan paylaşımlarda,açılan konularda,yazılan programlarda,projelerde kimsenin banka hesabına para yatmıyor yani kar amacı güdülmüyor sadece bunlara saygı duyulması bekleniyor senin gibi bilmeden konuşan kişiler yüzünden insanın konu açasıda gelmiyor.Bilmeden yere kimsenin avukatlığını yapma konuyuda baltalama gereksiz iletilerle dolması hoş değil..[/font]

[size=2][font="Georgia"]İşine yarayacağını umuyorum.[/font][/size][font=arial, verdana, tahoma, sans-serif][size=2][quote]http://www.tnctr.com/topic/162966-driver-aramaya-son/[/quote][/size][/font]

[font="Georgia"]Adam ölmedi (Allah Göstermesin,Uzun ömürler versin.) Emekli oldu sadece..[/font]

[font="Georgia"]Şunu az önce anladım ki güzide formumuz da hayalgücü çok gelişmiş arkadaşlar var. Yazılım konusunda dünyanın en zor işlerinden bi tanesi sıfırdan işletim sistemi yazmaktır. Sistem çekirdeği Linux olasa bile çok zor bir durum. Pardus'u bile tam olarak biz yazmadık. Linux tabanlı, yani çekirdeği bizim sayılmaz ayrıca Pardus'u da sıradan kişiler yazmadı ODTÜ'den ne mühendisler, TÜBİTAK' dan uzmanlar bir araya geldi de bir şeyler yaptılar. Onu geçtim şimdiler de beğenmediğimiz Windows 95 bile kaç satır kod içeriyor biliyor musunuz ? [/font][font="Tahoma"][size="3"][color="#ff0000"]11. Milyon satır[/color][/size][/font][font="Georgia"] kod ile yazıldı. İleri düzey C/C++ demek ne demek bilginiz var mı ? Görsellik de koyalım biraz Vista [/font][font="Tahoma"][size="3"][color="#ff0000"]50 Milyon satır kod[/color][/size][/font][font="Georgia"] ile yazıldı bi düşünün kodları editörde aşağı çekmek 2 saatinizi rahat alırdı Talha'nın dediği gibi adamın uğraşı belli AMS, onun için atıp tutmayı bırakında konu çöp olmasın, gereksiz iletilerden de kaçınalım, projeyi öğrenene kadar en azından üstümüze düşen bu..[/font]

[font="Georgia"]Unlocker programını indir ve kur dosyaya sağ tıkla sil komutunu seç büyük ihtimal silecektir kolay gelsin..[/font]

[font="Georgia"]Şuan baktım bende hiçbir sıkıntı yok. Sende niye böyle oldu bilemiycem doğrusu .[/font] [font="Georgia"]Edit: Ayrıca üstteki antivırus programları çok da başarılı değil yani önemli bir vırus yazmıs sayılmazsın.. [/font] [font="Georgia"][code]http://www.virustotal.com/file-scan/report.html?id=3f34918516acfb0bb3ec862a100d317a8fa75566220c4e57848ee39dc91efbaf-1316460276[/code] [/font]

[font="Georgia"]Compile edilen scriptin virüs olarak görünmesinin bazı sebebleri vardır. İlk olarak upx ile sıkıştırma ikinci olarak Obfuscator ile kod gizleme. Yanlış hatırlamıyorsam #RequireAdmin komutu da sebeb oluyordu. Antivırüsler genelde scripte uygulanan bu işlemlerden dolayı uygulamayı trojen olarak görür.Tabi sisteminde de sorun olabilir o ayrı mesele. Senin şuan yapabileceklerin, scripti upx ile sıkıştırma yapmamalısın ki bu pek ağam şahım bir küçültme yapmıyor ve obfuscate kullanmamalısın. Kod gizlemek için blue_life 'in çok başarılı bir çalışması var. Onu kullanmanı tavsiye ederim.Kendisine bu sebeble çalışması için teşekkürü bir borç biliyorum.Saygılarımla.. [/font] [font="Georgia"][code]http://www.tnctr.com/topic/92999-bl-autoit-v3-protect-v10/[/code][/font]