blue_life

Yukarıdaki player autoit ile mi hazırlandı? Yoksa farklı bir program mı? Çok az bilgi verdiğin için yardımcı olamayıyorum (şuan için)!

@lmuzun Sciteyi de kurmalısın! [color="#0000FF"][u][b]http://www.autoitscript.com/autoit3/scite/download/SciTE4AutoIt3.exe[/b][/u][/color] Kurulumu anlatan video forumda vardı! [color="#0000FF"][u][b]http://www.4shared.com/file/104277155/5931bf1f/Autoit_Setup_Video.html[/b][/u][/color]

@korasoglu Aşağıdaki gibi bir şeymi istiyorsun? [codebox];#NoTrayIcon Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $FOLDER1 = "Deneme_123" Global $FOLDER2 If FileExists($ScriptDir & $FOLDER1) = 0 Then ;Deneme klasörü yoksa! MsgBox(16,"",$ScriptDir & $FOLDER1 & " klasörü bulunamadı!") Exit 1 EndIf Global $GREAD Global $Form1 = GUICreate("Copy", 220, 200) Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15) Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763) Global $Label2 = GUICtrlCreateLabel("Klasör", 10, 50, 200, 15) Global $Input1 = GUICtrlCreateInput($FOLDER2, 10, 65, 175, 20) Global $BTN_FLD = GUICtrlCreateButton("...", 190, 65, 20, 20) Global $BTN_COPY = GUICtrlCreateButton("Kopyala", 10, 95, 200, 24,1) GUICtrlSetState(-1,256) _Update_Drv() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $BTN_FLD _FSelectFolder($Input1,$Form1) Case $BTN_COPY $GREAD = StringStripWS(GUICtrlRead($Combo1),3) If StringLen($GREAD) <> 2 Then MsgBox(16,"Hata!","Herangi bir sürücü seçili deyil!",0,$Form1) ContinueLoop EndIf GUISetState(@SW_DISABLE) GUICtrlSetData($BTN_COPY,"BEKLEYİNİZ") $FOLDER2 = StringStripWS(GUICtrlRead($Input1),3) If $FOLDER2 <> "" Or FileExists($ScriptDir & $FOLDER2) = 0 Then DirCopy($ScriptDir & $FOLDER2 , $GREAD & "\",1) EndIf DirCopy($ScriptDir & $FOLDER1 , $GREAD & "\",1) GUICtrlSetData($BTN_COPY,"Kopyala") GUISetState(@SW_ENABLE) MsgBox(64,"","Işlem başarıyla tamamlandı!",0,$Form1) EndSwitch WEnd Func _FSelectFolder($FS_INPUT,$FS_hwnd) Local $FSF = FileSelectFolder("Içeriği kopyalanacak klasörünü seç!",$ScriptDir,2,"",$FS_hwnd) If $FSF = "" Then SetError(1,0,"") $FSF = StringTrimLeft($FSF,StringLen($ScriptDir)) GUICtrlSetData($FS_INPUT,$FSF) Return $FSF EndFunc Func _Update_Drv() Local $LIST[2] ;~ Local $R_DRV_LIST = DriveGetDrive("ALL") Local $R_DRV_LIST = DriveGetDrive("REMOVABLE") If NOT @error Then For $i = 1 to $R_DRV_LIST[0] $R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2) $LIST[0] &= $R_DRV_LIST[$i] & "|" If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i] Next If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1) GUICtrlSetData($Combo1,"") GUICtrlSetData($Combo1, $LIST[0], $LIST[1]) EndIf EndFunc[/codebox]

@korasoglu Malesef anlamadım! Biraz daha düzgün yazmalısın... [b]Global $FOLDER = "Deneme_123"[/b] satırındaki [b]Deneme_123[/b] değerini silersen herangi bir klasör olmaz. Veyahut istediğin isimi o satıra girebilirsin. [b]Global $FOLDER = "Test_123"[/b]

Küçük yanılma payı ile hattınızın maximum alabileceği download hızını bulmanız mümkün! Kısaca; Modeminizin ip adresini tarayıcınıza yazarak modeme giriş yapın ve rapor bölümündeki [b]Downstream Attenuation[/b] değerini öğrenip, not alın. Daha sonra aşağıdaki siteyi açın ve modeminizden öğrendiğiniz değeri, [b]Downstream Attenuation[/b] kutusuna girip [b]Calculate[/b] tuşuna basınız. [color="#0000FF"][u][b]http://www.kitz.co.uk/adsl/max_speed_calc.php[/b][/u][/color]

