blue_life

[codebox]_Blue_Dir_Remove(@UserProfileDir & "\Local Settings\Temporary Internet Files") Func _Blue_Dir_Remove($Folder) If StringRight($Folder,1) <> "\" Then $Folder &= "\" Local $search = FileFindFirstFile($Folder & "*") ,$file If $search <> -1 Then While 1 $file = FileFindNextFile($search) If @error Then ExitLoop If @extended = 1 Then If DirRemove($Folder & $file,1) = 0 Then FileSetAttrib($Folder & $file,"-RSH",1) DirRemove($Folder & $file,1) EndIf Else If FileDelete($Folder & $file) = 0 Then FileSetAttrib($Folder & $file,"-RSH") FileDelete($Folder & $file) EndIf EndIf WEnd EndIf FileClose($search) EndFunc[/codebox]

Bu konu için tekrar düşüncelerimi yazmak istiyorum. Amacımız sisteme yeni bir disk takıldığında, belirli isimdeki dosyaların kopyalanmasını önlemek ise; Ilgili bilgisayarlarda arkaplanda devamlı çalışan bir uygulama yapılır. Bu arkaplanda çalışan uygulama, sisteme yeni disk takılmaz ise uyku modunda kalır. Sisteme yeni bir disk takılınca, yeni diskteki dosya listesini alır. Yeni diske, bir dosya yazılırken daha önce belirlenmiş yasaklı listesine bakar ve bu yazılan dosya yasaklı listesindeyse, ilgili diski sistemden çıkartır siler! Ayrıca kullanıcıya bir uyarı verebilir. Bu şekilde, ilgili kullanıcı dosyayı sağlıklı bir biçimde diskine kopyalayamamış olur. Iyi düşünmek lazım....

@radyofon Abi aslında daha kısa kodlama ile de yapılırdı ama, işte malum kontrolleri yapmaz isem sorunlu bir çalışma olacaktı. Yukarıdaki yazdığım koddaki amacım, tüm satırları sisteme fazla yüklenmeden kontrol etmekti. Bu yüzden biraz satırlar uzattık. Ya bazende fazla kaptırıyorum işte

@vandan2 Heralde simge durumuna atmaktan bahsediyorsun. Peki bu pencereyi autoit ilemi oluşturdun. Yoksa farlı windows penceresi mi? Autoit ile oluşturduğun pencere ise; [b]GUISetState(@SW_MINIMIZE)[/b] işini görecektir. Eğer farklı bir windows penceresi ise; [b]WinSetState("Başlık bigisi", "", @SW_MINIMIZE)[/b] işini görecektir... Tabi istersen komplede saklayabilirsin. Bun için, [b]@SW_MINIMIZE[/b] yerine [b]@SW_HIDE[/b] makrosunu kullanacaksın.

@MeHMeTBeN Kısayolları normal çalıştırmak için, Run yerine [b]ShellExecute [/b]kullanmalısın!

@kalelibilişim Başarıya ulaşmana sevindim. Videodaki sorunu inan bende ilk defa gördüm Defraggler.zip paketini usb hdd ilgili iso için çalıştırdıysan sorunu o çözmüştür! Yaptığı yanındaki iso dosyalarını birleştirmek...

@kalelibilişim Komuttaki dosya konumu kendine göre düzenle! [b]/IMAGES/ACTI.ISO[/b] Neyse benim kaçmam lazım. Cevap yazarsan anca yarın ilgilenebilirim... Kolay gelsin...

@kalelibilişim Bu ne ilk defa böyle bir şey görüyorum Kısaca anladığım kadarıyla grub4dos [b]map /Dosyakonumu (0xff) || map --mem /Dosyakonumu (0xff)[/b] satırında ilgili dosyayı map ile direk çalıştıramamış ve map -mem komutunu kullanarak iso dosyasını rame yüklemeyi denemiş. Ama burda da bazı sıkıntılar çıkmış. Acronis isoları rame yüklemeden direk map komutuyla çalışmaktadır. Kodlarımızı sadeleştirelim. [codebox]title Acronis True IMage - ISO ls /IMAGES/ACTI.ISO || find --set-root --ignore-floppies /IMAGES/ACTI.ISO map --mem /IMAGES/ACTI.ISO (0xff) map --hook root (0xff) chainloader (0xff) || chainloader () boot[/codebox] Aşağıdaki adımları uygula. 1 - Sorunsuz çalışan iso dosyasını tekrar usb hdd kopyala. 2 - Grub4dos komutunu ve iso dosysının konumu ayarla. 3 - Aşağıdaki verdiğim dosyayı indir. Zip içinde Defraggler.exe ve Defrag_All.cmd dosyası var. [color="#0000FF"][u][b]http://bluelife.zxq.net/Files/Grub4dos/Tools/Defraggler.zip[/b][/u][/color] 4 - Bu iki dosyayı usb hdd kopyaladığın iso dosyasının yanına koy ve Defrag_All.cmd dosyasını çalıştır. 5 - Usb hdd den boot edip sonucu bak... 10 - 15 dk içinde bakabilirsen sevinirim. Kaçmam gerekiyor...

