blue_life

@kalelibilişim [b]|[/b] için Ctrl + Alt + - tuş kombinasyonu. Soru işaretinin yanında. [b]/[/b] için ise; Ctrl + Alt + ? klevye tuş kombinasyonu kullanabilirsin. Tabi ben Q klevye kullanıyorum... Farlı klevye tiplerinde bu kombinasyonlar haliyle değişebilir...

Bir arkadaşımız özelden saydam yazı yazırma hakkında istekte bulunmuştu. Misal katılımsız bir çalışmadan sonra, bazı arkadaşlar ekranda yazı yazdırıyor veyahut saydam resim çıkartıyor. Bu yüzden bu konuyu açtım. Kısaca çok basit örneklerle bunu nasıl yapabileceğinizi göstermek istiyorum. Ilk olarak ekrana bir yazı yazdıralım. [img]http://i.imgur.com/XDIZX.png[/img] [codebox]$hGUI = GUICreate("BlueLife Test", 400, 70, -1, -1, 0x80000000, 0x00000080 + 0x00000008 + 0x00080000) GUISetBkColor(0xABCDEF) GUICtrlCreateLabel("Kurulum tamamlandı!" & @CRLF & " .:: BlueLife ::.", 0, 0,400,70,1) GUICtrlSetFont(-1, 24, 800, 2, "Tahoma") GUICtrlSetColor(-1, 0x000080) __WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 250) GUISetState(@SW_SHOW,$hGUI) Sleep(5000) ;5 Saniye bekleme 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[/codebox] Örnekte göreceğiniz üzere güimiz için bir arkaplan regi belirlemişiz. [b]GUISetBkColor(0xABCDEF)[/b] Sonra _[b]_WinAPI_SetLayeredWindowAttributes[/b]($hGUI, 0xABCDEF, 250) satırı ile bu belirlediğimiz renkleri ekrandan sildirmişiz. Bu arada ilgili udf WINAPI.au3 içinde mevcut! Aynı şekilde guimiz içinde bir resim oluşturup, resimde görünmesini istemediğimiz kısımları ilgili satır ile ekranda görünmemesini sağlayabiliriz. Hadi bunun içinde biraz değiştirererk bir örnek verelim. [codebox]Local $File = @ProgramFilesDir & "\AutoIt3\Examples\GUI\merlin.gif" If FileExists($File) = 0 Then MsgBox(16,"",$File & " dosyası bulunamadı!") Exit EndIf $hGUI = GUICreate("BlueLife Test", 68, 71, -1, -1, 0x80000000, 0x00000080 + 0x00000008 + 0x00080000) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($File,0,0,68,71) __WinAPI_SetLayeredWindowAttributes($hGUI, 0xFFFFFF, 250) GUISetState(@SW_SHOW,$hGUI) Sleep(5000) ;5 Saniye bekleme 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[/codebox] Istek üzerine, trayda yanında görülecek bir resim örneği. [codebox]Local $File = @DesktopDir & "\tnctr_logo.bmp" If FileExists($File) = 0 Then InetGet("http://bluelife.zxq.net/Files/Picture/tnctr_logo.bmp", $File,0,0) EndIf Local $ResW = 324 Local $ResH = 91 Local $Gui_X = @DesktopWidth - ($ResW + 5) $Gui_Y = @DesktopHeight - ($ResH + 5) Local $Bclor = 0x00ff1e 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 Local $hGUI = GUICreate("BlueLife Test", $ResW, $ResH, $Gui_X, $Gui_Y, 0x80000000, 0x00000080 + 0x00000008 + 0x00080000) GUISetBkColor($Bclor) If GUICtrlCreatePic($File,0,0,$ResW,$ResH) = 0 Then MsgBox(16,"",$File & " dosyası bulunamadı!") Exit EndIf __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,5) GUISetState(@SW_SHOW,$hGUI) For $I = 10 To 250 Step 5 __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,$I) Sleep(25) Next Sleep(5000) ;5 Saniye bekleme For $I = 250 To 5 Step -5 __WinAPI_SetLayeredWindowAttributes($hGUI, $Bclor,$I) Sleep(10) Next 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[/codebox] Umarım konuyu anlamıştırsınız... Kolay gelsin arkadaşlar... Edit: Eklediğim resim saydam deyil ama yazıyı yazdırıdığınızda kenardaki ilgili renler ekranda çıkmaz. Sadece yazı çıkar...

