blue_life

As. Bundan sonra Lancelot_Real bazı nedenlerden ötürü nete çok az takılacak. Senin soruna gelirsek winrarın filemenuTools'a eklenebilir diye düşünüyorum. (Istersen bir denemede yapabilirim) Bu arada sen önce filemenu toolsu kurup sonra winrarı kurmayı denedin mi acaba?

@musadilek Bencede bu sorun senin pc ile alakalı. Ben kurduğumda sistemimde bir çok sağ tuş eklentisi vardı. Winrar,7zip vs vs. eklentileri vardı ve herangi bir sorun yoktu. Ama bendeki sorun sağ tık menüsünü aşırı yavaşlatması idi. Bu yüzden kaldırdım. Fast Explorer benim için daha iyi. Ona göre programlarımı ayarladım. Şimdi tıkır tıkır kullanıyorum. Bu arada bu programı kötülemiyorum. Gerçekten işlevsellik yönünden çok iyi. @YAGMURADAM çalışmasında ötürü tekrardan teşekkür ederim. Ama böyle can sıkıcı sorunlar yaşatınca silmek zorunda kaldım. Bu arada bendeki sorun kullandığım Nod32 ile alakalı idi. Yani bir dosyaya sağ tıklatıtığımda FileMenuTools birden fazla bu dosyaya ulaşıp işlem yapmaya çalışıyor ve haliyle Nod32 de aynı dosyayı defalarca taramak zorunda kalıyor. Bu yüzden sağ tuş menüsü takılıyor.