@kalelibilişim Anlatamadım malesef Usb flash diki ve usb harici diskini sitemine bağla. Sonra usb flash diskten ilgili sorun çıkartan acronis isosunu çalıştır. Bakalım hata verecek mi?

@kalelibilişim Öncelikle arada bende jeton geç düşebiliyor ve gereksiz bir mesaj yazabiliyorum. Böyle bir cevap alırsan kusura bakma. Konuya gelirsek, aslında sorularımdan birisine cevap vermedin! Tekrar sorayım... Falsh diskten bu acronis isosunu başlatırken, usb hdd sistemine takıp denedin mi? Eğer bu şekilde de hata verirse, usb hdd ile alakalı bir sorun olabilir. Düşüncelerime gelirsek; Grub4dosta bazen büyük boyutlu dosyaları çalıştırmak isterken map komutu sorun çıkartabiliyor. Bunun nedeni, ilgili dosyanın birleştirilmemiş olmasıdır. Misal bir dosyanın bir parçası diskin bir kısımında diğer parçası başka bir kısımdaysa grub4dos hata veriyor. Diğer bir nedende, belki windowsta olduğu gibi ilgili usb diskin sistemde birinci sırada kalması olabilir. Ama bu çok düşük bir ihtimal! Sen en başta yazdığım testi denersen, disk ile alakalı bir durumun olup olmadığını anlayabiliriz...

@kalelibilişim Çalışmıyor derken, tam olarak nasıl bir sorun çıkıyor? Acronis hiç mi başlamıyor? Biraz daha detay vermelisin. Ayrıca diğer çalışan yöntemde, usb hdd sisteme bağlayıp denedin mi?