Bilgisayar başlangıcında çalıştırmak istediğin programın konumu [b]HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run[/b] anahtarı altına girebilirsiniz. Kısa bir örnek vermem gerekirse; [codebox]_Blue_Add_Startup(@WindowsDir & "\notepad.exe","Notepad") Func _Blue_Add_Startup($RegValue,$RegValueName = "") Local $Target_Key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" If @OSArch <> "X86" Then $Target_Key = "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" RegWrite($Target_Key, $RegValueName, "REG_SZ", $RegValue) EndFunc[/codebox] Eğer yapacağın autoit çalışmasının ismi sabit deyilse [b]@AutoItExe[/b] pramaetresini kullanabilirsin. Yani yukarıdaki örnekte notepad.exe konumu yerine @AutoItExe yazacaksın. Neyse kolay gelsin...

[b]SAPI.SpVoice[/b] hakkında daha fazla örnek için autoit forumlarını kurcalayabilirsiniz! [color="#0000FF"][u][b]http://www.google.com.tr/#sclient=psy-ab&hl=tr&source=hp&q=site%3Awww.autoitscript.com%2Fforum%20SAPI.SpVoice[/b][/u][/color]

Arkdaşlar sorun, programın çalışma diziniyle alakalıymış. Bazı programlar çalışma dizinindeki bir takım dosyaları kullanabiliyor. Biz direk farklı konumdan çalıştırdığımız için @MeHMeTBeN hata alıyormuş. Kısaca sorunun çözümü; [b]Run(@ProgramFilesDir & "\Metin2\metin2.exe",@ProgramFilesDir & "\Metin2")[/b] Veyahut; [b]ShellExecute(@ProgramFilesDir & "\Metin2\metin2.exe","",@ProgramFilesDir & "\Metin2")[/b]

@harme8 Autoitte farklı bir pencere içindeki pencere elemanlarına komut göndermek, kontrol etmek için [b]Control [/b]komutlarını kullanmalısınız! Misal sen farklı bir guideki bir radionun seçili olup olmadığına bakmak istiyorsun. O zaman [b]ControlCommand [/b]komutu içindeki [b]IsChecked [/b]seçeneğini kullanacaksın! Örnek vermem gerekirse; [codebox]Local $Blue_WinGetHandle = WinGetHandle("Başlığı gir","") If $Blue_WinGetHandle <> "" Then If ControlCommand($Blue_WinGetHandle,"", "TRadioButton1", "IsChecked", "") Then MsgBox(64,"","TRadioButton1 seçili!") ElseIf ControlCommand($Blue_WinGetHandle,"", "TRadioButton2", "IsChecked", "") Then MsgBox(64,"","TRadioButton2 seçili!") EndIf EndIf Exit[/codebox] Aynı şekilde focus olup olmadığını kontrol etmek içinde, [b]ControlGetFocus [/b]komutuyla şansını deneyebilirsin.

@MostWanted Illaki sakatlık çıkabilir ama genelde bu arkadaşlar filmleri aynı isimde kopyalarlar. O zaman bizde dosya boyutlarınıda dahil edebeliriz. Veyahut en basiti, belli boyutun üstündeki dosyalar kopyalanmak istenildiğinde engelleme yapılabilir. Şimdi seninde bildiğin üzere, sisteme takılan yeni yazılabilir sürücü kontrolü çok basit. Sonra ilgili sürücünün içeriği almakta basit. Daha sonra yeni dosyaları tespit etmekte basit. Ama kopyalamayı iptal edemiyoruz. Windows explorerde kopyalama işlemini shell32.dll üstleniyordu. Biz windows explorer için bir şey yapsak, bunun cmd.exe gibi farklı programları mevcut. Kopyalama anında sürücüyü sistemden de çıkartamıyoruz. Şimdi baktım. Bilgisyarımda temsil eden harfini silebiliyoruz lakin, kopyalama işleminde ilgili dll dosyaları volume ismini kullanıyor. Yani bilgisarımda explorerin ulaşabildiği harfi uçursak dahi kopyalamada bir sıkıntı çıkmıyor. Iyi incelemek lazım. Tabi kopyalamanın ardından kopyalanan dosyayı bozmak kolay

