korasoglu

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

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ü.

host dosyasına bir bak engelleme olabilir system32 de

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

hocam kopyalama yapmıyor Deneme_123 klasörünü oluşturdum içine text attım kopyalama yapmıyor

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...

sevgili k.a tamam 512 mg remle windows7 çalıştırmışındır doğrudur fakat sen küçücük çocuğun sırtına kocaman yük vurmuşun çekbunu diyorsum xp ye terfi etsen bilgisayarın hızlandığını göreceksin yok illa windows7 olsun diyorsan rüzgarın bol olsun çünkü ihtiyacın olacak

arkadaşlar tammamen boş olarak verecemindirenlerede boş kullanmak isterse ayrı güncelleme vericem ilerleyen günlerde

sevgili 270598 bu kadar nazik birisi belli fakat ben yeniden paylaşıyorum kızma lafı biraz tuhap olmuş.

sevgili murat hotfile paylaşımı yapılmayacak beğenmen olumlu not vermen için teşekkür ederim

buyrun şunu bir deneyin ---------------------- hWnd = Application.GetWndHandle() sTitle = "Korasoglu" sMsg = "Selam" sCheckText = "NONE" Buttons = "OK" Icon = "ICON_EXCLAMATION" Icon_File = "" Font_Size = "12" Font_Bold = "YES" nBG_Color = 7628121 nText_Color = 255785 Style = "TOOL" HideTitleBar = "NO" sWidth = 300 sHeight = 100 result = DLL.CallFunction("AutoPlay\\Docs\\xDialog_Message.dll", "Show_Msg", "\""..sTitle.."\",\""..sMsg.."\",\""..sCheckText.."\",\""..Buttons.."\",\""..Icon.."\",\""..Icon_File.."\",\""..Font_Size.."\",\""..Font_Bold.."\",\""..nBG_Color.."\",\""..nText_Color.."\",\""..Style.."\",\""..HideTitleBar.."\",\""..sWidth.."\",\""..sHeight.."\",\""..hWnd.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL) nPos = String.Find(result, "|", 1, false) if nPos == -1 then Button = result Label.SetText("Label1", "The "..Button.." button was clicked") else Button = String.Left(result, nPos-1) Checked = String.Mid(result, nPos+1, 20) if Checked == "CHECKED" then sText = "The "..Button.." button was clicked and the check box was checked" else sText = "The "..Button.." button was clicked and the check box was not checked" end Label.SetText("Label1", sText) end ------------ Docs klasörüne at http://www.dosya.tc/upload/OiVbZO/xDialog_Message.rar.html

Hocam bu yazışmalarda hiç bir şey anlamadım diyelimki benim bir sitem var ben sizin otokurda olduğu gibi nasıl güncelleme yaptırabiliriz. sizde guncelleme.exe url.exe blank.htm var konuyu teferruatlı bir şekilde açma şansınız varmı. Programların hepsinide size yakışır bir şekilde ams ile yapmışşınız

Arkadaşım yaptığınız çalışmalarda birazda görselliğe önem verin o Giriş butonu hiç güzel durmuyor

olay tam anlaşılmıyor ama ne gerek standart bir en boy seçmek daha estetik olur

bunu dene ama direkMüziği açacağını zannetmiyorum ama exeyi açabilir sen adresleri kendine göre düzenle not defterine aşağıdakileri yaz kaydet uzantısını reg yap tıkla Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\ocxfile\shell\ocxRestorator] @="audio player ile aç" [HKEY_CLASSES_ROOT\ocxfile\shell\ocxRestorator\command] @="\"C:\MeselaKlasörü\\audio player ile aç.exe\" \"%1\""

hocam niçin size özel mesaj yazılmıyor.dünde bügünde denedim olmuyor

Şöyle yaparsan daha çok uzantı gösterebilirsin deneme = Dialog.FileBrowse(true, "Simgeyi Seçiniz", _DesktopFolder, "PNG (*.png)|*.png|JPG (*.jpg)|*.jpg|JPEG (*.jpeg)|*.jpeg|GIF (*.gif)|*.gif|", "", "dat", false, false);