@korasoglu Dün biraz meşguldüm ve bu nedenle yanıt veremedim. Kusura bakma! Neyse aşağıdakini gibi bir şey mi istiyorsun? [codebox];#NoTrayIcon Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $FOLDER = "Deneme_123" If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa! MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!") Exit 1 EndIf Global $GREAD Global $Form1 = GUICreate("Copy", 220, 200) Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15) Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763) Global $Label2 = GUICtrlCreateLabel("Klasör", 10, 50, 200, 15) Global $Input1 = GUICtrlCreateInput($FOLDER, 10, 65, 175, 20) Global $BTN_FLD = GUICtrlCreateButton("...", 190, 65, 20, 20) Global $BTN_COPY = GUICtrlCreateButton("Kopyala", 10, 95, 200, 24,1) GUICtrlSetState(-1,256) _Update_Drv() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $BTN_FLD _FSelectFolder($Input1,$Form1) Case $BTN_COPY $GREAD = StringStripWS(GUICtrlRead($Combo1),3) If StringLen($GREAD) <> 2 Then MsgBox(16,"Hata!","Herangi bir sürücü seçili deyil!",0,$Form1) ContinueLoop EndIf $FOLDER = StringStripWS(GUICtrlRead($Input1),3) If $FOLDER = "" Or FileExists($ScriptDir & $FOLDER) = 0 Then MsgBox(16,"Hata!","Kopyalanacak klasör bulunamadı!",0,$Form1) ContinueLoop EndIf GUISetState(@SW_DISABLE) GUICtrlSetData($BTN_COPY,"BEKLEYİNİZ") DirCopy($ScriptDir & $FOLDER , $GREAD & "\",1) GUICtrlSetData($BTN_COPY,"Kopyala") GUISetState(@SW_ENABLE) MsgBox(64,"","Işlem başarıyla tamamlandı!",0,$Form1) EndSwitch WEnd Func _FSelectFolder($FS_INPUT,$FS_hwnd) Local $FSF = FileSelectFolder("Içeriği kopyalanacak klasörünü seç!",$ScriptDir,2,"",$FS_hwnd) If $FSF = "" Then SetError(1,0,"") $FSF = StringTrimLeft($FSF,StringLen($ScriptDir)) GUICtrlSetData($FS_INPUT,$FSF) Return $FSF EndFunc Func _Update_Drv() Local $LIST[2] ;~ Local $R_DRV_LIST = DriveGetDrive("ALL") Local $R_DRV_LIST = DriveGetDrive("REMOVABLE") If NOT @error Then For $i = 1 to $R_DRV_LIST[0] $R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2) $LIST[0] &= $R_DRV_LIST[$i] & "|" If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i] Next If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1) GUICtrlSetData($Combo1,"") GUICtrlSetData($Combo1, $LIST[0], $LIST[1]) EndIf EndFunc[/codebox]

