blackman12 Posted March 1, 2010 Share Posted March 1, 2010 if FileExists(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}") then _sifrecoz() EndIf if not FileExists(@scriptdir & "\dvd") then DirCreate(@scriptdir & "\dvd") EndIf $mesaj = MsgBox(4,"Klasör Şifreleme 1.0","Klasoru Sifre Ile Acilacak Sekilde Gizlemek Istiyormusunuz ?") if $mesaj = 6 Then _sifrele() Else Exit EndIf func _sifrele() $sifrebelirle = InputBox("Klasör Şifreleme 1.0","Klasörünüz için bir şifre giriniz:","","*") if @error Then Exit Else $dirmove = DirMove(@scriptdir & "\dvd",@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",0) $setfile = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","+HS",1) if $setfile = 1 and $dirmove = 1 Then MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifreleme başarıyla tamamlandı.") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon","REG_SZ",$sifrebelirle) Else MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.") Exit EndIf EndIf Exit EndFunc func _sifrecoz() $sifresor = InputBox("Klasör Şifreleme 1.0","Gizlenen Klasor Icin Sifreyi Giriniz:","","") if @error Then Exit $sifregetir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon") if $sifregetir = $sifresor Then $setfile2 = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","-HS",1) $dirmove2 = DirMove(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",@scriptdir & "\dvd",0) if $setfile2 = 1 and $dirmove2 = 1 Then MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifresi başarıyla kaldırıldı.") Else MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.") EndIf Else MsgBox(0,"Klasör Şifreleme 1.0","Yanlış bir şifre girdiniz!") EndIf Exit EndFunc[/CODE] Tabi çok daha geliştirilmesi gereken bir kod ama ben sadece bat dosyasını autoite çevirdim.Üstüne birde şifreyi kendinde belirleme özelliğini ekledim o kadar. Quote Link to comment Share on other sites More sharing options...
neccooy Posted March 1, 2010 Share Posted March 1, 2010 Çok teşekkürler blackman12, işimi gördü kullanıyorum. Becerebilirsem geliştirmeye çalışırım. Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 2, 2010 Share Posted March 2, 2010 (edited) Please register to see this content. ben ccleaner programını otomatik hale getirmek istiyorum gerekli kodları yaptım ama sorun bi noktaya çözülmüyor. ilk olarak tarama tuşuna bastırıyorum daha sonra tarama bitince, taramayı iptal et kısmına tıklaması lazım ama bu işlemi tarama bitince yapması lazım..acaba nasıl bekletebiliriz.cünkü bu süre degisen bi süre.mesela bazen 5-10 vb oluyor.acaba o tuş aktif olunca tıklatıcak bi kod varmı ben bilmiyorum yani hem temizlik hemde kayıt defterini temizleticek kod yapmak amacım run(@ProgramFilesDir & "\CCleaner\CCleaner.exe") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button1") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button2") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button1") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button4") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button2") WinWait("Piriform CCleaner") WinWaitActive("Piriform CCleaner") ControlClick("Piriform CCleaner","","Button3") Sleep(5000) ControlClick("Piriform CCleaner","","Button3") ControlClick("Piriform CCleaner","","Button3") ControlClick("Piriform CCleaner","","Button3") Edited March 2, 2010 by x_files_x Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 5, 2010 Share Posted March 5, 2010 Tşkler herkes soruma güzel cevaplar yazmıs...ne diyim ki Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 5, 2010 Share Posted March 5, 2010 Senin ne yapmak istediğini tam olarak anlamış değilim. Program yüklenirken mi, programı yükledikten sonra mı bu işlemin gerçekleşmesini istiyorsun? Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 5, 2010 Share Posted March 5, 2010 @x_files_x CC ile otomatik temizlik yaptırmak için /Auto parametresini kullanabilirsin. Diğer parametreler ve ayrıntılı bilgi için; http://docs.piriform.com/ccleaner/advanced-usage/command-line-parameters[/CODE] Kolay gelsin...... Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 6, 2010 Share Posted March 6, 2010 (edited) Cvplarınız icin tsk ederim..evet yapabildim.auotitle olmasada ccleanerin kendi komutuyla yaptım. Edited March 6, 2010 by x_files_x Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted March 7, 2010 Share Posted March 7, 2010 autoit te resim veya gif oynatırken ekranın istediğin noktasında çıkmasını nasıl ayarlayabilirim Quote Link to comment Share on other sites More sharing options...
blackman12 Posted March 7, 2010 Share Posted March 7, 2010 GUICtrlCreatePic ( filename, left, top [, width [, height [, style [, exStyle]]]] ) $x = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3") $y = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3") GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", $x, $y, 200, 50) tabi bunları biraz daha geliştirmen lazım örneğin $x = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3") if not @error then $y = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3") if not @error then GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", $x, $y, 200, 50) endif endif gibi.Ayrıca normal input kullanırsan sadece sayı girilmesini de exstyle kısmına $EX_NUMBER yazarak sağlayabilirsin. Quote Link to comment Share on other sites More sharing options...
noneik Posted March 7, 2010 Share Posted March 7, 2010 arkadaslar aranizda bu guzel bilgileri paylasanlardan biri online mi? autoit'i simdilik ogrenecek zamanim yok da deepfreeze'in yeni versiyonunu katilimsiz yaptim (programin kendi parametreleri ile) ama seriali girmek icin parametre koymamis adamlar. Ben de bu seriali baska yoldan girmek istiyorum setup sirasinda.. online olan varsa biraz yardiminizi rica ediyorum Quote Link to comment Share on other sites More sharing options...
blackman12 Posted March 8, 2010 Share Posted March 8, 2010 Onlineız online olmasınada sitede benzeri anlatımlar var sabit başlıklardan autoit ile ilgili olana gir görüceksin kaç tane konu var. Quote Link to comment Share on other sites More sharing options...
noneik Posted March 8, 2010 Share Posted March 8, 2010 Onlineız online olmasınada sitede benzeri anlatımlar var sabit başlıklardan autoit ile ilgili olana gir görüceksin kaç tane konu var. ben autoit meselesini kesinlikle ogrenecegim ve de sizin paylasimlariniz sayesinde olacak bu ama gercekten su an ayiracak vaktim yok. Sorumlulugum fazla. Kendi isini kendin gor demissiniz resmen bu isi siz yalayip yutmussunuz sikintili birsey olmamasi lazim sizin icin Sessiz kurulum yaparsam Deep Freeze kurulduktan sonra pc aciliyor ama 30 gunluk deneme surumu oluyor. Ctrl+Shift+F6 ile paneli acip ilgili kisma keyi girdirmem gerekiyor. Sizce bu hic bilmeyen biri icin kolay mi? Eger yardim alamayacaksam simdilik makro kaydedip cozmeyi dusunuyorum tesekkurler. Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 8, 2010 Share Posted March 8, 2010 Konu anlatımlarını dikkate alarak Autoit' in içinde bulunan Windows Info ile istediklerini kolayca gerçekleştirebilirsin. Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 9, 2010 Share Posted March 9, 2010 @noneik Senin mesajını görünce aşağıdaki konuda bulunan üçün videoyu çektim. Senin için gerekli bilgiyi orda bulabilirsin... http://www.tnctr.com/index.php?showtopic=130213[/CODE] Kolay gelsin.... Quote Link to comment Share on other sites More sharing options...
noneik Posted March 9, 2010 Share Posted March 9, 2010 (edited) @noneik Senin mesajını görünce aşağıdaki konuda bulunan üçün videoyu çektim. Senin için gerekli bilgiyi orda bulabilirsin... http://www.tnctr.com/index.php?showtopic=130213[/CODE] Kolay gelsin.... kardesim sen bir tanesin ilk yardimin da degil. Isteklerimizi cevapsiz birakmiyorsun cok sagol. Arkadaslar hazirci izlenimi gostermis olabilirim ama ben internet kafe kuruyorum ve ogrenciyim. Evimde de su an bilgisayar yok yani calisma ortamim yok. Ama daha once de yazdigim gibi bu isi kesinlikle ogrenecegim ve sizin paylastiklarinizla olacak bu. Yani paylasimlariniz icin tesekkur ederim. "Benim icin yapabilir misiniz" olayini hazira konma olarak dusunmeyin lutfen @duzenleme: imla hatasi... Edited March 9, 2010 by noneik Quote Link to comment Share on other sites More sharing options...
önercuu Posted March 9, 2010 Share Posted March 9, 2010 (edited) Arkadaşlar şu codlara bakarmısınız nerde yanlışlık var .. Run('klasörkilidi.exe') WinSetTrans("Klasör Kilidi 1.8 Kurulumu","&Next >",1) WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") Send("{ENTER}") WinWait("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat") Send("{ENTER}") WinWait("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ") Send("{ENTER}") WinWait("Klasör Kilidi 1.8 Kurulumu","Select additional sh") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Select additional sh") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Select additional sh") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Select additional sh") Send("{ENTER}") WinWait("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t") Send("{ENTER}") WinWait("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl") If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl") WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl") Send("{TAB}{ENTER}{TAB}{ENTER}{TAB}{ENTER}{TAB}{ENTER}") Edited March 13, 2010 by blackman12 Quote Link to comment Share on other sites More sharing options...
önercuu Posted March 9, 2010 Share Posted March 9, 2010 (edited) yanlışlkla derkende kurulum ekranını gizliyemiyorum parametresiz ayrıca program. başka yanlışlıları varsa yinede belirtirseniz sevinirim şimdiden tşkrler... Edited March 9, 2010 by önercuu Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 10, 2010 Share Posted March 10, 2010 (edited) @önercuu WinWait komutunun ardından WinMove kullanabilirsin. (Tabi WinSetTrans da kullanılabilir, lakin winmove daha iyidir. Kasa eseri fareyle pencereye tıklamanı önler) Misel senin ilk winwait satırındaki bilgiler; WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")[/CODE] Bu satırın bir altına ; [CODE]WinMove("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö", @DesktopWidth + 10, @DesktopHeight + 10)[/CODE] Koyabilirsin. Başlık ve text bilgilerini WinWait satırından alacaksın. [CODE]WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") WinMove("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö", @DesktopWidth + 10, @DesktopHeight + 10)[/CODE] Bu arada Control komutları kullanmak daha avantajlıdır... Neyse kolay gelsin..... http://www.tnctr.com/index.php?showtopic=130213 Edited March 10, 2010 by blue_life Quote Link to comment Share on other sites More sharing options...
gangster94 Posted March 10, 2010 Share Posted March 10, 2010 arkadaşlar acaba şöyle birşey yapabilirmiyiz @necooy arkadaşımın office programında gördüm resimli bilgi scripti değil onu biliyorum saatin yanındaki office 2007 kurulama başlandı bileşenleriniz falan yazıyor öyle birşey yapabilirmiyiz bizde kodu varmı acaba bunun yazıların yanındaki küçük mavi iconuda editleme şansımız olabilirmi ?? cevabınızı sabırsızlıkla bekliyorum Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 10, 2010 Share Posted March 10, 2010 @gangster94 Çok basit bir gui ile yapılabilir. Lakin ordaki progress konusu sorun çıkarabilir. Ilgili diğer programı iyi inceleyip, progresi ayarlamak lazım. Yukarıdaki gui Autoit ile yapılmamış olabilri bu arada! Quote Link to comment Share on other sites More sharing options...
neccooy Posted March 10, 2010 Share Posted March 10, 2010 arkadaşlar acaba şöyle birşey yapabilirmiyiz @necooy arkadaşımın office programında gördüm resimli bilgi scripti değil onu biliyorum saatin yanındaki office 2007 kurulama başlandı bileşenleriniz falan yazıyor öyle birşey yapabilirmiyiz bizde kodu varmı acaba bunun yazıların yanındaki küçük mavi iconuda editleme şansımız olabilirmi ?? cevabınızı sabırsızlıkla bekliyorum Autoİt kodu: Opt("TrayMenuMode",1) TrayTip("Office 2007 SP2 Kurulumu Başladı...", "Bileşenleriniz: Word, Excel, PowerPoint, Outlook", 10, 1) Sondaki "1" flagları işaret ediyor, flagları windowstan alıyor. sanırım flag değiştirmeyi blackman12 yapabilir >@blackman12: Kafamı buluyon len benle flags "1=Info icon, 2=Warning icon, 3=Error icon" Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 10, 2010 Share Posted March 10, 2010 Ben guiye gittim ya. Sen Tray mesajını mı soruyordun? Quote Link to comment Share on other sites More sharing options...
neccooy Posted March 10, 2010 Share Posted March 10, 2010 Ben guiye gittim ya. Sen Tray mesajını mı soruyordun? Çok derin düşünmene gerek yok Dosyaların çıkarıldığı ekranı 7-ziple yaptım bu arada. Quote Link to comment Share on other sites More sharing options...
shmd Posted March 12, 2010 Share Posted March 12, 2010 (edited) arkadaşlar şimdi ben @blackman12'nin bana verdiği kodla şunları yapmak istiyorum. autorun.inf dosyasının bulunduğu sürücüyü bulacak.eğer sürücüyü bulmuşsa sürücüyü kople windowsa kopyalayacak. bulamazsa Scripti yeniden başlatacak.böylelikle flash takılıncaya kadar script yeniden başlıyacak.ben bu şekilde yaptım fakat hata aldım sürekli.hatam nereden kaynaklanıyor. bu kodları yapmak istediğim gibi nasıl düzenlerim. bir sorum daha olacak mesala ben scripti başlattım.fonksiyonların devreye girmesi için 10 dakika beklemesini nasıl ayarlayabilirim.yani scriptimi çalıştıracağım.istediğim zaman geçene kadar hiç işlev yapmıyacak. sorularımla ilgilenen arkadaşlara şimdiden teşekkür ediyorum. saygılarımla. Dim $alfabe[25] = ["C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"] $cdrom = "" for $a in $alfabe if FileExists($a & ":\autorun.inf") = 1 Then $cdrom = $a & ":\" EndIf Next if $cdrom <> "" Then DirCopy ($cdrom , "C:\windows" , 1) EndIf If @error or $cdrom = "" Then Func _restart() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc EndIf Edited March 13, 2010 by blackman12 Quote Link to comment Share on other sites More sharing options...
gangster94 Posted March 12, 2010 Share Posted March 12, 2010 Çok derin düşünmene gerek yok Dosyaların çıkarıldığı ekranı 7-ziple yaptım bu arada. @necooy arkadaşım o 7z ile çıkarılan kısımında autoıt ile ilgisi varmı acaba bide şu verdiğim autoıt kodu bileşenleriniz falan onu ekledim öylesine bir basim dedim hemen gözüktü gitti kuruluma dahil etmek gerekiyor herhalde kurulum bitince oda gidecek ınstalltips'de kaçıncı bölüme eklememiz gerekiyor autoıt exe dosyasını yani compile edilmiş dosyayı 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.