@pire05 Gördüğüm kadarıyla, ilgili flash belleğinde büyük bir sorun var. Bence bu sorunu formatla çözemezsin! Flash belleklerde depolama yapıldığı chip/chipler vardır.Işte bu elektronik devre elemanında (chip), veyahut bunun ile iletişim kuran devrelerde bir sıkıntı söz konusu! Sorun yazılımsal da olabilir ama düşük bir ihtimal. Sanmıyorum ama bir ihtimal chip programlarıyla chip bilgisi belki onarılabilir. [color="#0000FF"][u]http://flashboot.ru/index.php?name=Files&op=cat&id=6[/u][/color] Sen en iyi garantisi varsa garantiye yolla veyahut, üstüne bir bardak su iç. Zaten fazla pahalı olmayan parçalar. Tamir etttirmeye kalksan (ilgili arızalı kısım değişecek haliyle) belki daha pahalıya gelir @arda_cansu Yukarıdaki paylaştığımız HP USB Disk Storage Format Tool programını denermisin. Başarısız olursan, program senin flash diskinin kapasitesini doğru gösteriyor mu? Kontrol et bakalım. Belki senin sorununda aynı sorundur..

@STeRK Yapılabilir ama yapılsada güzel düzgün bir şey beklemeyin [codebox] _TalkOBJ("Hoş geldiniz") Func _TalkOBJ($s_text) Local $o_speech $o_speech = ObjCreate("SAPI.SpVoice") $o_speech.Speak ($s_text) $o_speech = "" EndFunc;==>_TalkOBJ Exit[/codebox]

@MeHMeTBeN Ilgili metin2.exe programını yazan arkadaş, programına bir kontrol eklemiştir... Ne olabilir dersen, metin2.exe çalışınca hangi programın altında çalıştığına bakar. Eğer bu altında çalıştığı program explorer.exe deyilse haliyle ilgili pencereyi çıkartabilir. Yada farklı bir işlem yaptırabilir. Şöyle bir test yap Ilgili autoit kodunu derle ve oluşan exenin adını explorer.exe yap ve çalıştır bakalim işleyecek mi? Yada ilgili program küçükse upload et ve konuya ekle. Uygun vakitte senin için, çalıştırmayı bende deneyeyim... Bakalım yapabilecek miyim

@vandan2 Haliyle güvenlik kodu istemyen resim barındırma sitelerinden birini kullanmak daha avantajlıdır. Yoksa güvenli kodunu kullancının girmesi için bir ekran çıkartırsın. Misl [color="#0000FF"][u][b]http://imgur.com/[/b][/u][/color] sitesinde güvenlik kodu yoktu. Bu tip siteleri incelemek lazım... Sonra ilgili gönderme işi bitince, siteyi okutur, linki bulabiliriz. Kısacası yapmak istediğini adım adım yapacaksın... Kodların hakkında bilgim olmadığından, msgbox ile neyi ifade ettiğini anlamadım. Program ilk kez çalıştığında bir uyarı versin, ve sonraki çalışmalarda uyarı vermesin diyorsan, bu bigiyi yanında oluşturacağın bir ini dosyasın veyahut registrydeki bir değer girersin ve her açılışta kontrol edersin. Örnek vereyim... [codebox]Global $Config_File = StringTrimRight(@ScriptFullPath, 3) & "ini" If IniRead($Config_File, "Options", "First", "") <> "True" Then MsgBox(64,"","Yazmak istediğin yaz!") IniWrite($Config_File, "Options", "First", "True") EndIf[/codebox] Programını windows başladığında başlatmak için, ilgiri registry anahtarını kullanabilirsin. [b]HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run[/b] vs. vs.

@MeHMeTBeN Konuda verilen örneklerde bir sorun yok. Normalde çalışması gerekiyor. Zaten kısyoldan ilgili programı çalıştırmakta iyi deyil! Tavsiyem ilgili kısayolun bağlı olduğu programı direk çalıştırmaya çalış. Tabi dosya konumunun doğru olup olmadığını bu sefer mesaj kutusyla kontrol edelim. [codebox]Global $Program = @ProgramFilesDir & "\Metin2\metin2.exe" MsgBox(64,"",$Program) If FileExists($Program) = 0 Then MsgBox(16,"",$Program & " bulunamadı!") Else Run(@ProgramFilesDir & "\Metin2\metin2.exe") EndIf[/codebox] Veyahut Run yerine ShellExecute ile tekrar dene! [codebox]Global $Program = @ProgramFilesDir & "\Metin2\metin2.exe" MsgBox(64,"",$Program) ShellExecute(@ProgramFilesDir & "\Metin2\metin2.exe")[/codebox]

