blue_life

@mehmetben Ilgili örneği düzeltmiştim! Diğer soruna gelirsek; GUICreate("Oto Giriş", 350, 400, 460, 250) yerine GUICreate("Oto Giriş", 350, 400) yapmalısın. WebIdExtractor adında bir şey yazmadım ben! Neyse ben kaçar, kolay gelsin...

Yukarıdaki örneklerde mevcut! Biraz kurcalamalısın... Bu arada @mehmetben dikkatimi çektide, şifre kısmında bir yere exit koymayı unutmuşum. Ilgli örneğe sadece bir satır daha ekleyelim...

Kaba taslak düzeltiyorum.... Edit: Unuttum şifre 123 idi! [codebox]#RequireAdmin #include<IE.au3> #include <File.au3> #include <GUIConstantsEx.au3> _ProcessCheck() _SIFRE() $Form = GUICreate("Oto Giriş", 350, 400, 460, 250) $Msn = GUICtrlCreateButton("Msn Aç", 10, 10, 150, 20) $Facebook = GUICtrlCreateButton("Facebook Giriş", 10, 40, 150, 20) $Hakkinda = GUICtrlCreateButton("Hakkında", 270, 5, 75, 20) $Hotmail = GUICtrlCreateButton("Hotmail", 10, 75, 150, 20) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case -3 Exit Case $Hakkinda MsgBox(0, "Hakkında", "TNCTR", 3) Case $Msn Run(@ProgramFilesDir & "\Windows Live\Messenger\msnmsgr.exe") WinWait("Windows Live Messenger", "") WinActive("Windows Live Messenger", "") ClipPut("e-mail") Send("^v") Send("{TAB}") ClipPut("password") Send("^v") Send("{ENTER}") Case $Facebook Local $mailtxt = "e-mail" Local $passtxt = "password" $Mail = $mailtxt $Pass = $passtxt $oIE = _IECreate("http://www.facebook.com/login.php", 0, 1, 1) $oForm = _IEFormGetObjByName($oIE, "login_form") $oQuery = _IEFormElementGetObjByName($oForm, "email") $o_Query = _IEFormElementGetObjByName($oForm, "pass") $oSubmit = _IEFormElementGetObjByName($oForm, "login") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEAction($oSubmit, "click") Case $Hotmail $oIE = _IECreate() _IENavigate($oIE, "http://www.hotmail.com") $o_form = _IEFormGetObjByName($oIE, "f1") $o_login = _IEFormElementGetObjByName($o_form, "login") $o_password = _IEFormElementGetObjByName($o_form, "passwd") _IEFormElementSetValue($o_login, "EMAİL ADRESİNİZ") _IEFormElementSetValue($o_password, "ŞİFRENİZ") Sleep(2000) _IEFormSubmit($o_form) EndSwitch WEnd Func _SIFRE($Sire = "123") Local $Inputbox For $I = 1 to 5 $Inputbox = InputBox("Doğrulama", "Şifreyi Giriniz", "", "*") If @error Then Exit ElseIf $Sire = $Inputbox Then ExitLoop Else MsgBox(0, "Lütfen Tekrar Deneyin", "Şifre Yanlış " & $I, 3) EndIf Next If $Sire <> $Inputbox Then Exit EndFunc Func _ProcessCheck() Local $Plist $Plist = ProcessList(StringTrimLeft(@AutoItExe,StringInStr(@AutoItExe,"\",0,-1))) For $i = 1 To $Plist[0][0] If _ProcessGetLocation($Plist[$i][1]) = @AutoItExe And $Plist[$i][1] <> @AutoItPID Then ;Kodların buraya yazılacak. ;Misal çalışan programın ekranını WinActivate ile aktif yapabilirsiniz. ;Sizin becerinize kalımş.. MsgBox(16,"","Program zaten çalışıyor...") Exit EndIf Next EndFunc ;==>_ProcessCheck ;Bu fonkisyon, programın pid bilgisinden konumunu bulmaktadır. Func _ProcessGetLocation($iPID); Programın çalıştığı dizin Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return FileGetLongName($aReturn[3]) EndFunc ;==>_ProcessGetLocation[/codebox]

Ismi Ghost Explorer! [color="#0000FF"][u][b]http://bluelife.zxq.net/Ghostexp.zip[/b][/u][/color]