Öncelikle gerçekten benim böyle bir programa ihtiyacım yok. Benim söylemek istediğim şimdi herangi bir arakadaş bunu indirip programı kurcalarsa denetim masası dağınık kalacak. Sonra bunları düzeltmek için uğraşıp duracak. Umarım söylemek istediğimi anlamıştırsın. Senin kodlarla ufak tefek oynadım. Ve kaldırma zımbırtısınıda ekledim. Bazı yerlerde scitedeki replace özelliğini kullandığım için ufak tefek hatalar olabilir...... Neyse kolay gelsin......... Opt("GUIOnEventMode", 1) #include <GuiConstants.au3> #NoTrayIcon Dim $NEWVALUE GuiCreate("Denetim Masası Öğe Tanımlayıcısı", 414, 340,-1, -1 ) GUISetOnEvent(-3, "Kapat") GuiCtrlCreateGroup("Eklenecek Dosya Yolu:", 10, 110, 390, 50) GuiCtrlCreateGroup("Simge:", 10, 170, 390, 70) GuiCtrlCreateGroup("Adı:", 10, 250, 130, 50) GuiCtrlCreateGroup("Açıklama:", 150, 250, 250, 50) $Dosya = GUICtrlCreateCombo("", 20, 130, 280, 20,10487811) $DosyaB = GuiCtrlCreateButton("Gözat...", 310, 130, 80, 20) GUICtrlSetOnEvent(-1,"DosyaE") $check = GUICtrlCreateCheckbox("Programın Orjinal Simgesini Kullan",20,190,200,20) GUICTRLSetOnEvent(-1,"Simge") GUICtrlSetState(-1,$GUI_CHECKED) $Simge = GuiCtrlCreateInput("Görünmesini İstediğiniz Simge", 20, 210, 280, 20) GUICtrlSetState(-1,$GUI_DISABLE) $SimgeB = GuiCtrlCreateButton("Gözat...", 310, 210, 80, 20) GUICtrlSetOnEvent(-1,"SimgeE") GUICtrlSetState(-1,$GUI_DISABLE) $Adi = GuiCtrlCreateInput("Görünecek Ad", 20, 270, 100, 20) $Aciklama = GuiCtrlCreateInput("Azami 63 Harflik Bir Açıklama", 160, 270, 230, 20) $Ekle = GuiCtrlCreateButton("Ekle", 10, 310, 120, 20) GUICtrlSetOnEvent(-1,"Ekle") $Kaldir = GuiCtrlCreateButton("Kaldır", 140, 310, 120, 20) GUICtrlSetOnEvent(-1,"Kaldir") $TNC = GuiCtrlCreateButton("www.TnCTR.com", 270, 310, 120, 20) GUICtrlSetOnEvent(-1,"TNC") GUICtrlCreatePic("tnc.jpg",0,0,414,100) GUICtrlSetOnEvent(-1,"TNC") GUICtrlSetCursor(-1, 0) Startup() GuiSetState(@SW_SHOW) While 1 Sleep(10) WEnd Func Startup() GUICtrlSetData($Dosya, "") For $I = 0 To 99 If StringLen($I) = 1 Then $I = 0 & $I $var = RegRead("HKCR\CLSID\{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}\Shell\Open\command", "") If @error Then If $NEWVALUE = "" Then $NEWVALUE = "{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}" ;~ ExitLoop Else GUICtrlSetData($Dosya, $var,$var) EndIf Next EndFunc Func Kapat() Exit EndFunc Func Simge() If GUICtrlRead($Check) = $GUI_CHECKED Then GUICtrlSetState($Simge,$GUI_DISABLE) GUICtrlSetState($SimgeB,$GUI_DISABLE) Else GUICtrlSetState($Simge,$GUI_ENABLE) GUICtrlSetState($SimgeB,$GUI_ENABLE) EndIf EndFunc Func DosyaE() Startup() $dosyae = FileOpenDialog("Lütfen Bir Uygulama Seçin www.TnCTR.com", @HomeDrive & "\", "Uygulama (*.exe;*.com;*.bat;*.cmd)", 1) If @error Then MsgBox(4096,"","Herhangi Bir Uygulama Seçilmedi") Else Guictrlsetdata($dosya,$dosyae,$dosyae) EndIf Endfunc Func SimgeE() $simgee = FileOpenDialog("Lütfen Bir Simge Seçin www.TnCTR.com", @HomeDrive & "\", "Simge (*.ico)", 1) If @error Then MsgBox(4096,"","Herhangi Bir Simge Seçilmedi") Else Guictrlsetdata($simge,$simgee) EndIf Endfunc Func Kaldir() Local $value = guictrlread($dosya),$value1,$value2 For $I = 0 To 99 If StringLen($I) = 1 Then $I = 0 & $I $value1 = RegRead("HKCR\CLSID\{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}\Shell\Open\command", "") If Not @error And $value <> "" And $value = $value1 Then $value2 = "{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}" RegDelete("HKEY_CLASSES_ROOT\CLSID\" & $value2) RegDelete("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $value2) RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\" & $value2) ;~ MsgBox(4096,"",$value2) EndIf Next Startup() EndFunc Func CheckFile() Local $value = guictrlread($dosya),$value1,$value2 For $I = 0 To 99 If StringLen($I) = 1 Then $I = 0 & $I $value1 = RegRead("HKCR\CLSID\{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}\Shell\Open\command", "") If Not @error And $value = $value1 Then $NEWVALUE = "{D14ED2E1-C75B-443c-BD7C-8181818181" & $I & "}" EndIf Next Return -1 EndFunc Func Ekle() if @error Then Msgbox(16,"Hata Oluştu!","Uygulama Çalışırken Hata Oluştu.Uygulama Kapatılmalı.",10) Exit Else CheckFile() $adioku = guictrlread($Adi) $aciklamaoku = guictrlread($Aciklama) Regwrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE,"","REG_SZ",$adioku) Regwrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE,"","REG_SZ",$adioku) RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE,"InfoTip","REG_SZ",$aciklamaoku) RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE,"InfoTip","REG_SZ",$aciklamaoku) RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE,"{305CA226-D286-468e-B848-2B2E8E697B74} 2","REG_DWORD","2") RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE,"{305CA226-D286-468e-B848-2B2E8E697B74} 2","REG_DWORD","2") RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE & "\Shell\Open","","REG_SZ","") RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE & "\Shell\Open","","REG_SZ","") RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE & "\ShellFolder","Attributes","REG_DWORD","0") RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE & "\ShellFolder","Attributes","REG_DWORD","0") RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\" & $NEWVALUE,"","REG_SZ",$aciklamaoku) $dosyaoku = guictrlread($dosya) RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE & "\Shell\Open\command","","REG_SZ",$dosyaoku) RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE & "\Shell\Open\command","","REG_SZ",$dosyaoku) if GUICtrlRead($Check) = $GUI_UNCHECKED Then $simgeoku = guictrlread($simge) RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE & "\DefaultIcon","","REG_SZ",$simgeoku) RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE & "\DefaultIcon","","REG_SZ",$simgeoku) Else RegWrite("HKEY_LOCAL_MACHINE\Software\Classes\CLSID\" & $NEWVALUE & "\DefaultIcon","","REG_SZ",$dosyaoku) RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $NEWVALUE & "\DefaultIcon","","REG_SZ",$dosyaoku) EndIf $msgbox = MsgBox(4,"Tamamlandı","İşlem Başarıyla Gerçekleştirildi" & @crlf & "Yeni Bir Öğe Eklemek İstiyor Musunuz?") if $msgbox = 7 Then Exit EndIf Startup() Endif EndFunc Func TNC() ShellExecute("http://www.tnctr.com") Endfunc[/CODE]