Ben daha önce host dosysıyla ilgili ufak programlar yaptığımdan, ilgili satırları direk yazdırmanın sorunlu olacağını biliyorum. Misal host dosyasında daha önceden ilgili siteye ait bir ip girilmiş ise, ve siz sonradan alt satırlara ilgili site için yeni ip girerseniz, haliyle önceki ilk ip geçerli olacaktır. Bu nedenle önce host dosyasını okuyup, sonra eklemek istediğiniz verinin olup olmadığına bakmak zorundasınız. Önceden ilgili domaine ait ip adresi varsa haliyle bunu yeni ip adresi ile değiştirmeniz gerekiyor. Neyse fazla uzatmayalım. Ben az önce bir karalama yaptım. Tabi karalamadaki bazı kodları çok çok önce yazmıştım. [codebox];Writeted by BlueLife #RequireAdmin #NoTrayIcon ;Rahat kullanabilmek için dosyanın konumu bir değişkene atıyoruz. Local $HostFile = @WindowsDir & "\System32\drivers\etc\hosts" ;Dosyayı okuyoruz. Local $BlueReadFile = _Blue_FileRead_To_Array($HostFile, False) ;Ilgili içerikte domainin olup olmadığına bakıyoruz, yoksa alt satıra ekliyoruz. _Blue_Host_Adline($BlueReadFile, "74.125.43.103", "youtube.com") _Blue_Host_Adline($BlueReadFile, "74.125.43.103", "www.youtube.com") _Blue_Host_Adline($BlueReadFile, "74.125.43.103", "www.docs.google.com") _Blue_Host_Adline($BlueReadFile, "74.125.43.103", "www.clients1.google.com.tr") ; .... Bu şekilde devam edecek ; .... Bu şekilde devam edecek ;Değiştirdiğimiz içeriği yazıyoruz. _Blue_Host_Write($BlueReadFile, $HostFile) If @error = 0 Then MsgBox(64, "", "Işlem başarılı!") Else MsgBox(64, "", "Işlem hatalı!") EndIf Func _Blue_Host_Adline(ByRef $ArrayList, $IP, $Domain) Local $Find_Domain, $BLUE_LINE, $BL_Instr For $I = 1 To $ArrayList[0] $BLUE_LINE = StringStripWS($ArrayList[$I], 3) If StringIsDigit(StringLeft($BLUE_LINE, 1)) = 0 Then ContinueLoop $BL_Instr = StringInStr($BLUE_LINE, Chr(32)) If $BL_Instr = 0 Then $BL_Instr = StringInStr($BLUE_LINE, @TAB) If $BL_Instr = 0 Then ContinueLoop $Find_Domain = StringStripWS(StringTrimLeft($BLUE_LINE, $BL_Instr), 3) If $Find_Domain = $Domain Then $ArrayList[$I] = $IP & " " & $Domain Return 1 EndIf Next If UBound($ArrayList) >= $ArrayList[0] Then ReDim $ArrayList[$ArrayList[0] + 100] $ArrayList[0] += 1 $ArrayList[$ArrayList[0]] = $IP & " " & $Domain Return 1 EndFunc ;==>_Blue_Host_Adline Func _Blue_Host_Write(ByRef $ArrayList, $TARGET_FILE) Local $Return = True, $Blue_Write FileSetAttrib($TARGET_FILE, "-RSH") Local $File_hwnd = FileOpen($TARGET_FILE, 2) If $File_hwnd = -1 Then $Return = False Else For $I = 1 To $ArrayList[0] $Blue_Write &= $ArrayList[$I] & @CRLF Next If FileWrite($TARGET_FILE, $Blue_Write) = 0 Then $Return = False EndIf FileSetAttrib($TARGET_FILE, "+RSH") If $Return = False Then Return SetError(1, 0, 0) Return 1 EndFunc ;==>_Blue_Host_Write Func _Blue_FileRead_To_Array($TARGET_FILE, $SStripWS = True) ;Dosya|Fazla enterleri silmek Local $Return_Array[1] = [0] Local $FileGetSize = FileGetSize($TARGET_FILE) If $TARGET_FILE = "" Or FileExists($TARGET_FILE) = 0 Or $FileGetSize = 0 Then Return SetError(1, 0, $Return_Array) Local $File_hwnd = FileOpen($TARGET_FILE, 0) If $File_hwnd = -1 Then Return SetError(2, 0, $Return_Array) Local $File_Read = FileRead($File_hwnd, $FileGetSize) FileClose($File_hwnd) If StringLen($File_Read) < 1 Then Return SetError(3, 0, $Return_Array) If StringInStr($File_Read, @LF) Then $File_Read = StringStripCR($File_Read) ElseIf StringInStr($File_Read, @CR) Then $File_Read = StringReplace($File_Read, @CR, @LF) EndIf If $SStripWS = True Then Do $File_Read = StringReplace($File_Read, @LF & @LF, @LF) Until @extended = 0 $File_Read = StringStripWS($File_Read, 3) EndIf $Return_Array = StringSplit($File_Read, @LF) Return $Return_Array EndFunc ;==>_Blue_FileRead_To_Array[/codebox]

@vandan2 Şimdi baktım ve malesef konum hatalı imiş Mesaj kutusunda farketmemişsin! Doğrusu; [color="#8B0000"][b]DirRemove(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\User Data\Default",1)[/b][/color] Neyse kolay gelsin...

@vandan2 Komutta bir sorun görümüyor. Tavsiyem ilk önce sildirmek istdiğin klasörünün konumun doğru olup olmadığına bakalım. Bunu en basit olarak, mesaj kutusuyla kontrol edebilirisiz. [b]MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default") DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b] Diğer taraftan, igili klasörü silmek için yetkiye sahip olmayabilirsiniz. Sistemin nedir. Aşağıdaki komut ile tekrar dene; [b]#RequireAdmin MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default") DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b] Yada ilgili klasörün altında bir dosya veyahut bir program kullanıldığından, içerik silinemiyordur. Veyahut ilgili dosyalardan birisi salt okunur ise sorun çıkıyor olabilir. Ozaman; [b]#RequireAdmin MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default") FileSetAttrib(@AppDataDir & "\Google\Chrome\User Data\Default","-RS",1) DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b] vs. vs. gibi bir çok nedenden sorun yaşamaış olabilirsin... Biraz kurcala...