Çalışma güncellenmiştir arkdaşlar! [color="#0000FF"][u][b]http://bluelife.zxq.net/Nt5SetupFromIso/2011_08_11_Nt5SetupFromIso.zip[/b][/u][/color] Bazen, usb sürücüleri sistem geç algılayabiliyor. Hal böyle olunca usb sürülere harfler geç atanıyor. Bu sorun için eğer iso dosyası bulunamaz ise başlangıçta 10 saniye bekleme eklenmiştir. Dosya kopyalamdaki bir sorun düzeltilmiştir (Son aşamada geç kopyalamaya neden oluyordu) Artık iso dosyası önce usb sürücülerde aranıyor. Eğer bulunamaz ise sonra diğer fat16/fat32/ntfs sürücülerde aranıyor. Eğer yine bulunamaz ise cd/dvd sürücülerede bakılıyor... Çalıştır özelliğindeki ufak bir sorun düzeltilmiştir. Vs.vs. bazı ufak tefek düzeltmeler mevcut. [color="#8B0000"][b]Test etme imkanı bulan arkadaşlar, test sonuçlarını yazarsa sevinirim.[/b][/color] Ben şuana kdar windows 2003 ve windows xp gibi sistemlerde denedim ve başarılı sonuç aldım Windows 2000 de çalışmadı. Çok nadir kullanılan bir sistem olduğu için windows 2000 ile zaman kayıp etmek istemdim. Tabi burdaki yöntem 32 bitlik sistemler içindir. Yani 64 bit bir xp için burdaki program işinize yaramaz. Onun içinde destek ekleyebilirim, lakin şimdilik kalsın...

@freea Bu yöntem cd/dvd için düşünülmemiştir. Büyük ihtimal sen SETUP.ISO dosyanı bu hazırladığın multiboot.iso dosyasının içene atıp sanal pcye bağladın. Hal böyle olunca sen kurlumu sanal pcdeki cd/dvd üzerinden yapmış oluyorsun. Yani sorun senin deneme şeklinden kaynaklanıyor. Setup.iso dosyası usb/normal dahili disk (fat16, fat32, ntfs) gibi bir depolama biriminde olur ise, ilgili ekran gelmez.... @korasoglu Takılıdığın kısımlarda yazarsan yardımcı olmaya çalışırım...

Internetini ortak paylaşmak isteyen komşular için, gerçekten güzel özelliklere sahip bir cihaza beniyor. Tabi satıcı açıklamasının yanında kullanıcı açıklamaları bence çok önemli. Şuan haliyle biraz pahalı olacaktır... [color="#0000FF"][u][b]http://www.vatanbilgisayar.com/tp-link-tl-pa211kit-tl-pa211kit-200mbps-1-port-powerline-adaptor/productdetails.aspx?I_ID=54933[/b][/u][/color]