[color="#0000FF"][b]Konu olumlu yönde sonuca ulaşmıştır arkadaşlar.[/b][/color] Sizleri bilgilendirmek amacıyla bu mesajı yazıyorum. [hr] Ilk olarak bu yaşadğım sorunu Türk Telekom Online Hizmet Merkezi vasıtasıyla şikayet ettim. [color="#0000FF"][u][b]https://ett.turktelekom.com.tr/etmh/webIndexPageMisafir.do[/b][/u][/color] Belli bir süre cevap gelmeyince ilgili şikayetimi aşağıdaki adrese mail atarak bildirdim. [color="#0000FF"][b]iletisim[b]@[/b]turktelekom.com.tr[/b][/color] Yine belli bir süre cevap gelmeyince konuyu aşağıdaki site aracılığıyla şikayet ettim. [color="#0000FF"][u][b]www.sikayetvar.com[/b][/u][/color] [hr] [color="#0000FF"][b]Türk Telekom Online Hizmet Merkezi[/b][/color] Online işlem merkezinden yaptığım başvuruda mail ve telefonla geri dönüş yapıldı. Kısaca olumlu yaklaşan müşteri hizmeti elemanı konuyla ilgileneceğni, kısa sürede eski tarifeme geçecebileceğimi iletti. Tabi ilgili konuşmaların inceleceğini ve sonuçlandığında eski tarifeme geçebileceimi vs. söyledi. Bu süre yaklaşık olarak 3-4 gün sürebiliyormuş. Konu sonuçlandığında beni arayıp bilgi vereceğini iletti. [hr] [color="#0000FF"][b]iletisim[b]@[/b]turktelekom.com.tr[/b][/color] Normal olarak attığım mail içinde geri dönüş oldu. Ama genel kanım baştan savma/ güven vermeyen bir mesajdı! Kısaca, konuyla ilgilenceklerini ve tarafıma bilgi verileceğini dair klasik bir mesajdı! [hr] [color="#0000FF"][u][b]www.sikayetvar.com[/b][/u][/color] Gerçekten kısa sürede arandım. Ilgili konuşmaların inceleceğini ve eski tarifeme geçebileceğimi söylediler. Bu gün 11:30 civarlarında tekrar arandım ve eski tarifeme geçtiğimi bildirdiler. [hr] Kısaca sikayetvar.com ve online işlem merkezi aracılığıyla yaptığım başvurularda geri dönüşler güven vericiydi. Defalarca arandım ve konuyla ilgili bilgilendirildim. Bu tür sorunlarda kullanmanızı tavsiye ederim....

@KingLost Söylediğim gibi büyük ihtimal ilgili pc ile alakalı bir sorun gibi görünüyor. Tabi düşük bir ihtimal burdaki çalışmayla da alakalı olabilir. Eklediğimiz winvblock sürücüsü senin depolama sürücülerinle çakışmış/sorun çıkarmış olabilir. Neyse eğer bu pcye usb den xp kurma ihtiyacın var ise aşağıdaki konudaki yöntemi deneyebilirsin. Bu yöntemde gerçekten başarılı! [color="#0000FF"][u][b]http://www.tnctr.com/topic/173379-tam-bootable-usb-disk-hazyrlayycy[/b][/u][/color]

@KingLost En az 10 dakika bekleyebilirmisin bu ekranda! Düşüncemi yazarsam; O siyah ekranda donanımlar taranıyor ve bir sorunlu donanım veyahut sürücü çakışması nedeniyle siyah ekranda imlecte takılma oluyor. @by_köylü arkadaşımız bu sorunu yaşadığında araştırmıştım ve genel olarak diskteki bir sorun nedeniyle (bölümleme tablosu da olabilir) bu gibi sorunlar çıkabiliyormuş. Yani nadir bir sorun ve seni buldu. Normal olarak cd/dvd den de xp kuru çalıştırdığınca büyük ihtimal aynı sorunu yaşamam mümkün! Tabi burdaki çalışmaylada alakalı olabilir ama bu düşük bir ihtimal gibi geliyor...

@KingLost Şuanki bir çok arkadaşın deneme sonuçarı başarılı geçmiştir. Şuan seninle birlikte iki sorun yaşayan arkadaşımız oldu. Sorun tamamen aynı! Bu sorunu @by_köylü arkadaşımızda kendi bilgisayarında yaşamıştı. Benim tahminim, bilgisayarınızdaki diskte bulunan bir sorun nedeniyle takılıyor. Elinde bu denediğin sistemlerin cd/dvd si var ise, xp kuru cd/dvd den çalıştırıp deneme şansın varmı? Bakalım aynı şekilde takılacak mı? Diğer bir deneme şekli olarakta, ilgili diskin fişini çekip, xp kuru çalıştırman yönünde olacaktır. Bu arada bu pc masaüstü mü? Googleden bakarsak bu sorun normal cd/dvd lerde de yaşanıyor. Bunun nedeni genelde depolama birimlerindeki sorunlar...

@korasoglu Kısaca; [codebox]Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $FOLDER = "Deneme_123" If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa! MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!") Exit 1 EndIf Global $GREAD Global $Form1 = GUICreate("Copy", 220, 100) Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15) Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763) Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1) GUICtrlSetState(-1,256) _Update_Drv() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 $GREAD = StringStripWS(GUICtrlRead($Combo1),3) If StringLen($GREAD) <> 2 Then ContinueLoop ;MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER) DirCopy($ScriptDir & $FOLDER , $GREAD & "\",1) EndSwitch WEnd Func _Update_Drv() Local $LIST[2] ;Local $R_DRV_LIST = DriveGetDrive("ALL") Local $R_DRV_LIST = DriveGetDrive("REMOVABLE") If NOT @error Then For $i = 1 to $R_DRV_LIST[0] $R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2) $LIST[0] &= $R_DRV_LIST[$i] & "|" If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i] Next If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1) GUICtrlSetData($Combo1,"") GUICtrlSetData($Combo1, $LIST[0], $LIST[1]) EndIf EndFunc[/codebox]