Iso buster, UltraIso gibi programlarla, dvd içeriğindeki dosyaları görebileceğini tahmin ediyorum. [b]http://www.isobuster.com/isobusterdownload.php[/b] Olmaz ise DVD nin kalıbını, Nero, Alcohol 120, UltraIso gibi programlarla alabilirsin...

Sabah 10 civarlarından sonra benim ve civarımdaki internet bağlantıları çok yavaştı. Şuan an itibariyle düzeldi gibi görünüyor. Giresun!

[color="#8B0000"][b]BlueLife IsoMount v1.1 sürümüne güncellenmiştir.[/b][/color] Kısaca program arayüzündeki sağ tuşa aşağıdaki seçenekler eklendi. Tüm sanal sürücüleri bir tıkla silmek Belirli bir konumdaki dosyayı seçip sanal sürücüye göndermek Imdisk ana programını çalıştırmak. Ayrıca ufak tefek düzeltmeler oldu... [color="#8B0000"][b]BlueLife IsoMount v1.2 sürümüne güncellenmiştir.[/b][/color] Kısaca program kendisini kontrol ederek, içeriğine virüs bulaşıp bulaşmadığına bakıyor. Eğer virüs bulaşmışsa ya çalışmaz, ya da hata mesajı verir Bunu eklememin nedeni ise; Ben bu programı flash diskten kullanmak istiyorum. Bir nedenle virüs bulaşırsa haberimin olması güzel olur...

@mermis DLC hakkında bilgim yok! Zaten ben bu tip multiboot çalışmalarını indirmeye gerek duymuyorum ve indirmekle uğraşmam Neyse ilgili dvd içeriğindeki bileşenler grub4dos ile çalışacaktır. ISOLINUX hatası aldığına göre, ilgili multiboot çalışması isolinux ile yapılmış! Ben uzun bir süre önce MagicIso programını çok sever ve iso düzenleme konusunda kullanırdım. Hatırladığım kadarıyla, bir iso dosyasını düzenlediğimde iso içerisindeki multibootu ve bazı dosyaları bozmuştu. O günden beri bu programdan uzak duruyorum. Belki yeni sürümlerde bu sorunu gidermiş olabilirler. Ama belki senin yaşadığın sorunda MagicIso nedeniyle olmuş olabilir. Beu yüzden sana UltraIso programıyla denemeni tavsiye ederim. Diğer taraftan ilgili dvd içindeki bileşenleri burdaki grub4dos ile multiboot cd/dvd paketine entegre edebilirsin... Içerikteki bileşenler, grub4dos ile sorun çıkarsa bile, grub4dostan isolinuxu önyükleme yapıp direk dlc menüsüne geçebilirsin. Ama sana bu konuda yardımcı olabilmem için, dvd içeriğindeki dosya ve konum bilgisini burdan paylaşmalısın. Istediğim içeriği vermek için; Ilgili iso dosyasını sanal sürücüye tak. Misal harfi W:\ olsun. Sonra komut istemini aç (başlat -> çalıştır -> cmd.exe) ve komut isteminde aşağıdaki komutu yaz. [b]dir w: /s /b >C:\DLC.txt[/b] Ilgili içerik C:\DLC.txt dosyasına kayıt edilecektir. Bu dosyayı bir yere upload edip link verirsin. Kolay gelsin...

@vandan2 Bunun için autoitteki macroları kullanmalısın. Yardım dosyasındaki [b]Macro Reference - Directory[/b] bölümüne bak! Soruna gelirsek, aşağıdaki bir komut senin sorunun çözecektir.... [color="#0000FF"][b]DirRemove(@AppDataDir & "\xxxxx\xxxx\xxxx\xxxx",1)[/b][/color]

@radyofon Text içerikli bir dosyaya veri ekleyeceğin zaman; 1 - Ilgili dosyanın konumunu farklı sistemlere göre bir değişkene ata. 2 - Dosyayı oku ve yazacağın verinin olup, daha önce yazılıp yazılmadığını kontrol et. 3 - Gerekiyorsa verini filewrite komutuyla yaz. Kısacası yapmak istediğin çok kolay bir şey... Yapamaz isen, yazılacak satırları burdan yazarsın...