Yok yok yanlış anladın. Ben ordaki autoitexe sininin kodlarını çıkartabilirmisin demek istedim. Ordaki programın yaptığı şeyi sormadım. . Neyse kolay kolay kodları ele geçiremezsin zaten. Boş ver.... Bu arada @blackman12 istersen kodlarını biraz geliştirelim. Yani ordaki kapat butonu yerine kaldır butonu olabilir. Ne bilim İstersen bir kaç düzenleme yapabilirim.......

Uf ya . Bu gün çok dalgınım. Dur siteye yeni koyduğum programı deneyebilirsin....... http://www.tnctr.com/index.php?showtopic=92999

Tabiki Autoti Scriptlerin hepsi açılabilir ama ufak önlemler alırsan herkes açamaz. Şua aşağıdakini autoit ile yazılmış programı aç bakalım açabiliyormusun?

Hayır şifrelesin diye. Zamanında sk8er_boi sormuştum. Bana bunu önermişti. Ama sonrda çok sorun çıkardığı için vazgeçtim. Autoit v3.3.0.0 scriptleri açılıyor malesef. Bir önlem almazsan hepsi açılıyor..... İstersen bana bir tane ufak bir şey yaz gönder ispatlim......

Selam @blackman12, Gerçekten hoş güzel bir çalışma. Program için teşekkürler. Bu arada merakımı mağzur gör. Logoyu yukarıya koymak varken niye aşağıya koydun? Birde programında nod32 uyarı veriyor malesef. Nedenini ben biliyorum. Nedeni malesef Obfuscator. Bunu kullanınca bazı antivirüsler uyarı veriyor. Benim bu forumda yaptığım Winlock programında olduğu gibi. Ben onda #NoTrayIcon ile ilgili olduğunu tespit etmiştim ve onu kaldırıp yerine Opt("TrayIconHide", 1) kullanmıştım. Bu sorun kısa vade olarak çözülmüştü. Tabi kısa süreli olarak icon görünüyordu. Tabi sonradan Obfuscator den hep vazgeçtim. Çünkü hem bu tip sorunları var hemde Obfuscator kullanmak sağlıklı deyil. Sistem kaynaklarını fazla tüketiyor..... Dur bu konuda ufak bir script hazırlamıştım... Onu yayınlım birazdan...

Bir çok arkadaşın işine yarayacaktır. Güzel çalışma ve sunum için teşekkürler @morning.

@YAGMURADAM çalışmalarında ötürü teşekkür ederim. Lakin FilemenuTools'u kurduğumda heralde kullandığım antivirüsümünde etkisiyle genellikle exe dosyalarına veya kısayollarına tıklayamaz oldum. Yani aşırı yavaşlığa neden oluyor. Gerçi FilemenuTools çok hoşuma gitmişti. Bunun için yapabileceğimiz bir şey varmı acaba? Bu arada Fast Explorer'da herangi bir sorun yok..... Cevap için şimdiden teşekkürler........