@radyofon Ilgili dosyayı koruma amaçlı, salt okunur ve sistem dosyası olarak işaretliyoruz genelde! Sen istdiğin gibi kullanabilirsin....

Aşağıdaki küçük uygulamayı indirin! [u][color="#0000FF"][b]http://www.comfort-software.com/disable-autorun.html[/b][/color][/u] [img]http://www.comfort-software.com/images/DisableAutorun.png[/img] Çlaıştırıp, Check All tuşuna basıp Save ile kayıt edin! Sisteminizi veyahut windows exploreri yeniden başlatım. Ilgili ekran artık gelmeyecektir. Format için ise, HP USB Disk Storage Format Tool programını kullanabilirsiniz. [img]http://files.extremeoverclocking.com/images/HP_USB_Format_Tool.gif[/img] [color="#0000FF"][u][b]http://www.softpedia.com/get/System/Hard-Disk-Utils/HP-USB-Disk-Storage-Format-Tool.shtml[/b][/u][/color]

@BlueDragon Anlatmak istediğimi ya sen anlamadın, yada ben senin anlatmak istediğini anlamadım. Kısaca sen ne yapmak istiyorsun? Bilgisayarda yüklü bir antivirüs yazılımı ile otomatik bir dosyayı, klasörümü taratmak istiyorsun?

Genelde bu tip gelişmiş antivirüs yazılımlarının, komut istemi desteği mevcuttur. Bunun ile lgili uygulamaya, uygun parametre ve tarancak konumu verip tarama yaptırabilirsiniz. Lakin ben norton 360 kullanmıyorum. Bu nedenle sana tam bir yol göstermem mümkün deyil Googlede [color="#0000FF"][b]norton 360 commandline[/b][/color] şeklinde bir arama yapıp, çıkan sonuçları inceleyiniz. Misal ben meraktan ESET için baktım ve beni aşağıdaki sayfaya yönlendirdi [color="#0000FF"][b]http://kb.eset.com/esetkb/index?page=content&id=SOLN2285[/b][/color] Neyse kolay gelsin...

@ofccc Ben bu tip araştırmalara güvemiyorum. ESET güzel bir antivirüs yazılımıdır ve ben yaklaşık 5 yılı aşkın bir süredir ESET kullanıyorum. Şuana kadar virüs sorunu yaşamadım! Tabi antivirüs yazılımı yüklü diye kullanıcı bilinçsiz bir şekilde sistemini kullanırsa hangi antivirüs yazılımı olursa olsun, sisteme virüs/zararlı yazılım bulaşabilir. Sonuçta antivirüs yazılımı da bir programdır ve programlar bir takım etkenlerden bozulabiliyor/sorunul çalışabilir. Kanatimce, ESET, Kaspersyk kullanılabilir kaliteli antivirüs yazılımlarıdır. Ben halen ESET kullanmaya devam

@vandan2 Autoiti küçük görmeyiniz! Autoit gelişmiş ve gelişmekte olan bir script dilidir. Söylediğin autoitle tabiki yapılabilir ve okadar zorda sayılmaz. Ama bu konular, zaman alıcıdır. Yardım dosyasında zaten ekranın resmini çeken örnek mevcuttu! [codebox]#include <ScreenCapture.au3> ; Capture full screen _ScreenCapture_Capture(@DesktopDir & "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_" & @HOUR & @MIN & "-" & @SEC & ".jpg") [/codebox]

@radyofon Uçma gibi bir şey söz konusu deyildir! Için rahat olsun. Ilgili dosya sistem dosyası olarak işaretlendiğinden göremiyorsundur. Klasör seçeneklerinde, sistem dosyalarını gizle şeklinde bir seçenek vardır. Onun tıkını da kaldırmalısın!