Şunu bir dene sayfa On Show A1Veri = INIFile.GetValue("Autoplay\\Docs\\resim.ini", "resim", "1"); if A1Veri == "" then else Image.Load("Image1", "AutoPlay\\Docs\\resim1.png"); end Butonun On Clik evresine deneme = Dialog.FileBrowse(true, "Simge Seçin", _DesktopFolderCommon, "Programlar (*.PNG)|*.PNG|", "", "", false, true); -- dosya seçim penceresini aç if deneme ~= "CANCEL" then StatusDlg.Show() File.Copy(deneme[1], _SourceFolder.."\\AutoPlay\\Docs\\resim1.png", false, true, false, false) -- dosyayi kopyala sallama = String.SplitPath(deneme[1]) INIFile.SetValue("Autoplay\\Docs\\resim.ini", "resim", "1", sallama.Filename..".png") StatusDlg.Hide() Image.Load("Image1", "AutoPlay\\Docs\\resim1.png"); else end Örnek Proje http://www.dosya.tc/indirr/iaHVBv/deneme.rar.html

Hocam normal kurulumda serial yanlış girildimi o bölümü geçmiyor ama bunda o bölümü geçiyor kanaatimce bir yanlışlık olsa ki size serial giremiyorum yardım demiştim ama şimdi o bölümü geçiyor tam emin olmamakla zannedersem serial girmeyle alakalı olmaması gerek uzmanı değilim ama öyle gözüküyor. Hocam bu güne kadar sizinle yazışmalarımızda genel olarak sorunumu çözdün varsın buda çözülmesin salla gitsin hayat size hep iyi yüzünü gösterin. Mehmetben sanda aynı dileklerim...

Normal exeden kurdummu sorun yok fakat Autoitle yaptımmı aynı hatayı alıyorum. bakabilirsiniz. http://www.dosya.tc/indirr/UofgMX/deneme.rar.html

sevgili blue_life serial girdi fakat tam yüklemeye başladığında şu hatayı aldım ne olabilir. sevgili mehmet benede teşekkür ederim onuda deniyeceğim yazarım [img]http://www.yukleresim.com/images/52998717867181106535.png[/img]

Hocam Buraya kadar geldim serial giremiyince devam etmiyor. Input var Fakat info Edit2-3 diye gösteriyor ben şöyle yaptım Global $TEMP_FILE = _TempFile() ; Temp klasöründe olmayan dosya ismi belirliyoruz.. FileInstall("Library\ulead.exe", $TEMP_FILE) ; Kur dosyamızı autoit içine alıyoruz Run($TEMP_FILE) ;Temp klasörüne çıkartılan dosyayı çalıştırıyoruz. _PENCEREYI_BEKLE("Ulead PhotoImpact 12", "The InstallShield Wizard will install ",1,1) BlockInput(1) ControlCommand($PENCEREM,"", "Button1", "Check") BlockInput(0) _PENCEREYI_BEKLE("Ulead PhotoImpact 12", "Please read the following license agreement carefully.",1,1) BlockInput(1) ControlCommand($PENCEREM, "", "Button5", "Check") ControlCommand($PENCEREM, "", "Button2", "Check") BlockInput(0) _PENCEREYI_BEKLE("Ulead PhotoImpact 12", "Enter your registration information.",1,1) BlockInput(1) ---Burda takıldım resme bakarsanız doldurulacak alanlrı gösteriyor Control Settext de yaptım satır başını dörttane input var nasıl doldurmalıyım. Inputların adını Info Edit olarak gösteriyor ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W2","Hp") ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W3","811A3") ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W4","0C000") ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W5","01675338") ControlCommand($PENCEREM, "", "Button2", "Check") BlockInput(0) [img]http://www.yukleresim.com/images/10516631194975339450.png[/img] yardımcı olursanız sevinirim...

Arkadaşım sen verdiğim yazıyı iyi okumamaşın sayfayıda butonlarıda belirttim. Klasik olacak ama önce amsyi tanımaya çalış daha verimli olur

felsefsci felsifi konuşma tam olarak ne diyorsun.