Cafelerde modifiyeli xp ler performans açısından bence tercih edilmelidir. Yalnız kendi ihtiycaşlarınıza göre bu modifiyeli xp yi kendiniz yapmalsınız? Başkasının yaptığını kullanmak performans kaybına ve bir çok hataya nadir de olsa neden olabilr. Her zaman olmaz tabi. Eğer kendiniz yaparsanız, aklınızda kuşkuda olmaz. Yani mesela bir modifiyeli xp indirdiniz ve kurdunuz. Ama sonra aklınızda bir kuşku olur. Acaba bunun içinde benim bilgisayarım veya benim için tehlikeli bir yazılım varmı vs. Bir yandanda kafede hiç kullanmayacağınız bileşenleri eğer modifiyeli xp yi kendiniz yaparsanız kaldırabilrisiniz. Ağı kendi ağınıza göre ayarlayabilirsiniz. Ornekleri çoğaltmak mümkün. Tabi bu arada eğer sadece kafenizdeki pc ler için modifiyeli xp yapacaksanız gerkesiz sürücüleri vs eklemeyin. Hatta klasik xp kurulumunu seçin. Bu xp nin çok hızlı yüklenemesini sağlayacaktır. Bu arada tabiki güzel modiyeli süslü xpler indirip elinizin altında bulundurabilirsiniz. Çünkü kafelerde, kafe dışında bir çok kişinin bilgisayarına sistem yükleniyor. Tabi bu durum yüklenecek sistemin özelliklerine göre farklı olacaktır. Mesela adamın birisi size kurmanız için bir pc getirdi. Ama pc çok eski ve xp yi zor kaldırıyor diyelim. Siz buna süslü sistemi kaynağını daha fazla kullanan bir modifiyel xp kurarsanız hiç iyi olmaz. Yani pc ye göre uygun sistem yüklenmeli. Ben bu arada sp3 olayınada hiç ısınamadım. Gerçi denemedim bile. Helen sp2 ve bir kaç güncelleme ile idare ediyorum. Framework, windows installer vs.....

@YAGMURADAM Öncelikle böyle güzel bir program ile beni tanıştırdığın için teşekkür ederim. Ben önceden bu tip işler için Fast Explorer kullanıyordum. Ama artık heralde yavaş yavaş bu programa geçiş yapacağım. Tabi bir ara biraz daha inceledikten sonra... Yapmış olduğun çalışmayı indirdim ve sanalpc de denedim. Bir kaç sorun çıktı. Bunlarıda düzeltirsen daha güzel olur diye düşünüyorum. Birinci sorun x.bat dosyasından kaynaklanıyor. Şöyleki herkesin sisteminde bende olduğu gibi cmdow olmayabilir. Bende bu ilgili dosya olmadığı için kurulumda hata verdi ve kurulum devam etmedi. Bunun yerine çalışmayı winrar ile paketlediğin için winrardaki çıkardıktan sonra çalıştır komutuna x.bat taki komutu direk yazabilirsin. Tabi senin yerinde olsam smart install maker gibi bir install programı kullanırdım. Diğer hata ise kullandığın registry dosyası. Yani FileMenu.REG dosyası. Senin kendi kullanıcı bilgilerininde bu dosyada bulunması nedeniyle bu dosya tam anlamıyla import olmuyor ve kurulumda hata çıkıyor . Bende öyle oldu ve kurulum iptal edildi. Onun yerine şöyle yapabilirsin. Gerekli düzeltmelerini FileMenu Tools içinde yap. Sonra FileMenu Tools taki File --> Ayarları Ver tuşuyla gerekli ayarları bir Reg dosyasına kayıt edip bunu kullan. Hem reg dosyasının boyutu küçük olacak hemde daha sorunsuz olacak. Tabi e diğer registry bilgileri ne olacak dersen bunun için; komutunu kullanmalısın.Böyle ufak sorunlar belirledim. Düzeltirsen daha sağlıklı olur. Bu arada çalışmanda çok fazla autoit.exe si kullanılmış. Bunları yaptığı tüm işi tek autoit.exe si ile yapılabiilr. Böyle olunca yerden büyük tasağruf sağlarsın..... Neyse fazla uzattık. Tekrardan teşekkürler........