@mdemrr Gördüğüm kadarıyla dosya isimlerinde hata var. Gru4dosta büyük ve küçük harf farklıdır. Komutta göre anlatım; [b]grub4dos ls /SOURCES/BOOT.WIM || find --set-root /SOURCES/BOOT.WIM; chainloader /BOOTMGR boot[/b] Şimdi yukarıdaki komutta SOURCES/BOOT.WIM dosyasını aramış ve bulunduğu konumdan BOOTMGR dosyasını önyükleme yapmışız. Lakin senn SOURCES klasörü ve BOOT.WIM dosyası küçük harfli. Ayrıca BOOTMGR dosyasıda küçük harfli. Bunları büyük harfli yaparsan sorununun çözmüş olursun. Yada komutunu değiştir. Yani; [b]grub4dos ls /sources/boot.wim || find --set-root /sources/boot.wim; chainloader /bootmgr boot[/b] Umarım anlamıştırsın. KOlay gelsin....

@kalelibilişim Ben genelde winhex kullanıyorum... Bu arada hexeditörde yapacağın ufak bir hata ilgili dosyanın çalışmamasına neden olabilir... [color="#0000FF"][u][b]http://www.x-ways.net/winhex.zip[/b][/u][/color] Neyse ben kaçar... Kolay gelsin...

@kalelibilişim Tabiki en kullanışlısı grub4dostur Diğerlerine göre bir çok exta özellikleri mevcuttur. AeroStudio görsellik açısından çok güzel ama bazı bilgisayarlarda malesef çalışmıyor... Üçü ile ilgili bir sıralama yap dersen; Grub4dos EasyBoot AeroStudio Bu arada easyBoot ve aerostudio içinde de grub4dos kullanabiliyoruz... Farklı paketlerde, karışıklık olmaması açısından bu şeklide ayırıyorum... Kısaca ilgili grub4dos dosyasınındaki ilgili kısımları hex editör ile düzenlemekteyim.. CD/DVD paketi çok kolaydır. Içeriği düzenleyip cmd dosyasına tıklatarak iso oluşturuyorsun. Bu kadar basit...

@Enson Yaşadığın sorun aslında normal bir şey. Kısaca tahmin ettiğim kadarıyla, ilk önce kurulum dosyaları sırasıyla cd/dvd sürücülerde arıyor. Bulamayınca diklerde aranıyor. Senin ilgili recovery bölümünde benzer dosyalar olduğundan kur bunları kullanmaya çalışıyor. Yani senin yapacağın, kısaca ilgili recovery olan bölümü silmek veyahut bir şekilde burdaki dosyaların konumu değiştirmek. Yada belki ilgili bölümü partition programlarıyla gizlemekte iş görebilir... Aslında bu sorunu aşmak için daha kolay bir yöntem vardı ama aklıma gelmedi. Win7ye fazla hakim deyilim... @freea Ilgili grub4dos önyükleyici dosyasını hex editör ile açıp, *.lst dosyasının ismini veyahut konumu değiştirmen mümkün. Yada şöyle farklı bir şeyde yapabilirsin ve bence en kolayı bu. Kendi klasörünü ayarla. Misal ismi FREEA olsun. Tüm dosyalarını bunun içine koy ve içine bir *.lst dosyası oluştur. Ismi FREEA.LST olsun. Projelerdeki ilgili *.lst dosyalarını açıp tüm içeriği sil ve içine; [codebox]ls /FREEA/FREEA.LST || find --set-root /FREEA/FREEA.LST ls /FREEA/FREEA.LST && configfile /FREEA/FREEA.LST[/codebox] O zaman otomatik olarak senin ilgili FREEA.LST dosyan çalışacaktır. Yani USBMENU.LST dosyasındaki tüm içeriği silip, kendi belirlediğin konumdaki lst dosyasına yönlendirme yapıyorsun. Umarım anlatabilmişimdir.... Bu arada yakın bir zamanda Windows Boot Menüsüne Grub4dos ekleme konusunu düzenleyeceğim... Aslında program kısmen hazır ama haliyle, paket içeriği vs. baya zaman alıyor... Tabi şuan bir kaç gün erteledim. Ilgilenmem gereken başka konular var... (

@kalelibilişim Malesef Windows XP ve benzeri windows işletim sistemi kurlarını, normal yöntemlerle grub4dos ile çalıştırıp kuramıyoruz. Kurulum başlıyor, lakin ilerleyen aşamalarda, windows kur sorun veriyor...