blue_life

Çalışmayı indirip deneme fırsatı bulan arkadaşlar; Burdaki çalışmanın daha güzel bir yere gelmesi için yapıcı eleştirileriniz gerekiyor.... Misela benim tespit ettiğim bazı sorunlar; 1 - Başlangıçta bir program çalışıp, kapanmadan diğer program çalıştığı için işlemciye aşırı yüklenme oluyor... (Gelecek sürümde düzeltilecek) 2 - Olmayan disket sürücüsü biostan açık kalırsa bir çok livexpe de olduğu gibi explorer arayüzü gelmiyor ve donmalara neden oluyor... (Gelecek sürümde disket sürücüleri başlangıçta kapıtılarak bu sorun düzeltilecek) ....

Hiren's BootCD 10.4 içindeki dos programlarını bir NTFS sürücüden kullanmak! Ntfs sürücüdeki dos programlarını çalıştırmak için bir disket, disk imajı kullanabiliriz. Kısa yapmanız gerekler; a - Hiren's BootCD iso dosyasını 7zip,winrar vs gibi bir program ile açarak HBCD klasörünü masaüstüne çıkartınız. b - Daha sonra HBCD klasörünün içindeki WinTools klasörü ile XP ile başlayan dosyaları siliniz. Silinecek dosyalar kısaca WinTools XP XP.CA_ XP.BIN XP.DAT XPLOADER.BIN[/CODE] c - HIREN10.DSK disk imajını UltraIso veya WinImage gibi bir program ile açınız. d - HBCD klasörünü açtığınız programa sürükleyerek (UltraIso,WinImage) HBCD klasörünü HIREN10.DSK disk imajına ekleyip kayıt ediniz. Hepsi bu kadar. Ben bu yöntemi kullanıyorum... Hiren 10.4 için disk imajı; [CODE]http://bluelife.winbuilder.net/index.php?dir=Images%2F&download=HIREN104.DSK[/CODE] Kullanılacak Grub4Dos komutları; (Dosya GRUBOOT/IMAGES klasöründe olacak.) [CODE]title Start Hiren's BootCD 10.4 - Disk Image # NTFS suruculerde de sorunsuz calisacabilecek bir yontem pause --wait=0 Hiren Disk Imaji rame yuklenirken lutfen bekleyiniz... pause --wait=0 Diskinizin hizina bagli olarak rame yuklenme suresi uzun surebilir... pause --wait=0 ls /GRUBOOT/IMAGES/HIREN104.DSK || find --set-root --ignore-floppies /GRUBOOT/IMAGES/HIREN104.DSK map --mem /GRUBOOT/IMAGES/HIREN104.DSK (fd0) map --hook chainloader (fd0)+1 rootnoverify (fd0) map --floppies=1 boot[/CODE]

@kamuran731 Rica ederim. Benim yanlış bölüme yükleme yapmaktan ziyade, geri yükleme yapılacak hedef bölümde önemli bir dosya olma ihtimalidir. Yani bu mesaj çıkınca bence kullanıcı bir kez daha düşünüyordur! Gerçi daha önceden söylediğim gibi ben zaten otomatik ghostu kullanmıyorum. Ve ghost ile geri yükleme yapacağım zaman, mevcut sistemin bekabını almaya özen gösteriyorum. (İçerisinde unuttuğum bir dosya olabilir endişesiyle) Bir süre sonra da siliyorum tabi... Lakin, diyelim bir internet cafe veyahut birden fazla bilgisayara arada bakım yapıyorsun. O zaman tabiki bu mesajları bende silerdim. Tek tıklat geri yükleyecek şekilde ayarlar ve misal yarım saatte 100 bilgisayarı yeniden kurardım Neyse, bazen fazla uzatıyorum... Kolay gelsin....

Usb paketi güncellenmiştir arkadaşlar! Eski versiyona nazaran bir çok hata düzeltilmiştir. Kolay gelsin...