Peerfen yorumun için teşekkür ederim. Aslında autoit konusunda bende acemi sayılırım. Hobi olarak ara ara yavaş yavaş geliştirmeye çalışıyorum. Bu arada yukarıda sana verdiğm codlarda fazlalıklar var. Dün apar topar cevap yazdığımdan farketmemişim. Aşağıdaki daha uygun gibi. Kendine göre değiştirisin...... $MainPage = GUICreate("PeerFen Program Kurulumu", 310, 130, -1, -1,0x00C00000) ;~ GUISetBkColor(0x0d8be9) $Label = GUICtrlCreateLabel("Program 22 kuruluyor lütfen bekleyiniz.", 10, 10,280, 35, 0x01) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $progressbar = GUICtrlCreateProgress(10, 50, 280, 25) $Label2 = GUICtrlCreateLabel("", 10, 90,280, 35, 0x01) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) ShellExecuteWait(@ScriptDir & "\22.exe") GUICtrlSetData($progressbar, "50") GUICtrlSetData($Label, "Program 11 kuruluyor lütfen bekleyiniz.") GUICtrlSetData($Label2, "Program 22 kuruldu.") ShellExecuteWait(@ScriptDir & "\11.exe") GUICtrlSetData($Label, "Tüm programlar kuruldu.") GUICtrlSetData($Label2, "Program 11 kuruldu.") GUICtrlSetData($progressbar, "100") Sleep(1000);Son ekran durumunu okumak için gerekli. Kendine göre ayarla. Exit[/CODE] Mornig ben dosya ismini bulmakta şöyle bir kod kullanıyorum. Bana göre en güzel yöntem bu. [CODE]$File = @ScriptDir & "\Bluelife\blue.exe";diyelim $dosya = StringSplit($File, "\") MsgBox(4096, "Dosyam", $dosya[$dosya[0]])[/CODE] Ayrıca illa sondan okutmak için StringRight komutunu kullanabilirsin......

Çok basit bir şekilde yapmak istediğini yapmak istiyorsan bence gui ekranı oluştur. Basit şekilde misal: Global Const $GuiKapat = -3 $MainPage = GUICreate("PeerFen Program Kurulumu", 310, 130, -1, -1,0x00C00000) ;~ GUISetBkColor(0x0d8be9) $Label = GUICtrlCreateLabel("Program 22 kuruluyor lütfen bekleyiniz.", 10, 10,280, 35, 0x01) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $progressbar = GUICtrlCreateProgress(10, 50, 280, 25) $Label2 = GUICtrlCreateLabel("", 10, 90,280, 35, 0x01) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) While 1 ShellExecuteWait(@ScriptDir & "\22.exe") GUICtrlSetData($progressbar, "50") GUICtrlSetData($Label, "Program 11 kuruluyor lütfen bekleyiniz.") GUICtrlSetData($Label2, "Program 22 kuruldu.") ShellExecuteWait(@ScriptDir & "\11.exe") GUICtrlSetData($Label, "Tüm programlar kuruldu.") GUICtrlSetData($Label2, "Program 11 kuruldu.") GUICtrlSetData($progressbar, "100") Sleep(1000);Son ekran durumunu okumak için gerekli. Kendine göre ayarla. Exit WEnd[/CODE]