Yok herangi bir evrak vs. istemden direk geçiş yaptılar. TT online işlem merkezinden baktım ve tarifem değişmiş Neyse duruma göre bakacağız artık...

Konuyu takip edeceğim haliyle. Şuan elekronik ortamdan gerekli şikayetleri vs. ilettim ama geri dönüş olacağını düşünmüyorum. Müşteri hizmetlerini bu gün veyahut yarın arayacağım. Şuan yeterli kontürüm yok. Her yöne bedava dakikalarım mevcut ama malum her yerden bizi soyuyorlar. Müşteri hizmetleri için bedava dakikaları kullanamıyorum. Bir ara gidip kontör alıp birde telefondan şansımı deneyeceğim Ilginiz için hepinize teşekkürler...

Sorun çözülmüştür. Nasıl çözüldüğüne dair bilgi, [tnctr='http://www.tnctr.com/topic/175520-turk-telekom-muthteri-hizmetleri-bena-yalan-soeyledi/page__view__findpost__p__1041527']29. mesajda![/tnctr] [hr] Nasıl inandım halen şaşıyorum Hikayeyi kısaca anlatayım... Öncelikle ben telefon hattını kullanmıyorum ve telefon hattı için aylık yaklaşık olarak 14 TL (obonmen ücreti) ödüyordum. Heralde tarifem KlasikHATT. Neyse, TT müşteri hizmetleri beni aradı ve ev avantaj tarifelerini anlatmaya başladı. Bende işte internet için telefon oboneliğimin olduğunu ve hiç görüşme yapmadığımı söyledim. Zaten arama yapabileceğim bağlı telefonda yok tu Telefon bozuktu ve sadece dışardan arama geliyordu. Tüm görüşmelerim cep telefonu üzerinden ve ev telefonuna ihtiyacım bulunmamakta. Neyse işte eleman öyle balandıra ballandıra anltıyor ki! Konuşma sırasında eğer ev avantaj tarfisine geçersem ve hiç konuşma yapmaz isem paket ücretide dahil herangi bir ücret ödemeyeceğimizi söyledi. Söylediğini tekrarladım ve aynen konuşma yapmaz iseniz paket ücretide dahil herangi bir ücret ödemeyeceksiniz dedi! Aslında inanmazdım, ama saflığıma denk geldi Neyse onay verdim ve ev avantaj 100 paketine geçtim. Sonra içeme bir kuşku düştü ve ev avantaj 100 paketini inceledim. Müşteri hizmetleri elemanın söylediğinin aksine böyle bir durum söz konusu deyil. Kısaca boşu boşuna artık fazla ödeme yapacağım (22 - 14) dersek yaklaşık 8 TL fazladan ödeyeceğim... Sonradan tt ile irtibata geçtim ama muvaffak olamdım... [b]Kısaca siz siz olun, böyle telefonlara itibar etmeyin.[/b] Arkadaşlar bu konu için yapabileceğim bir şey varmı? Cayma hakkımız yokmu?

@MyCroSofT Mantık olarak, kurulumun ilk aşamasında önemli olmayan dosyalar Nt5SetupFromIso.ini dosyasındaki [Txt_No_Copy_Files] girilmelidir! Ben bazı dosyaları ekledim. Örneklere bakarak listeyi genişletebilirsek, haliyle boot.gz çok hızlı yüklenecek. Tabi doğru ortantıda xpnin kurulum süreside çok düşecektir...

@MyCroSofT Tabiki boot.gz nin boyutu kullanılan xpye göre değişir. Bir tane boot.gz diğer xpler için kullanılmaz. Hatalar verebilir! Lakin içerisinde bir çok xp bulunan bir iso dosyasını kullanırsan, bir boot.gz ile istenilen kadar xp kur çalıştırılabilir. Bu arada gerçekten baya küçültebilmişsin Lakin sistemin ilk çalışmasında kritik öneme sahip bir dosya olmaz ise bir takım hatalar verebilir...