@kamuran731 Öncelikler tabiki tüm mesajları atlayabilirsin. Ama herangi bir kazaya karşı önlem almanı öneririm. Sonra başın ağrımasın. Kullancağın komut ise heralde -sure idi! İlgili bat dosyasını verim, sen kendine göre düzenlersin... @ECHO OFF path=a:\ MOUSE.COM cls Set DOSYA=1:3\BEKAP.GHO Set HEDEF=1:1 goto MESAJ :CALISTIR GHOST.EXE -clone,MODE=pload,SRC=%DOSYA%:1,DST=%HEDEF% -sure -RB CLS echo Norton Ghost 11.5.0 kapandi. Bilgisayar yeniden basliyor . . . Restart.com R :MESAJ echo Norton Ghost 11.5.0 echo Son Hatirlatmalar :) Thanks Blue Life echo ============================================================================= echo. echo %DOSYA% - dosyasi var ise; echo birinci diskin birinci bolumune yuklenecek... echo. echo Not:Geri yuklemeden sonra, %HEDEF% uzerindeki tum dosyalar silinecek! echo. echo ============================================================================= echo Devam etmek icin herangi bir tusa bas . . . pause goto CALISTIR[/CODE] @mebe İlgili paketi 500 ün üzerinde kişi indirmiş! Ilk deva sen virsü var diyorsun. Suçlu olan kesinlikle kullandığın antivirüs programı! (Virüs felan yok. Rahaklıkla kullanabilirsiniz.) Bu arada merak ettim. Hangi dosya için virüs uyarısı geldi... Neyse kolay gelsin arkadaşlar...

@peerfen Msi için shellexecute daha uygun... Global $Program = _TempFile(@TempDir,".msi") Global $Parametre = "/qn" FileInstall("11.msi",$Program) ;~ RunWait($Program & " " & $Parametre) ShellExecuteWait($Program,$Parametre) Sleep(500) FileDelete($Program) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".tmp", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" 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[/CODEBOX]

Global $Program = _TempFile(@TempDir, ".jpg") FileInstall("Gaci.jpg", $Program) ShellExecuteWait($Program) Sleep(500) FileDelete($Program) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".tmp", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" 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]

@Dj Demir Nasıl almıyor? Fileinstallde dosya ismini yazarken hata yapmış olabilirs. Dosyaismi.uzantısı şeklinde kullanacaksın.... Tabi yukarıdaki komutta Runwait var. Sen resim çalıştırmak istiyorsan ShellExecute vyahut ShellExecuteWait komutlarını kullanmalısın....

@01adanalı Bu kadar basit bir şey için ne anlatımı? Compile etmek için Scite açıkken Yukarıdaki menüde Tools -> Builde seçeneğini kullanabilirsin. Veyahut scite açıkken klevyenden F7 klevye kısayolunu kullanabilirsin. Yada ilgili au3 dosyasına sağ tıklatıp compile seçeneğini seçebilrisin.... http://www.4shared.com/file/104277155/5931bf1f/Autoit_Setup_Video.html[/CODE]

@01adanalı 1 - Kur dosyanı masaüstüne koy! 2- Yeni Autoit v3 Script dosyası oluşturup, çift tıklatarak scite ile aç., 3 - Yukarıda verdiğim kodları içine yaz.Tabi senin kur dosyanın adını düzgün yaz. Misal adı avast.exe ise; Sadece kodları yaz ve içinde başka bir şey olmasın. Burya kadar sorunsuz yaptıktan sonra icon vs ayarlarsın... Global $Program = _TempFile() FileInstall("avast.exe",$Program) RunWait($Program) Sleep(500) FileDelete($Program) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".tmp", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" 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] Son not olarak, autoit içine almak istediğin dosya büyükse, işlem çok uzun sürebilir. Belki burda hata yapıyorsundur! Beklemeni tavsiye ederim... Kolay gelsin...

Aslında tekrar düşündümde RunWait'ten sonra sleep ile biraz bekletmen daha doğru! Global $Program = _TempFile() FileInstall("avast.exe",$Program) RunWait($Program) Sleep(500) FileDelete($Program) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".tmp", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" 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]

