asmazh Posted June 28, 2011 Share Posted June 28, 2011 (edited) Öncelikle merhabalar, şu anda autoit ile bir proje hazırlıyorum kuyruğuna geldim hiç beklemediğim bir yerden durmadan hata alıyorum neyse uzatmadan hatayı soyliyeyim: şimdi bir buton a tıklayacagim FileOpenDialog açılacak bir resim seçeceğim ve seçtiğim resimin ismi inputa yazılacak (çok basit gözüküyor değilmi? Zaten basit ama buton a tıklıyorum fileopendialog u resim seçmeden kapatınca program donuyor. Bunu nerden baksanız bu gün 50 yöntem deniyerek çözmeye çalıştım olmadı tiksindim deli olacam bunun sebebini söylerseniz sevinirim ha bide çözümünü .) şimdiden teşekkürler arkadaşlar... Edited June 28, 2011 by asmazh Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 28, 2011 Share Posted June 28, 2011 @asmazh Ama ilgili kısmın kodlarını vermemişsin. Nerde hata yaptığını nasıl anlayalım ki! Neyse sana basit bir gui örneği vereyim. Umarım işine yarar... [codebox]Local $File_OpenDialog Local $Form1 = GUICreate("Form1", 350,200) Local $Input1 = GUICtrlCreateInput("", 10, 10, 250, 20) Local $Button1 = GUICtrlCreateButton("...", 270, 10, 70, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 $File_OpenDialog = FileOpenDialog("Dosyanı seç!", @WindowsDir & "\", "Images (*.jpg;*.bmp)", 3,"", $Form1) If Not @error Then GUICtrlSetData($Input1,$File_OpenDialog) EndIf EndSwitch WEnd[/codebox] Quote Link to comment Share on other sites More sharing options...
asmazh Posted June 29, 2011 Author Share Posted June 29, 2011 @bluelife ilgilendiğin için teşekkür ederim. Hiç ummadığım bir hata hiç ummadığım bir yerden gelmiş "While" bir döngü koymuşum ondan miş boşuna kendimi o kadar sinirlendirmişim:) lakin bir bir kaç sorum var size autoit hakkında siz bilirsiniz 1. Sorum: programımı proceslist de görünmesini istemiyorum yani "görev yöneticisi\işlemler" de görünmesini istemiyorum bunu autoit ile yapabilirmiyim. 2.sorum: siz bir aralar bl_winlock diye bir program yazmıştınız ve bunun autoit kodlarını vermiştiniz o kodları dün inceledim herşey güzellde o kodlar arasında yaklaşık bir kaç sayfalık karma karışık kodlar var "545160050101010020010004001010" bu böyle sürüyor herşeyi anladım bu kodları anlamadım birde bunları dll dosyası olarak kaydediyorsunuz bunları siz nasıl yazdınız yoksa siz yazmadınız hazırda mı var windows da anlamı nedir o kodların (biraz hikaye yazdım gibi oldu herhalde) Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 29, 2011 Share Posted June 29, 2011 @asmazh Cevap 1: Bu konu hakkında bilgim yok. Ama sadece görev yöneticisi için. bir döngü içinde kontrol yapılıp silinebilir. Heralde böyle bir örnek paylaşmıştım... Linkini bakayım... [tnctr='topic/171627-goerev-yoeneticisindeki-listeye-mudehale-etmek']Konu Burda[/tnctr] Cevap 2: Hatırladığıma göre orda ilgili dll dosyasını, script içine almıştım. Ordaki dğerler heralde ilgili dll dosyasıyla ilgili. Yani dll dosyasının binary değeri bir değişkene aktarılıp, çalıştırıldığında ilgili konuma kayıt edilmesi sağlanıyordu... Kısaca ordaki yapılan işlem Fileinstall komutuylada yapılabilir. Böyle şeylere gerek yok! Quote Link to comment Share on other sites More sharing options...
asmazh Posted June 29, 2011 Author Share Posted June 29, 2011 (edited) @blue_life verdiğiniz örnek işime yaradı ellerinize sağlık. Yazdığım programın şaşaalı bir temasının olmasını istiyorum bir şeyler yaptım ama şu butonlar bozuyor butona verdiğim icon resim güzelde butonun köşeleri bozuyor işi kenarları resme dail olmuyor beyaz gözüküyor sizin autoit ile yazdığınız programların çoğuna baktım 4/4 luk butona verdiğiniz resimler uyuyor yani :resim buton a değil buton resme uyuyor. Boş bir vaktinizde böyle basit anlaşılacak bir biçimde tema yapma amaçlı bir gui tasarlarsanız ve buraya koyarsanız sevinirim. Edited June 29, 2011 by asmazh Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted June 29, 2011 Share Posted June 29, 2011 Dostum bu dediğini Gerekli UDF lerle yapabilirsin.Bende bi çalışmamda bu sorundan çok çektim.de ondan biliyorum.BluLife hocamız yardımcı olacağını düşünüyorum. Olmazsa pm at benim arşivimde olması lazım kullanırsın.Saygılar.. Quote Link to comment Share on other sites More sharing options...
asmazh Posted June 29, 2011 Author Share Posted June 29, 2011 @SimpsoN_Bart ilgilendiğin için teşekkürler Blue_Life in işi olabilir. sen buradan versen ben indirsem basit bir örneğini makbüle geçer. hem BlueLife'i rahatsız etmem. bende senin gibiyim çok çektim çekeceğimde herhalde Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 29, 2011 Share Posted June 29, 2011 @asmazh Bana küçük bir önek verirsen, sana nerde hata yaptığını, veyahut nasıl yapman gerektiğini gösteren komutları verebilirim! Ben genelde icon veyahut bmp kullanıyorum. Png için bir ek komut (udf) gerektiğinden png formatını çalışmalarımda kullanmıyorum... Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 2, 2011 Share Posted July 2, 2011 hocam bu isteğin tam tersi istediğimin bir klasörün içeriğini flasha nasıl kopyalatırız. ama diyelim ki ikitane usb takılı onlarıda görecek biz seçeceğiz kopyalama gerçekleşecek CombaBox olabilir mesela... Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 3, 2011 Share Posted July 3, 2011 (edited) http://www.tnctr.com/topic/95572-guvenli-usb-kaldyrycy-12-03022010-guncellendi/ Her şeyden önce örnekleri incele.Bak burda ben bütün çıkarılabilir aygıtları listelemiştim yani bu örnekte.Sende burda nasıl listelediğimi araştır ve öğren sonra dediğini yap. Edited July 3, 2011 by MostWanted Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 3, 2011 Share Posted July 3, 2011 @korasoglu [b]DriveGetDrive[/b] komutuyla sürücülerini listeyebilirsin. Guili basit bir örnek vermem gerekirse; [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) MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER) ;~ DirCopy($ScriptDir & $FOLDER & @CRLF & $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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 3, 2011 Share Posted July 3, 2011 hocam kopyalama yapmıyor Deneme_123 klasörünü oluşturdum içine text attım kopyalama yapmıyor Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 3, 2011 Share Posted July 3, 2011 @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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 3, 2011 Share Posted July 3, 2011 hocam kusura bakmayın bilmediğim için soruyorum kendinize göre düzenleme yap demişiniz yapamadım mesela belirdeğimiz klasörün içeriğini nasıl kopyalatırız şuda eklense browse eklense varsayılan uygulamanın olduğu klasör olsa sürücü seçilip klasör seçilse kopyalama yapılsa eğer sizi kullandığımı düşünüyorsaniz lütfen cevap vermeyin..bu arada size özel mesaj gönderilemiyormu acaba olmuyor...ilgili yerlere açıklama koyarsanız daha makbule geçer başka zaman sizi yormam Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 4, 2011 Share Posted July 4, 2011 @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... Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 5, 2011 Share Posted July 5, 2011 hocam ceva için biraz geç kaldım özür dilerim. son verdiğiniz örnek tam istediğim sadece deneme_123 klasörünü değil içinde ne varsa onu kopyalaması mümkünmü. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 6, 2011 Share Posted July 6, 2011 @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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 6, 2011 Share Posted July 6, 2011 (edited) hocam ben şöyle yapmıştım Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" 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 Global $Button1 = GUICtrlCreateButton("BEKLEYİNİZ", 10, 55, 200, 24,1) $GREAD = StringStripWS(GUICtrlRead($Combo1),3) If StringLen($GREAD) <> 2 Then ContinueLoop DirCreate($GREAD & "\deneme\Bluelife") DirCreate($GREAD & "\deneme\korasoglu") DirCreate($GREAD & "\deneme") DirCreate($GREAD & "\autoit") DirCreate($GREAD & "\autoit2") FileCopy($ScriptDir & "usb\deneme\*.*", $GREAD & "deneme") FileCopy($ScriptDir & "usb\*.*", $GREAD) FileCopy($ScriptDir & "usb\deneme\Bluelife\*.*", $GREAD & "deneme\Bluelife\") FileCopy($ScriptDir & "usb\deneme\korasoglu\*.*", $GREAD & "deneme\korasoglu\") Global $Button1 = GUICtrlCreateButton("TAMAMLANDI", 10, 55, 200, 24,1) 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 fakat kopyalama başlayınca butonun yazısı ve bitince değişsin diye çalıştım fakat olmadı herhalde döngünün içine oturmadı bu kodda hata nerede hocam birde gozat buttonu eklesek aynı görevi nasıl yapar Edited July 6, 2011 by korasoglu Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 7, 2011 Share Posted July 7, 2011 @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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 7, 2011 Share Posted July 7, 2011 hocam evet istediğim budur deneme _123 yerine aynı gözat açılınca illa deneme_123 yerine seçilen klasörü kopyalasa oda olabilirmi gerek yok dersen bu işimi görüyor ama artısı olursa daha hoş olur... Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 7, 2011 Share Posted July 7, 2011 @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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 8, 2011 Share Posted July 8, 2011 kullanıcı aynı zamanda gözata tıklatığı zaman herhangi istediği bir klasörüde kopyalasa demiştim ha bu arada konu iki sayfaya çıkmış gözümden kaçmış o yüzden geç cevap verdim Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 8, 2011 Share Posted July 8, 2011 @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] Quote Link to comment Share on other sites More sharing options...
korasoglu Posted July 8, 2011 Share Posted July 8, 2011 hocam emeğine sağlık harika olmuş iyiki varsın... yalnız derdimi anlatıncaya kadar bayağı uğraştık... üç kafadar amerikaya geziye giderler tabiki birisi kekeme neyse hava limanına inerler kekeme elinde 10 tane jeton arkadaşlarını arar olay şu biz havaalındayız gel bizi al fakat kekeme başlar eeeeeee bbbbiiiiz hhhhaaaaaaaaavvvvaalındayız geldiyinceye kadar dokuz jeton gider fakat derdini anlatamaz son jetonda arkadaşı alır ahmet biz alandayız lütfen gelip bizi alırmısın der kapatır kekeme arkadaşına şöyle bir bakar tek jetonla işi halledince valllllaaaa böööööööyüüüüüük aaaaadamsın demiş... Vallahi büyük adamsınız valla... Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 8, 2011 Share Posted July 8, 2011 @korasoglu Rica ederim, bir şey deyil. Kodlama yapmadan önce, taslak olarak kafada tasarlamak çok önemlidir. Eğer bir plan çerçevesinde haraket edersen, yapmak istediğini daha kısa sürede yapabilirsin. Bu yüzden yapmak istediğini aklında iyi tasarlayıp, yardım istediğinde de karşı taraftakinin iyi anlayabileceği bir biçimde anlatabilmen çok önemli! Hikaye idare eder Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.