Rica ederim, kolay gelsin...

@mrecep38 Senin amacaın kodlamada ilgili bilginin görünmemesi ise; ben sana StringToBinary kullanmanı tavsiye ederim. Nasıl yapacağını anlatayım. Şimdi masaüstünde yeni bir AutoIt v3 Script dosyası oluştur ve aç. Içerisine aşağıdakini yaz ve çalıştır. Tabi BlueLife kısmını kendine göre düzenle. [b]ClipPut(StringToBinary("Bluelife"))[/b] Çalıştırınca binary içerik panayo kopyalanmıştır. Işte bu içerigi aşağıdaki uygun yere yazacaksın. " " arasına! Misal aşağıda BlueLife yazıyor... [u][b]Global $MaileAdres = BinaryToString("0x426C75656C696665")[/b][/u] Edit: Bazen hızlı yazmadan dolayı, bazı harfler önce gidiyor ve kelimeler anlamını kaybediyor! Kusura bakmayın

@mrecep38 Malesef sen ilgili bilgilerini script içine şifreleyip yazsanda bu bilgileri send ile göndermek için şifreleme açılmalı! Hal böyle olunca ne yaparsan yap, decompile eden şahıs bu bilgileri alabilir! Yani uğraştığın yöntem zaman kaybından başka bir şey deyil!

@mrecep38 Niçin böyle bir şeye ihtiyaç duyuyorsun? [b]Global $MaileAdres = Chr("0109")&Chr("0114")&Chr("0108") [/b]

@korasoglu Ilk önce guini tasarlayıp (koda form designer ile), kodlarını bizimle paylaş. Gui elemanlarına fonksiyon atamamk için yardımcı olmaya çalışırım... Kolay gelsin...

@kalelibilişim Bazı bilgisayarlarda usb flash disk, hdd bölümünde bulunabilir! Benim anakarttada hdd bölümünde. Yani sistemdeki diğer disklerin olduğu bölümde bulunuyor. Flash belleklerin ciplerindeki bilgiyle oynayarak cd/dvd özelliği kazandırmak mümkün! Ben 5-6 flash ile denemiş ve başarıya ulaşmıştım. Ama yeni başlayanlar için karışık bir konu! Sen önce dediğim gibi flash diskin, harddik katagorisinde bulunup bulunmadığını kontrol et!

@korasoglu Şuan kodlarda pasif durumda! Bu yüzden kopyalama yapmaz. Ilgili mesaj kısmını kendine göre düzenlemelisin! [codebox]Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $FOLDER = "Deneme_123" If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa! MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!") Exit 1 EndIf Global $GREAD Global $Form1 = GUICreate("Copy", 220, 100) Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15) Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763) Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1) GUICtrlSetState(-1,256) _Update_Drv() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 $GREAD = StringStripWS(GUICtrlRead($Combo1),3) If StringLen($GREAD) <> 2 Then ContinueLoop ;MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER) DirCopy($ScriptDir & $FOLDER , $GREAD & "\" & $FOLDER) EndSwitch WEnd Func _Update_Drv() Local $LIST[2] Local $R_DRV_LIST = DriveGetDrive("REMOVABLE") If NOT @error Then For $i = 1 to $R_DRV_LIST[0] $R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2) $LIST[0] &= $R_DRV_LIST[$i] & "|" If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i] Next If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1) GUICtrlSetData($Combo1,"") GUICtrlSetData($Combo1, $LIST[0], $LIST[1]) EndIf EndFunc[/codebox]

@kalelibilişim Deneyeli çok uzun zaman olmuştu Yanlış hatırlıyor olabilirim... Bilgi için teşekürler...

@kalelibilişim Bir disk üzerindeki bir bölümün imajını aldıysan, haliyle imaj içinde bir bölüm oluyor. Haliyle senin verdiğin komut doğrudur. [b]%GEXE% -clone,MODE=pload,SRC=%FILE%:1,DST=1:1 -RB[/b] Tabi disk üzerindeki bir bölümün imajı aldığın için aşağıdaki komutta doğru sayılır... [b]%GEXE% -clone,MODE=pload,SRC=%FILE%,DST=1:1 -RB[/b]