Bir oyunda ben karaladım. Umarım Beğenirsiniz. Oyunun adı beni yakala. Amaç Beni yakala tuşuna fare ile basmak. Ama hile yok . Yani klevye yasak... İki örnek veriyorum. ilk örnek çok basit bişi. İkincisi birinciye nazaran biraz daha gelişmiş..... Buyrun.... Örnek1: Bu kadar basit yani ;~ Karalayan Blue_Life Global Const $GuiKapat = -3 $MainPage = GUICreate("Beni Yakala - BlueLife", 500, 300, 239, 169) GUISetBkColor(0x0d8be9) $Yakala = GUICtrlCreateButton("Beni Yakala", 0, 0, 75, 25,8192) GUISetState(@SW_SHOW) While 1 $Random1 = Random(1,425,1) $Random2 = Random(1,280,1) GUICtrlSetPos($Yakala, $Random1,$Random2) $msg = GUIGetMsg() If $msg = $GuiKapat Then Exit If $msg = $Yakala Then MsgBox(64,"Tebrikler","Beni yakalamayı başardın!" & @crlf & " Hile yok dimi? :)") Sleep(50);Hızını ayarla WEnd Exit[/CODE] Örnek2: Biraz daha iyi.... Ama biraz edit gerekebilir. [CODE];~ Karalayan Blue_Life Global Const $GuiKapat = -3 Global $BlTitle = "Beni Yakala2 - BlueLife" Global $Random1 = 210,$Random2 = 135 Global $MainPage,$Yakala,$Mousepos,$MainPos $MainPage = GUICreate($BlTitle, 500, 300, 239, 169) GUISetBkColor(0x0d8be9) $Yakala = GUICtrlCreateButton("Beni Yakala", $Random1, $Random2, 75, 25,8192) GUISetState(@SW_SHOW) While 1 $Mousepos = MouseGetPos() $MainPos = WinGetPos($BlTitle) IF $Mousepos[0] < ($MainPos[0] + $MainPos[2]) And $Mousepos[0]+$MainPos[2] > ($MainPos[2]+$MainPos[0]) _ And ($Mousepos[1] < ($MainPos[1] + $MainPos[3]) And $Mousepos[1]+$MainPos[3] > ($MainPos[3]+$MainPos[1])) Then If $Mousepos[0] > ($Random1 + $MainPos[0]) -5 And $Mousepos[0] < ($Random1 + $MainPos[0]) + 80 _ And $Mousepos[1] > ($Random2 + $MainPos[1]) +5 And $Mousepos[1] < ($Random2 + $MainPos[1]) + 60 Then $Random1 = Random(1,425,1) $Random2 = Random(1,280,1) GUICtrlSetPos($Yakala, $Random1,$Random2) EndIf EndIf $msg = GUIGetMsg() If $msg = $GuiKapat Then Exit If $msg = $Yakala Then MsgBox(64,"Tebrikler","Beni yakalamayı başardın!" & @crlf & " Hile yok dimi? :)") WEnd Exit[/CODE] Kendin editleyerek daha güzel bir şey yapabilirsiniz. Mesela buton yerine ilgi çekici bir resim olabilir.

Güzel olmuş eline sağlık. Biraz kısalttım. Umarım kızmazsın....

#include <GUIConstants.au3> $Form1 = GUICreate("Peerfen", 200, 145, 296, 199) GUISetBkColor(0xFF3C22) $Checkbox1 = GUICtrlCreateCheckbox("Hesap Makinesi", 4, 40, 121, 25) $Checkbox2 = GUICtrlCreateCheckbox("Regedit", 4, 60, 121, 25) $Button1 = GUICtrlCreateButton("Tümünü Sec", 4, 4, 75, 17, 0) $Button2 = GUICtrlCreateButton("Calistir", 60,24, 75, 17, 0) $Button3 = GUICtrlCreateButton("Secme", 120,4, 75, 17, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Checkbox1,$GUI_CHECKED) GUICtrlSetState($Checkbox2,$GUI_CHECKED) case $Button2 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Or GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $iMsgBoxAnswer = MsgBox(36,"Ne Yapmak Istiyorsun?","Seçili Programlar Çalışsın mı?") Select Case $iMsgBoxAnswer = 6;Yes If GUICtrlRead($Checkbox1)=1 then Run("calc.exe") If GUICtrlRead($Checkbox2)=1 then Run("regedit.exe") Case $iMsgBoxAnswer = 7;No EndSelect EndIf Case $Button3 GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) EndSwitch WEnd[/CODE] Gördüğün üzere ufak bir ek ile sorun kolaylıkla çözülüyor......