@01adanalı Yukarıdaki bilgileri nerden aldın bilmiyorum, lakin hatalı kısımlar var. Misal autoit ile çalıştırılacak bir ugulama dosyasının sonu illa exe olmak zorunda deyil. exe olmasa bile Run - Runwait komutuyla çalışacaktır. vs vs... Fileinstall komutuna gelirsek, script dosyanın yanından itibarın dosya isimini kullan. Misal dosya ismin denem.exe ve bu dosya script dosyasının yanında olsun. O zaman FileInstall("deneme.exe",@TempDir & "\deneme.exe" ,1) denemen yeterli olacaktır... Vs vs.... Al sana basit bir kod. Orda sadece avast.exe yazan yeri değiştirip farklı programlar içinde kullanabilirsin.... Kolay gelsin... Global $Program = _TempFile() FileInstall("avast.exe",$Program) RunWait($Program) FileDelete($Program) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".tmp", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" 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]

Paket güncellenmiştir arkadaşlar... Kolay gelsin...

CD/DVD paketi güncellenmiştir arkadaşlar! Şimdi eskiye nazaran daha sorunsuz. Artık darısı konudaki diğer başlıklara diyelim. Kolay gelsin.....

@blackman12 Arada o günün koşulları, veyahut daha önce ihtiyaç duymadığımdan eksik bilgiler verebiliyorum. Bu konuda eksik bilgimi tamamladığın için teşekkürler... Kolay gelsin arkadaşlar...

@firtinasoft Kullanmış olduğun Hiren's Boot CD versiyonu nedir?

http://www.4shared.com/file/fPnMOl21/bl_delete.html[/CODE]

#include <GUIConstants.au3> Opt("GUICoordMode", 1) Opt ("MustDeclareVars", 1) Opt("GUIOnEventMode", 1) Opt("TrayMenuMode",1) Opt("TrayIconHide", 1) Dim $msg, $ret Dim $listbox, $label,$button1, $i,$text[10],$l,$Form1,$MenuItem1,$lbl[10],$set1,$Checkbox1,$st HotKeySet("^1", "paste1") HotKeySet("^2", "paste2") HotKeySet("^3", "paste3") HotKeySet("^4", "paste4") HotKeySet("^5", "paste5") HotKeySet("^6", "paste6") HotKeySet("^7", "paste7") HotKeySet("^8", "paste8") HotKeySet("^9", "paste9") HotKeySet("^0", "paste10") Func paste1() ClipPut(GUICtrlRead($text[0])) send("^v") EndFunc Func paste2() ClipPut(GUICtrlRead($text[1])) send("^v") EndFunc Func paste3() ClipPut(GUICtrlRead($text[2])) send("^v") EndFunc Func paste4() ClipPut(GUICtrlRead($text[3])) send("^v") EndFunc Func paste5() ClipPut(GUICtrlRead($text[4])) send("^v") EndFunc Func paste6() ClipPut(GUICtrlRead($text[5])) send("^v") EndFunc Func paste7() ClipPut(GUICtrlRead($text[6])) send("^v") EndFunc Func paste8() ClipPut(GUICtrlRead($text[7])) send("^v") EndFunc Func paste9() ClipPut(GUICtrlRead($text[8])) send("^v") EndFunc Func paste10() ClipPut(GUICtrlRead($text[9])) send("^v") EndFunc FileInstall("cuc.ico",@TempDir & "\cuc.ico") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Tnc ÇokluKopyala 1.02", 250, 240, 193, 115) GUISetIcon(@TempDir &"\cuc.ico") GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close") GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1Minimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1Maximize") GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1Restore") $Button1 = GUICtrlCreateButton("(Not allowed)", 180, 16, 41, 44, 0x0040) $st=0 GUICtrlSetImage($Button1, @TempDir & "\cuc.ico") GUICtrlSetOnEvent(-1, "AButton1Click") $Checkbox1 = GUICtrlCreateCheckbox("Her Zaman Üstte", 145, 0, 105, 17) GUICtrlSetOnEvent(-1, "hepust") GUICtrlSetState ( $Checkbox1, $GUI_UNCHECKED ) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### for $i = 0 to 9 $l=$l+20 $lbl[$i]=GUICtrlCreateLabel("CTRL+" & $i+1,0,$l,100,20) if $i=9 then $lbl[9] = GUICtrlCreatelabel("CTRL+0" ,0,$l,100,20) if RegRead("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i)="" then $text[$i] = GUICtrlCreateInput("CTRL+" & $i+1 ,20,$l,100,20) if $i=9 then $text[9] = GUICtrlCreateInput("CTRL+0" ,20,$l,100,20) else $text[$i] = GUICtrlCreateInput(RegRead("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i),50,$l,100,20) EndIf next While 1 $set1=TrayGetMsg() if $set1=-13 Then GUISetState (@SW_SHOW) Opt("TrayIconHide", 1) endIf Sleep(100) WEnd Func AButton1Click() msgbox (64,"TnC ÇokluKopyala","Alanlara yandaki tuş kombinasyonlarına basılınca yapıştırılmasını istediğiniz metni giriniz" & @CRLF & "Programı Kapatırsanız tuş fonksiyonları çalışmayacaktır. Ayrıca programı kapatınca önceki metinler geri gelecektir" & @CRLF & @CRLF & "www.tnctr.com - sk8er_boi") EndFunc Func AForm1Close() for $i = 0 to 9 RegWrite("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i,"REG_SZ",GUICtrlRead($text[$i])) Next exit EndFunc Func AForm1Maximize() EndFunc Func AForm1Minimize() GUISetState(@SW_HIDE) Opt("TrayIconHide", 0) TraySetIcon(@TempDir & "\cuc.ico") EndFunc Func AForm1Restore() EndFunc func hepust() if GUICtrlRead($Checkbox1)=$GUI_CHECKED then WinSetOnTop ("Tnc ÇokluKopyala 1.02", "Her Zaman Üstte", 1) else WinSetOnTop("Tnc ÇokluKopyala 1.02", "Her Zaman Üstte", 0) EndIf endFunc[/CODE]