@mehmetben Şifreni yanlış girdiğinde program aslında kapanmıyor, arkaplanda çalışıyor olabilir. Şifreni yanlış girip, görev yöneticisinden kontrol etmelisin! Belki guiyi silmiştirsin ama çalışman döngü içinde kalmış olabilir... Kodlamanın kontrol edip, ilgili kısıma exit ekle... Tabi yukarıdaki örnekte,görev yöneticisindeki program isimlerine bakılıyor. Eğer farklı bir program aynı isimi kullanıyorsa haliyle bu kod cortlar. Hadi size benim kullandığım yöntemlerden bir tanesini vereyim... [codebox]_ProcessCheck() MsgBox(64,"BlueLife","Deneme 123") ;Normal kodlama Func _ProcessCheck() Local $Plist $Plist = ProcessList(StringTrimLeft(@AutoItExe,StringInStr(@AutoItExe,"\",0,-1))) For $i = 1 To $Plist[0][0] If _ProcessGetLocation($Plist[$i][1]) = @AutoItExe And $Plist[$i][1] <> @AutoItPID Then ;Kodların buraya yazılacak. ;Misal çalışan programın ekranını WinActivate ile aktif yapabilirsiniz. ;Sizin becerinize kalımş.. MsgBox(16,"","Program zaten çalışıyor...") Exit EndIf Next EndFunc ;==>_ProcessCheck ;Bu fonkisyon, programın pid bilgisinden konumunu bulmaktadır. Func _ProcessGetLocation($iPID); Programın çalıştığı dizin Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return FileGetLongName($aReturn[3]) EndFunc ;==>_ProcessGetLocation[/codebox]

@freea Sorun büyük ihtimal senin usb flash diskin sistem tarafından geç algılanması gibi görünüyor! Gerekli düzenlemeyi yarın yapıp bilgilendiririm. Denediğim pclerde bu soruna denk gelmedim. Kısaca iso dosyasını sürücülerde aramadan biraz bekletem yapacağız.

[color="#0000FF"][u][b]http://www.tnctr.com/topic/100852-cddvd-hdd-ve-usb-icin-multiboot-hazyrlamak[/b][/u][/color] Konusundaki cd/dvd paketinde ve usb paketindeki ghostu bu iş için kullanabilirsin. Cd/dvd paketi için iso oluştrup cd/dvd ye çekmelisin! Yapamazsan yazarsın ve küçük bir iso dosyası gönderirim. Yada bu multiboot menüne ghost ekle ve ondan çalıştır. Ilgili konunun ikinci mesajındaki pakette gerekli kod ve dosyalar mevcut!

Belleği bilgisyarına tak ve ghostu başlat. [img]http://www.oakdome.com/lab/wp-content/ghost-local-disk-to-image-menu.jpg[/img] Local -> Disk -> To Image seçeneğini seç. Sonra usb flash diski seçeceğin ekran gelecektir. Seçip yedeğini başka bir depolama birimine alabilirsin...

@HakanAlbayrak Ne yapmak istediğin tam anlayamadım ama sana tavsiyem, kendi usb multiboot paketini hazırlaman yönünde olacaktır. Kısaca kendine özgü paketini hazırlayıp, istediğin usb diskine bu paketi uygulayabilirsin. Aşağıdaki linkte bulunan ikinci mesaj... [color="#8B0000"][u][b]http://www.tnctr.com/topic/100852-cddvd-hdd-ve-usb-icin-multiboot-hazyrlamak/page__view__findpost__p__546769[/b][/u][/color] Kısaca USB_ROOT klasörü içerinde kendine özgü değişikliklerini yap ve işin bitince, winrar, 7zip vs. bilgisyarında bir yere bu paketi yedekle. Böyle multiboot menüler için ghost vs. ile uğraşmana gerek yok!

@freea Cevap 1 - /NT5/MENU.LST dosyasındaki kodların hepsini silip aşağıdakini ekle. [codebox]ls /NT5/BOOT.GZ || find --set-root --ignore-floppies /NT5/BOOT.GZ map --mem /NT5/BOOT.GZ (0xFF) geometry (hd1) && checkrange 0x80 read 0x8280 && map (hd0) (hd1) && map (hd1) (hd0) map --hook root (0xFF) chainloader (0xFF)/I386/SETUPLDR.BIN || chainloader () boot[/codebox] Ayrı bir menü yapmanın amacı, iso dosyasında birden fazla xp ve benzeri kurulumun olabileceği ihtimalidir! Bu yüzden ayrı bir menü yapılmıştır! Kullanıcılar kendisine göre menülerini düzenleyebilir haliyle. Cevap 2/3 - SETUP.ISO dosyasının sorma nedeni uygun sürücülerde bu dosyanın bulunamaması. Senin SETUP.ISO dosyası CD/DVD sürücüsüsünde mi? Burdaki çalışma Fat16/Fat32/NTFS ortamları için hazırlanmıştır... Bu konu için tekrar yazarsan sevinirim. Yani ne tür bir sürücüden yüklemeye çalıştın? Cevap 4 - Her kaynak için ayrı bir SETUP.ISO yapmalısın. Yoksa kurulum devam etmez!

@ztan96 Boot.wim içindeki pe 32 ise x86_FILES klasöründeki dosyaları, 64 bit ise X64_FILES klasöründeki dosyaları kopyalayacaksın. Önce 32 bit olan dosyaları kopyalayıp test yapabilirsin... Eğer kurulum ekranı vs. gelmez ise haliyle yanlış dosyaları koplayaladığını farkedersin. Ilgili çalışma hakkında bilgim olmadığı için, ne yanıt veremiyorum.... Kolay gelsin....

@Lord_Ares Sadece MB_USB.EXE programıyla grub4dosu kuracaksın. Hepsi bu! Tools klasöründeki herangi bir programı kullanmana/karıştırmana gerek yok! Tools klasöründe alternatif yöntemler bulunmasında fayda olacağı düşüncesiyle ilgili programları eklemiştim! Ram miktarına gelince, bu olay boot.gz dosyasının boyutuyla alakalı. Lakin ortalama 256 MB ram yeterli olacaktır...

Daha sade bir analtım için paket güncellenmiştir arkdaşlar. Tabi güncellenirken yeni özellikler eklenip, daha önce sorun yaşayan arkadaşların sorunlarına dair düzeltmelerde yapılmıştır. Gerekli anlatım, birinci mesaja eklendi! Bu aralar internete fazla takılamadığım için, güncelleme konusu biraz uzadı. Kurura bakmayın. @Lord_Ares Merhaba, tabiki ilgili disk üzerinden xp kurulumu gerçekleştirebilrisin. Burda en önemli şart, kurulum sırasından sistemin senin ilgili disk için sürücülerini yükleyip, senin diski algılaması. Deneme sonuçlarınızı yazmayı unutmayın, kolay gelsin arkadaşlar....

@Loris_my_Morris Üçüncü mesajdaki BL_WINBOOT programının vista/Win7 ye herangi bir zarar vermesi söz konusu deyildir. Çünkü yaptığı sadece boot.ini dosyasına yazıp silmekti. Sorun başka bir nedenden/programdan ötürü kaynaklanmış olabilir. Belki crack vs. gibi aynı dosyalar sürücüye otomatik kopyalatılmıştır ve haliyle önyükleme bozulmuş olabilir. Evet program çok eskidir. Yakın bir zamanda ilgili konuyu da güncelleyeceğim. Ama şuan ara ara iso dosyasından xp kurulumuna bakıyorum. Haliyle Ramazan da girince çalışmaların yavaşladı. Pc ye çok az takılıyorum. @34ero Son BlueLife MultiBoot USB v1.4' ün linki konunun ikinci mesajında mevcuttur!

O zaman hotkeyset kullanmalısın. [codebox]#NoTrayIcon #RequireAdmin HotKeySet("q", "_SK_LAN_ENABLE") HotKeySet("e", "_SK_LAN_DISABLE") Opt("GUIOnEventMode", 1) $Form1 = GUICreate("MeLoNCoLiXx Anlık Lag Hilesi", 314, 284) GUISetOnEvent(-3, "_SK_SAFE_EXIT") $Pic1 = GUICtrlCreatePic("C:\Users\MeLoNCoLiXx\Desktop\gri.jpg", 0, 0, 313, 281) $Group1 = GUICtrlCreateGroup("Açma Kısayolu", 8, 24, 137, 129) $Q = GUICtrlCreateLabel("Q", 48, 40, 52, 99) GUICtrlSetOnEvent(-1,"_SK_LAN_DISABLE") GUICtrlSetFont(-1, 48, 400, 0, "Base 02") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Kapatma Kısayolu", 168, 24, 137, 129) $E = GUICtrlCreateLabel("&E", 208, 40, 46, 99) GUICtrlSetOnEvent(-1,"_SK_LAN_ENABLE") GUICtrlSetFont(-1, 48, 800, 0, "Base 02") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Güvenli Çıkış ", 88, 216, 129, 49) GUICtrlSetOnEvent(-1,"_SK_SAFE_EXIT") GUISetState(@SW_SHOW) ;~ Global $AccelKeys[2][2]=[["q", $Q], ["e", $E]] ;~ GUISetAccelerators($AccelKeys) While 1 Sleep(100) WEnd Func _SK_LAN_ENABLE() GUISetState(@SW_DISABLE) RunWait("ipconfig.exe /renew *",@SystemDir,@SW_HIDE) ; switch on GUISetState(@SW_ENABLE) EndFunc ;==>_SK_LAN_ENABLE Func _SK_LAN_DISABLE() GUISetState(@SW_DISABLE) RunWait("ipconfig.exe /release *",@SystemDir,@SW_HIDE) ; switch off GUISetState(@SW_ENABLE) EndFunc ;==>_SK_LAN_DISABLE Func _SK_SAFE_EXIT() _SK_LAN_ENABLE() Exit EndFunc ;==>SK_SAFE_EXIT[/codebox]

@ademola Bilgi için teşekkürler. Gerekli düzenlemeyi yaptım. Aşağıdaki exeyi tekrar test edip bilgi verebilirmisin? [color="#0000FF"][u][b]http://bluelife.zxq.net/2011_08_04_MB_USB.zip[/b][/u][/color]

@silentspy Xp kur seçtiğinde direk bu ekran mı geliyor? Yoksa menü geliyor ve xp kuru seçtiğinde bu ekrana mı atıyor? Biraz detay vermelisin. O komut istemide aşağıdaki komutları yazman işe yarayabilir. [b]find --set-root /I386/SETUPLDR.BIN[/b] Enter [b]chainloader /I386/SETUPLDR.BIN[/b] Enter [b]boot[/b] Enter

@SimpsoN_Bart ipconfig işe yaramıyor mu? Kodlarında zaten pasif durumda ekliydi! @avLa Birde ipconfig ile deneyelim. Çalışırsa exra programa gerek kalmaz... [codebox]#NoTrayIcon #RequireAdmin Opt("GUIOnEventMode", 1) $Form1 = GUICreate("MeLoNCoLiXx Anlık Lag Hilesi", 314, 284) GUISetOnEvent(-3, "_SK_SAFE_EXIT") $Pic1 = GUICtrlCreatePic("C:\Users\MeLoNCoLiXx\Desktop\gri.jpg", 0, 0, 313, 281) $Group1 = GUICtrlCreateGroup("Açma Kısayolu", 8, 24, 137, 129) $Q = GUICtrlCreateLabel("Q", 48, 40, 52, 99) GUICtrlSetOnEvent(-1,"_SK_LAN_DISABLE") GUICtrlSetFont(-1, 48, 400, 0, "Base 02") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Kapatma Kısayolu", 168, 24, 137, 129) $E = GUICtrlCreateLabel("&E", 208, 40, 46, 99) GUICtrlSetOnEvent(-1,"_SK_LAN_ENABLE") GUICtrlSetFont(-1, 48, 800, 0, "Base 02") GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Güvenli Çıkış ", 88, 216, 129, 49) GUICtrlSetOnEvent(-1,"_SK_SAFE_EXIT") GUISetState(@SW_SHOW) Global $AccelKeys[2][2]=[["q", $Q], ["e", $E]] GUISetAccelerators($AccelKeys) While 1 Sleep(100) WEnd Func _SK_LAN_ENABLE() GUISetState(@SW_DISABLE) RunWait("ipconfig.exe /renew *",@SystemDir,@SW_HIDE) ; switch on GUISetState(@SW_ENABLE) EndFunc ;==>_SK_LAN_ENABLE Func _SK_LAN_DISABLE() GUISetState(@SW_DISABLE) RunWait("ipconfig.exe /release *",@SystemDir,@SW_HIDE) ; switch off GUISetState(@SW_ENABLE) EndFunc ;==>_SK_LAN_DISABLE Func _SK_SAFE_EXIT() _SK_LAN_ENABLE() Exit EndFunc ;==>SK_SAFE_EXIT[/codebox]

Öncelikle dosya uzantılarını aç. Yani shell32.dll şeklinde görmen lazım. Sonra system32 klasöründeki shell32.dll dosyasını yenindne adlandırıp sonuna .old ekle. Yeniden adlandırdıktan sonra ismi shell32.dll.old olacak. Değiştirmek istediğin shell32.dll dosyasını system32 ye kopyala ve sistemini yeniden başlat.

Cümleten Hayırlı Cuma'lar dilerim....

@tefaani Tamam sorunu anladım! Şimdi kurulum gerçekleştiren dosyamız setup.exe. Ama dps eklenen sistemlerde, dpsnin programının ismi setup.exe oluyor. Orjnal kurulum dosyasıda setuporg.exe oluyor. Başlangıçta setup.exe çalışıp, ilgili presetup.cmd dosyasını çalıştırıyor. Daha sonra kendi ismini değiştirip, setuporg.exe yi setup.exe yapıyor ve çalıştırıyor. Ardınan kurulum devam ediyor. Burdaki uyguladığımız yöntemde aynı sayılır. Benim hazırladığım program başlangıçta setup.exe! Orjinal kurulum dosyası ise setuporg.exe. Ama bir sorun nedeniyle, orjinal kurulum dosyası yerine dps ye ait setup.exe setuporg.exe olarak ISO_ROOT altına kopyalanmış. Bu sorun için, gerekli düzenlemeleri yapacağım... Bilgi için teşekkürler...

@vahvah Nt5SetupFromIso.ini dosyasını açıp, [INSTALL_SETTING] altına [b]*.sys[/b] satırını ekleyip, BOOT.GZ oluşturarak tekrar deneyebilirmisin? Örnek Nt5SetupFromIso.ini içeriği; [codebox][INSTALL_SETTING] Driver = WinVBlock IsoFileLocation=NT5\SETUP.ISO FalseCabs=True [Txt_Copy_Files] WINNT.SIF *.sys [Txt_No_Copy_Files] *.*, All Files - Tüm Dosyalar [Version] Signature=$Windows NT$[/codebox] Not: Ara ara üzerinde çalışıyorum... Önümüzdeki günlerde yeni paketi yayınlayabilirim... Programın kodlaması uzun olduğundan, gözümden kaçan hatalar olabiliyor... Şüphesiz yaptığıız testler ile yavaş yavaş daha iyi bir çalışma ortaya çıkacaktır...