@ZEUS__ Şimdi baktım ve linkte herangi bir sorun yok! Geri sayım bittikten sonra, geri sayım alanının hemen üstünde ortaya çıkan [color="#0000FF"][b]dosyayı şimdi indir[/b][/color] linkine tıklatacaksın. [img]http://i.imgur.com/9wcaa.png[/img]

@MeHMeTBeN Eklediğin resim nedeniyle sayfaya giriş yapıldığında, ftp kullanıcı bilgileri isteniyor! Bu konuda daha dikkatli olmalısın! Soruna gelirsek, sistemin nedir? Run komutu ile ilgili uygulamayı çalıştırdığında nasıl bir sorun yaşıyorsun. Sonuçta *.lnk yi yürüttüğümüzde de bağlı bulunduğu dosya çalıştırılacaktır... Eğer vista & win7 kullanıyorsan autoit script dosyanı yönetici olarak çalıştırıp denemelisin. Script dosyanın başıana #RequireAdmin satırını ekle! [b] #RequireAdmin Run(@ProgramFilesDir & "\Metin2\metin2.exe")[/b]

@kalelibilişim Ilgili anlatım sorunun çözümü [tnctr='topic/100852-cddvd-hdd-ve-usb-icin-multiboot-hazyrlamak']GrubDos ile Multiboot CD/DVD/HDD/USB[/tnctr] konusunun ikinci mesajında mevcuttur. Kısaca, iso içindeki dos menüsü açıldığında ve sen dos menüsünde bir seçenek seçtiğinde, ilgili seçeneğe ait dosyalar cd/dvd sürücüler ile fat16/Fat32 etc. dosya sistemlerinde aranmaktadır. Sen haliyle ntfs dosya sistemi kullandığından veyahut ilgili dosyalar sürücünün rootundaki HBCD klasöründe olmadığında hata alıyorsundur! Bu sorun için kısaca ayrı bir disk imajı kullanıyoruz. Ilgili konunun ikinci mesajını incelemeni tavsiye ederim...

@MeHMeTBeN Ilgili kısayol normalde çalışıyor mu acaba? @SimpsoN_Bart'ın verdiği komut doğru! Sistemindeki *.lnk dosya ilişkilendirmesinde bir sıkıntı olabilir!

@vandan2 Explorer dışında tüm ekranlar için aşağıdaki örneği hazırladım. Kendine göre düzenlersin. Bu arada ekranları gizleme ve tekrar aktif etmek için klevyendeki F9 tuşu ayarlı. Kendine göre ilgili kısmı düzenlersin! Neyse kolay gelsin... [codebox]Global $BlueHide = False, $BlueWList HotKeySet("{F9}", "_HIDE_UNHIDE") While 1 Sleep(100) WEnd Func _HIDE_UNHIDE() If $BlueHide = False Then $BlueWList = _BlueWinlist() For $I = 1 to $BlueWList[0] WinSetState($BlueWList[$I],"",@SW_HIDE) Next Else For $I = 1 to $BlueWList[0] WinSetState($BlueWList[$I],"",@SW_SHOW) Next EndIf $BlueHide = Not $BlueHide EndFunc Func _BlueWinlist() Local $ProcessList = ProcessList("Explorer.exe") ;Exploreri saf dışı bırakmak için Local $BluePList = "|" for $i = 1 to $ProcessList[0][0] $BluePList &= $ProcessList[$i][1] & "|" next Local $WinList = WinList() Local $ReturnWinList[25] = [0] For $i = 1 to $WinList[0][0] If $WinList[$i][0] = "" Then ContinueLoop If StringInStr($BluePList, "|" & WinGetProcess($WinList[$i][1]) & "|") <> 0 Then ContinueLoop If BitAnd( WinGetState($WinList[$i][1]), 2 ) Then $ReturnWinList[0] += 1 If UBound($ReturnWinList) >= $ReturnWinList[0] Then ReDim $ReturnWinList[$ReturnWinList[0] + 25] EndIf $ReturnWinList[$ReturnWinList[0]] = $WinList[$i][1] EndIf Next Return $ReturnWinList EndFunc[/codebox]

@vandan2 Kısaca saklamak istediğin tipteki pencereleri winlist ile listeleyip, WinSetState ile listedeki pencereleri saklayıp gösterebilirsin. Bunu ie içinmi yapmak istiyorsun?