@ortho Aslında basit bir örnek verecektim, ama konuya dalınca çok karıştı! Fazla kafa karıştırmamak ve ayrıca bu konuyla alakasız bir çalışma olacağından Tools paketime ekledim! Açıklama html dosyasının sonunda! Yani, /filerename parametresinde bir çok ek özellik var! Kendine uygun olanları regedite ekler kullanırsın. Tabi istediğin bir yazıyıda tüm dosyalara rahatlıkla yazdırabilirsin. (Bir çok arka kapı bıraktım) Bu arada verdiğim *.reg dosyasını kullanmak için BL-STools.exe dosyasını system32 ye atmalı veyahut konum bilgisini düzeltmelisin. http://www.4shared.com/file/cP9qFJHZ/BL_STools_v13.html[/CODE] Denedikten sonra, sonucu yazmayı unutma. Sorun yaşarsan tekrar bakarım... Kolay gelsin....

@johncher Buda olmadıysa, malesef aklıma başka basit bir şey gelmiyor. Bu arada biz büyük B gönderiyoruz. Yoksa senin oyundaki ilgili özellik için küçük b mi gerekli! Neyse kolay gelsin..

@ortho Yapmak istediğin o kadar zor deyil aslında! Birazdan uykuya dalacağım. Yarın müsait olduğum bir zamanda, sana basit bir örnek veririm...

@johncher Aslında autoit default olarak send komutunu biraz geç gönderiyor. Birde şunu dene! Opt("SendKeyDelay", 0) ;5 milliseconds Opt("SendKeyDownDelay", 0) ;1 millisecond Global $Paused HotKeySet("{PAUSE}", "Pause") Pause() While 1 send("B") WEnd Func Pause() $Paused = Not $Paused While $Paused Sleep(400) WEnd EndFunc ;==>Pause[/CODE]

@johncher sleep komutuyla beklettiğin içindir! Bekleme yapmaz isen, ilgili program işlemciye çok yüklenecektir. Global $Paused HotKeySet("{PAUSE}", "Pause") Pause() While 1 send("B") WEnd Func Pause() $Paused = Not $Paused While $Paused Sleep(400) WEnd EndFunc ;==>Pause[/CODE]

@muharremerd Sorun deyil, kullanabilirsin! Tabi tasarımın alıntı olduğunu belirtirsen sevinirim. Kolay gelsin.......