Gördüğün üzere @Peerfen verdiği kodlara sadece msgbox eklenmiştir....... #include <GUIConstants.au3> $Form1 = GUICreate("Peerfen", 200, 145, 296, 199) GUISetBkColor(0xFF3C22) $Checkbox1 = GUICtrlCreateCheckbox("Hesap Makinesi", 4, 40, 121, 25) $Checkbox2 = GUICtrlCreateCheckbox("Regedit", 4, 60, 121, 25) $Button1 = GUICtrlCreateButton("Tümünü Sec", 4, 4, 75, 17, 0) $Button2 = GUICtrlCreateButton("Calistir", 60,24, 75, 17, 0) $Button3 = GUICtrlCreateButton("Secme", 120,4, 75, 17, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Checkbox1,$GUI_CHECKED) GUICtrlSetState($Checkbox2,$GUI_CHECKED) case $Button2 $iMsgBoxAnswer = MsgBox(36,"Ne Yapmak Istiyorsun?","Seçili Programlar Çalışsın mı?") Select Case $iMsgBoxAnswer = 6;Yes If GUICtrlRead($Checkbox1)=1 then Run("calc.exe") If GUICtrlRead($Checkbox2)=1 then Run("regedit.exe") Case $iMsgBoxAnswer = 7;No EndSelect Case $Button3 GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) EndSwitch WEnd[/CODE]

Büyük ihtimal hazırladığın scripth ile alakalı bir sorun var. Yoksa scripth görevini yaptıktan sonra sen exit yazmasan bile normalde kapanır. Scripthi burda paylaşsaydın işte hatayı orda yapmışsın diyebilirdik. Genelde Wait içeren komutlarda hata yapılıyor. Mesela ben bir script hazırladam diyelim. Scripthimde WinWaitActive("XXXX") şeklinde bir komut var. XXX başlığı aktif olana kadar scripth beklemede kalacaktır. Lakin ben şöyle yapsaydım; WinWaitActive("XXXX","",5) XXX başlığ 5 saniye içinde aktif olmazsa bir sonraki komuta geçecektir. Yani lafın kısası Wait ile ilgili bir sorun var gibi. Bu arada scriptin nerde takıldığını bulmak için bol bol MsgBox kullan....

Hazırladığımız Scprthin birden fazla çalışmasını engellemek. Global Const $GUI_EVENT_CLOSE = -3 Pr_Kontrol() ; Bu kısım ana işleviniz için --------------------------------------------------- $Form1 = GUICreate("Script Kontrol....", 275, 120) $Label1 = GUICtrlCreateLabel("Selam Millet Ben Blue_Life", 50, 10, 170, 76,0x01) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $Button1 = GUICtrlCreateButton("Button1", 10, 80, 257, 33, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() if $nMsg = $Button1 Or $nMsg = $GUI_EVENT_CLOSE then Exit WEnd ;Ana işle ------------------------------------------------------------------------ Func Pr_Kontrol() Local $I, $PR_Found = False If @Compiled Then Local $PROC_LIST = ProcessList(@ScriptName) If IsArray($PROC_LIST) Then For $I = 1 To $PROC_LIST[0][0]; Çalışan programlarda sırasıyla bak.. If StringUpper($PROC_LIST[$I][0]) = StringUpper(@ScriptName) And $PROC_LIST[$I][1] <> @AutoItPID Then; $PR_Found = True; Program Bulundu ExitLoop EndIf Next If $PR_Found Then; Program Listesinde Program Bulunuduysa aşağıdaki komutları uygula....... ;~ MsgBox(0x40040, "Uyarı", @ScriptName & " Zaten Çalışıyor...") Exit EndIf EndIf EndIf EndFunc[/CODE] Gördüğünüz üzere eğer bizim scripth program listesinde varsa yeni açılan scprithi kapatmak üzere ayarladım. Siz şayet başka bir şeyde yaptırabilrisiniz. Mesela eskisini çalışmasına son verebilir yeni tıklanan scripthin çalışmasını sağlayabilirsiniz. Bunun için en basit olarak exit kaldırılıp ProcessClose(@ScriptName) şeklinde de yapılabilir...

Harfi bilinmeyen CD/DVD romdaki bir programı çalıştırmak....... $CD_DRV = DriveGetDrive("CDROM");Mevcut Cd/Dvd Sürücülerini arıyor... If NOT @error Then For $i = 1 to $CD_DRV[0] $DRV_ST = DriveStatus($CD_DRV[$i] & "\Programs\");Mevcut sürücülerdeki Programs klasörünün durumuna bakıyor... If $DRV_ST = "READY" Then $BlProg = $CD_DRV[$i] & "\Programs\Program.exe" If FileExists($BlProg) Then;Programs\Programs.exe nin olup olmadığını kontrol ediyor.. ;~ MsgBox(64, "Bilgi", $BlProg & " uygulaması bulundu") Run($BlProg); Programı çalıştır. Tabi istediğiniz gibi paremetre felan kullanabilirsiniz. EndIf EndIf Next EndIf[/CODE] Gördüğünüz üzere PC deki tüm CD/DVD romları araştırıp sonra Rootta Programs klasörünü kontrol ediyor. Eğer klasörü varsa son olarak çalıştırmak istediğimiz programı kontrol edip çalıştırıyo..... Eğer siz tüm sürücülerde bu dosyayı aratıp çalıştırmak iserseniz DriveGetDrive("ALL") şeklinde değiştirmelisiniz. Ayrıntılı bilgi için yardım dosyasındaki DriveGetDrive kısmını gözatınız......

Ne yapmak istediğini fazla anlayamadım kusura bakma. Sayfa kontrolünde InetGet,InetGetSize gibi komutlarıda kullanabilirsin. Ayrıca ilk verdiğim örnekte explorer açılmadanda scprit içinde siteyi açabilir ve kontrol edebilrisin. Bunuda GUICtrlCreateObj ile yapabilrisin. Yardım dosyasında gerekli açıklamalar mevcut....... FileInstall ile klasörleri scprite entegre edemezsin. FileInstallde flagların görevide kısaca dosya varsa üzerine yazımı yazmımı. Umarım anlamıştırsın. Tabi farklı şekillerde senin istediğinide yapabiliriz. Mesela en basit olarak FileInstall ile şöyle yapılır. Bir örnek verim. Dim $DataF = @ProgramFilesDir & "\Data" Foldercopy() exit func Foldercopy() if Not FileExists($DataF) then DirCreate($DataF) FileInstall("Data\Dosya1.mp3", $DataF & "\Dosya1.mp3") FileInstall("Data\Dosya2.mp3", $DataF & "\Dosya2.mp3") FileInstall("Data\Dosya3.mp3", $DataF & "\Dosya3.mp3") FileInstall("Data\Dosya4.mp3", $DataF & "\Dosya4.mp3") EndFunc[/CODE] Gördüğün üzere scprith dosyamın yanında Data klasörü ve içinde 4 tane dosya var. Ben bu dosyaları tek tek FileInstall ile belirtmek zorundayım. Bu scprithi hazırladıkatan sonra çalıştırısam @ProgramFilesDir & "\Data klasründe bu dosyalar oluşacaktır. Umarım anlamıştırsın. Örneği iyi incelersen istediğini rahatlıkla yapabilrisin....... Yaptığın scprithi foruma ekle nerde hata olduğunu söyleyelim... AU3Recorder de Fare kullanmamaya özen göster. Son soruna gelirsek ise normal kuru FileInstall ile scripthin içine entegre edip Temp klasörüne çıkartıp çalıştırabilrsin. Işlem bittikten sonra ise temp klasörünü scprith ile temizleyebilrisin. Veya en basit olarak Winrar ilede Temp klasörüne çıkartıp istediğini yapabilirsin.......

Giriş ekrarnını kolay bir şekilde Koda ile yapabiilrsin...... Site olayına gelirsek ise basit bir şekilde ShellExecute("http://www.google.com.tr") For $i = 0 To 10 Sleep(250) $baslik = WinGetTitle("Google", "") if not $baslik = 0 then ExitLoop Next $AktiveYap = WinWaitActive($baslik,"",1) ; 1 Saniye aktive olmazsa boş ver If $AktiveYap = 1 Then MsgBox(64,"Tebrikler",$baslik &amp; "http://www.google.com.tr sitesine giriş yapıldı",5) ; Devam et Else MsgBox(16,"Hata","http://www.google.com.tr sitesine giriş yapılamadı!",5) EndIf ;~ Ve son tabi yapabilirsin. Scptithte gördüğün üzere ilk önce http://www.google.com.tr sitesini varsayılan browser ile çalıştırıp sitenin başlık yazısına ulaşmaya çalışıyoruz. Başlığa ulaşmadan zaman biterse olumsuz, başlığa ulaşır ise olumlu mesaj. Umarım anlamıştırsın...... Tabi daha farklık şekillerdede yapılabilir......