razkul Posted February 27, 2010 Share Posted February 27, 2010 Arkadaşlar bir progress bar scriptini sizinle de paylaşayım . Caps aşağıdadır.Daha fazla geliştirecek arkadaş varsa paylaşırsa sevinirim.Zamanlamayı kendinize göre değiştirebilirsiniz Scirpt: ProgressOn("RazkuL", "Program Yuklenirken Bekleyiniz.", "0 Saniye") For $i = 10 to 100 step 10 sleep(1000) ProgressSet( $i, $i & "Saniye") Next ProgressSet(100 , "bitti", "Tamamlandi") sleep(500) ProgressOff() Buda Örnek Bir programla Yapılmış hali FileInstall("C:\Users\KainaN\Desktop\sp.exe",@TempDir & "\$$.tmp") FileMove ( @TempDir & "\$$.tmp",@TempDir & "\sp.exe" ,1 ) ProgressOn("RazkuL", "Program Yuklenirken Bekleyiniz.", "0 Saniye") RunWait(@TempDir & "\sp.exe") For $i = 10 to 200 step 10 sleep(1000) ProgressSet( $i, $i & "Saniye") Next ProgressSet(200 , "bitti", "Tamamlandi") sleep(500) FileDelete(@TempDir & "\sp.exe") ProgressOff() 10 olan bölümler ilerleme cubugunda kaç defa ileri gidecegini belirtir. 200 yazan yer ise saniyeyi belirtir. örneğin yukarıdaki örnekte 200 yerine 300 yaparsanız 0-300 saniye ye kadar sürer. Link to comment Share on other sites More sharing options...
gangster94 Posted February 27, 2010 Share Posted February 27, 2010 güzelde arkadaşım programın exesini nerden gösteriyoruz.... program yükleniyor diyor sadece aslında yüklenmiyor öyle bekletiyor.... Link to comment Share on other sites More sharing options...
razkul Posted February 27, 2010 Author Share Posted February 27, 2010 güzelde arkadaşım programın exesini nerden gösteriyoruz.... program yükleniyor diyor sadece aslında yüklenmiyor öyle bekletiyor.... Arkadaşım exe dosyasını daha onceki ileri duzey autoıt orneklerınde oldugu gıbı ekleyeceksın. Bu bır örnek FileInstall("C:\Users\KainaN\Desktop\sp.exe",@TempDir & "\$$.tmp") FileMove ( @TempDir & "\$$.tmp",@TempDir & "\sp.exe" ,1 ) ProgressOn("RazkuL", "Program Yuklenirken Bekleyiniz.", "0 Saniye") RunWait(@TempDir & "\sp.exe") For $i = 10 to 200 step 10 sleep(1000) ProgressSet( $i, $i & "Saniye") Next ProgressSet(200 , "bitti", "Tamamlandi") sleep(500) FileDelete(@TempDir & "\sp.exe") ProgressOff() Link to comment Share on other sites More sharing options...
gangster94 Posted February 27, 2010 Share Posted February 27, 2010 açıklayacı anlat böyle sağol teşekkürler saniyeyi nerden değiştiriyoruz Link to comment Share on other sites More sharing options...
blackman12 Posted February 27, 2010 Share Posted February 27, 2010 arkadaşım bunun programın yüklenmesiyle herhangi bir alakası yokki!? Bu progress bittiğinde program hala yükleniyor olabilir.Bunu belirlemek maalesef senin elinde değil. Link to comment Share on other sites More sharing options...
Mükemmel Posted February 27, 2010 Share Posted February 27, 2010 Evet. Ben parametresiz yükledim. Program yüklendikten sonra başlıyor. Link to comment Share on other sites More sharing options...
gangster94 Posted February 27, 2010 Share Posted February 27, 2010 blakman12 sen bilirsin autoıt i şu kodu düzenleyip versene çok beğendim scripti Link to comment Share on other sites More sharing options...
razkul Posted February 28, 2010 Author Share Posted February 28, 2010 blakman12 sen bilirsin autoıt i şu kodu düzenleyip versene çok beğendim scripti kodu vermemin sebebide bu bu kodu yuklenme ile ilgili nasıl birleştirilebilir Link to comment Share on other sites More sharing options...
sayanora07 Posted February 28, 2010 Share Posted February 28, 2010 gangster94 paylaşımların ve anlatımlar için teşekkürler eline sağlık benim bi konuda senden yardımcı olmanı istiyorum winrar ile silent kurulum güzel oluyor ama programların serial vs nasıl bu kurulum dosyalarına ekleyebiliriz yardımcı olursan sevinirim Birde şöyşe bi konum olacak yerimi bilmiyorumda bu programları cd ye işlemek için bize önereceğin anlatımlı programın varmı örnek vermek gerekirse dergilerin içinde tanıtım cd leri gibi ama o kadar profesyonel değil basit kolay bi programa ihtiyacım var şimdiden teşekkürler... http://www.tnctr.com/style_emoticons/default/d6zwp.jpg.png Link to comment Share on other sites More sharing options...
djonur007 Posted March 1, 2010 Share Posted March 1, 2010 programların seriallerini katılımsız olarak girdirmek forumda anlatıldı. sabit başlıklara bak. programları CD'ye işlemek içinde WPI öneririm. forumdada anlatımı mevcut. eğer daha basit birşeyler istersen MARSINSTALLER derim. Link to comment Share on other sites More sharing options...
gangster94 Posted March 1, 2010 Share Posted March 1, 2010 gangster94 paylaşımların ve anlatımlar için teşekkürler eline sağlık benim bi konuda senden yardımcı olmanı istiyorum winrar ile silent kurulum güzel oluyor ama programların serial vs nasıl bu kurulum dosyalarına ekleyebiliriz yardımcı olursan sevinirim Birde şöyşe bi konum olacak yerimi bilmiyorumda bu programları cd ye işlemek için bize önereceğin anlatımlı programın varmı örnek vermek gerekirse dergilerin içinde tanıtım cd leri gibi ama o kadar profesyonel değil basit kolay bi programa ihtiyacım var şimdiden teşekkürler... http://www.tnctr.com/style_emoticons/default/d6zwp.jpg.png tamamdır onun içinde anlatım eklerim bugünlerde Link to comment Share on other sites More sharing options...
razkul Posted March 23, 2010 Author Share Posted March 23, 2010 Arkadaşlar lutfen mesajlarınızı ilgili konularda yazınız. Bu konunun acılmasının amacı AutoIT yuklenırken bilgi verme scriptlerinin geliştirilmesi ile ilgili fikirlerin sunulması. Yukardaki progress bar ı nasıl kurulumla ilişkilendirebiliriz bunun cevabı için konu acıldı Link to comment Share on other sites More sharing options...
figde Posted July 14, 2010 Share Posted July 14, 2010 Buyrun arkadaşlar Arkadaşın Verdiği Progresin Entegre Hali Alttaki Çalışmada Var... #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <Process.au3> #Region ### START Koda GUI section ### Form= $Form2_1_3 = GUICreate("FasterXp By Oss...", 289, 600, 200, 50) $Button3 = GUICtrlCreateButton("Boşver", 6, 570, 275, 25, $WS_GROUP) $Button1 = GUICtrlCreateButton("Başlat", 6, 540, 83, 25, $WS_GROUP) $Tab1 = GUICtrlCreateTab(0, 0, 287, 530) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("ORTAK_AYAR") $Group3 = GUICtrlCreateGroup("Antivirus'ü Yapılandır.", 16, 35, 241, 187) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2 = GUICtrlCreateRadio("Nod32 Smart Securty 'Yi Kur.(Yüksek)", 24, 76, 225, 17) $Radio3 = GUICtrlCreateRadio("Avira İnternet Securty'i Kur.", 24, 120, 201, 17) $Radio7 = GUICtrlCreateRadio("Anitivirus Kurma.....", 24, 141, 177, 17) $Checkbox5 = GUICtrlCreateCheckbox("DeepFreeze6.30[Bilmiyorsanız Kurmayın]", 24, 166, 217, 17) $Label9 = GUICtrlCreateLabel("<=DF'için Sürücü", 152, 195, 85, 18) $Checkbox9 = GUICtrlCreateCheckbox("<E>", 109, 195, 41, 17) $Checkbox14 = GUICtrlCreateCheckbox("<D>", 65, 195, 41, 17) $Checkbox15 = GUICtrlCreateCheckbox("<C>", 24, 195, 41, 17) $Checkbox16 = GUICtrlCreateCheckbox("Nod32 crack'inin kısayolunu oluştur.", 24, 98, 209, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Radio8 = GUICtrlCreateRadio("Nod32 Antivirus'u Kur.(Normal)", 24, 55, 177, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("SAGTUS MENU", 16, 232, 241, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox3 = GUICtrlCreateCheckbox("Gizli Dosyaları Göster/Gizle", 24, 256, 217, 17) $Checkbox8 = GUICtrlCreateCheckbox("Uzantıyı Göster Gizle", 24, 280, 169, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("GONDER MENU", 16, 312, 241, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox24 = GUICtrlCreateCheckbox("Clipboard (as name)", 24, 336, 177, 17) $Checkbox25 = GUICtrlCreateCheckbox("CommandPrompt", 24, 360, 193, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Uygulama", 16, 392, 241, 129) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox7 = GUICtrlCreateCheckbox("Extra Programlar", 24, 416, 186, 17) $Checkbox19 = GUICtrlCreateCheckbox("ProceXp Gelişmiş Görev Yönetici", 24, 440, 193, 17) $Checkbox26 = GUICtrlCreateCheckbox("Resource tools Exescope", 24, 464, 161, 17) $Checkbox27 = GUICtrlCreateCheckbox("Dosya Değiştirici(shell32)", 24, 488, 193, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet2 = GUICtrlCreateTabItem("XP_ayari") $Group2 = GUICtrlCreateGroup("Yüklemek istediğiniz Bileşenleri seçin.", 16, 32, 256, 481) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox17 = GUICtrlCreateCheckbox("FasterXp Küçük Oyunlar", 24, 128, 185, 17) $Checkbox18 = GUICtrlCreateCheckbox("FasterXp Ekstra Müzik", 24, 80, 129, 17) $Checkbox20 = GUICtrlCreateCheckbox("FasterXp RocketDock", 24, 56, 217, 17) $Checkbox21 = GUICtrlCreateCheckbox("FasterXp UserPass2", 24, 152, 177, 17) $Checkbox1 = GUICtrlCreateCheckbox("Otomatik Güncelleştirmeleri Aç/Kapa", 24, 174, 209, 17) $Checkbox2 = GUICtrlCreateCheckbox("Güvenlik Duvarı Bildirimlerini Aç/Kapa", 24, 198, 201, 17) $Checkbox6 = GUICtrlCreateCheckbox("İnternet Explorer 8'i kur.", 24, 222, 209, 17) $SADECE_XP_ICINDIR = GUICtrlCreateLabel("SADECE_XP_ICINDIR", 20, 245, 218, 28) GUICtrlSetFont(-1, 16, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("Xp_Reg_Ayari") $Group1 = GUICtrlCreateGroup("Yüklemek istediğiniz ayarları seçin.", 16, 32, 256, 481) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox10 = GUICtrlCreateCheckbox("CD/DVD Otomatik Çaştır'ı Kapat/Aç.", 24, 54, 201, 17) $Checkbox11 = GUICtrlCreateCheckbox("USB'den Otomatik Çaştır'ı Kapat/Aç.", 24, 78, 193, 17) $Checkbox12 = GUICtrlCreateCheckbox("Ekran Koruyucuyu Kapat/Aç.", 24, 102, 201, 17) $Checkbox13 = GUICtrlCreateCheckbox("Açılışı Optimize Et.(Açılış Hızlansın)", 24, 126, 193, 17) $Checkbox22 = GUICtrlCreateCheckbox("Sistem Boşta İken DiskDefrag Devre Dışı.", 24, 158, 217, 17) $Label8 = GUICtrlCreateLabel("Sistem Dosyalarını Hızlı Değiştirme yapar.", 24, 245, 213, 18) $Label15 = GUICtrlCreateLabel("Bilgisayarın Performansını Arttırır.", 24, 189, 164, 18) $Checkbox4 = GUICtrlCreateCheckbox("Windows Dosya Korumasını Kapat.", 24, 216, 193, 17) $Label10 = GUICtrlCreateLabel("SADECE_XP_ICINDIR", 26, 277, 218, 28) GUICtrlSetFont(-1, 16, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet4 = GUICtrlCreateTabItem("Hakkında.") $Label1 = GUICtrlCreateLabel("By Hacker Oss..Bu Windows Sizin daha iyi", 0, 32, 282, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label2 = GUICtrlCreateLabel("Performans Alabilmeniz için üretilmiştir.", 0, 56, 275, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label3 = GUICtrlCreateLabel("Daha Kapsamlı Bilgi için Aşağıdaki siteden", 0, 80, 291, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label4 = GUICtrlCreateLabel("Film,MüzikFull oyun ve Daha Fazlasına", 0, 128, 257, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label5 = GUICtrlCreateLabel("Ulaşabilirsiniz....", 0, 152, 113, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label6 = GUICtrlCreateLabel("http://www.bilimadami.tr.cx", 36, 192, 157, 15) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label7 = GUICtrlCreateLabel("Destek Alabilir ve Sitemizden", 0, 104, 198, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Checkbox23 = GUICtrlCreateCheckbox("Bu Siteyi Aç...", 64, 238, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("\/=\/=\/=\/=\/=\/=\/=\/=\/=\/=\/", 48, 173, 130, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label14 = GUICtrlCreateLabel("\/=\/=\/=\/=\/=\/=\/=\/=\/=\/=\/", 48, 210, 130, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button2 = GUICtrlCreateButton("XP_Varsayılan", 101, 540, 83, 25, $WS_GROUP) $Button4 = GUICtrlCreateButton("Hepsi Boş", 200, 540, 83, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 ProgressOn("UltimateXp", "Program Yuklenirken Bekleyiniz.", "0 <==Yüzde") For $i = 0 to 2 step 2 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Radio3) = $GUI_CHECKED then RunWait(@ScriptDir & "\avira.exe");avira If GUICtrlRead($Radio8) = $GUI_CHECKED then _RunDos("start /wait msiexec.exe /i eav_nt32_enu.msi /qb");nod32 If GUICtrlRead($Radio2) = $GUI_CHECKED then _RunDos("start /wait msiexec.exe /i ess_nt32_enu.msi /qb");nod32ess For $i = 2 to 5 step 3 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox16) = $GUI_CHECKED then _RunDos("copy esetkfdr.exe %userprofile%\Desktop") For $i = 5 to 15 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox16) = $GUI_CHECKED then _RunDos("copy esetkfdr.exe %userprofile%\Desktop") For $i = 15 to 18 step 3 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox3) = $GUI_CHECKED then RunWait(@ScriptDir & "\GizliDosyaGosterGizle.exe");Gizli For $i = 18 to 22 step 4 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox8) = $GUI_CHECKED then RunWait(@ScriptDir & "\UzantiGosterGizlee.exe");uzantı For $i = 22 to 25 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox24) = $GUI_CHECKED then RunWait(@ScriptDir & "\clip.cmd");clip For $i = 25 to 30 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox25) = $GUI_CHECKED then RunWait(@ScriptDir & "\command.cmd");command For $i = 30 to 35 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox20) = $GUI_CHECKED then RunWait(@ScriptDir & "\RocketDock.exe");rocketdock For $i = 35 to 45 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox19) = $GUI_CHECKED then RunWait(@ScriptDir & "\proce.cmd");proce For $i = 45 to 50 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox27) = $GUI_CHECKED then RunWait(@ScriptDir & "\replacer.exe");replace For $i = 50 to 60 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox26) = $GUI_CHECKED then RunWait(@ScriptDir & "\ResourceTools.exe");resource For $i = 60 to 65 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox17) = $GUI_CHECKED then RunWait(@ScriptDir & "\OYUNLAR.EXE");oyunlar For $i = 65 to 78 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox7) = $GUI_CHECKED then RunWait(@ScriptDir & "\collage.exe");programlar For $i = 78 to 80 step 2 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox6) = $GUI_CHECKED then RunWait(@ScriptDir & "\ie8.cmd");ie8 For $i = 80 to 90 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox18) = $GUI_CHECKED then RunWait(@ScriptDir & "\MUSIC.EXE");muzikler For $i = 90 to 92 step 2 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox5) = $GUI_CHECKED then RunWait(@ScriptDir & "\deepfreeze6.exe") For $i = 92 to 95 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox1) = $GUI_CHECKED then RunWait("regedit /s autokbfind.reg");otomatik güncelleme aç If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED then RunWait("regedit /s autokbnotfind.reg");otomatik güncelleme kapa If GUICtrlRead($Checkbox2) = $GUI_CHECKED then RunWait("regedit /s firewallopen.reg");güvenlik duvarı aç If GUICtrlRead($Checkbox2) = $GUI_UNCHECKED then RunWait("regedit /s firewallclose.reg");güvenlik duvar kapa If GUICtrlRead($Checkbox4) = $GUI_CHECKED then RunWait("regedit /s wfp+.reg");wfp If GUICtrlRead($Checkbox4) = $GUI_UNCHECKED then RunWait("regedit /s wfp-.reg");wfp If GUICtrlRead($Checkbox10) = $GUI_CHECKED then RunWait("regedit /s cddvdnoauto.reg");cd/dvd auto If GUICtrlRead($Checkbox10) = $GUI_UNCHECKED then RunWait("regedit /s cddvdauto.reg");not If GUICtrlRead($Checkbox11) = $GUI_CHECKED then RunWait("regedit /s cikarilabilirnoauto.reg");usb auto If GUICtrlRead($Checkbox11) = $GUI_UNCHECKED then RunWait("regedit /s cikarilabilirauto.reg");not If GUICtrlRead($Checkbox12) = $GUI_CHECKED then RunWait("regedit /s ekrankornoactive.reg");ekrankor If GUICtrlRead($Checkbox12) = $GUI_UNCHECKED then RunWait("regedit /s ekrankoractive.reg") If GUICtrlRead($Checkbox13) = $GUI_CHECKED then RunWait("regedit /s bootoptimize.reg");bootoptimize If GUICtrlRead($Checkbox21) = $GUI_CHECKED then RunWait("regedit /s userpass2+.reg");userpass2 If GUICtrlRead($Checkbox22) = $GUI_CHECKED then RunWait("regedit /s idlediskprocess.reg");diskdefrag For $i = 95 to 10 step 5 ProgressSet( $i, $i & "<==Yüzde") Next ProgressSet(100 , "Yuppiiii Bitti =D", "By Hacker Oss..") sleep(3000) ProgressOff() RunWait(@ScriptDir & "\goodbye.cmd") If GUICtrlRead($Checkbox23) = $GUI_CHECKED then Run('bilimadami.url');openURL Exit Case $Button2 GUICtrlSetState($Radio2,$GUI_UNCHECKED) GUICtrlSetState($Radio8,$GUI_CHECKED) GUICtrlSetState($Radio3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox8,$GUI_UNCHECKED) GUICtrlSetState($Checkbox19,$GUI_UNCHECKED) GUICtrlSetState($Checkbox4,$GUI_UNCHECKED) GUICtrlSetState($Checkbox5,$GUI_UNCHECKED) GUICtrlSetState($Checkbox6,$GUI_UNCHECKED) GUICtrlSetState($Checkbox7,$GUI_CHECKED) GUICtrlSetState($Checkbox10,$GUI_UNCHECKED) GUICtrlSetState($Checkbox11,$GUI_UNCHECKED) GUICtrlSetState($Checkbox12,$GUI_UNCHECKED) GUICtrlSetState($Checkbox13,$GUI_CHECKED) GUICtrlSetState($Checkbox16,$GUI_CHECKED) GUICtrlSetState($Checkbox17,$GUI_CHECKED) GUICtrlSetState($Checkbox18,$GUI_CHECKED) GUICtrlSetState($Checkbox20,$GUI_CHECKED) GUICtrlSetState($Checkbox21,$GUI_CHECKED) GUICtrlSetState($Checkbox22,$GUI_CHECKED) GUICtrlSetState($Checkbox23,$GUI_CHECKED) Case $Button4 GUICtrlSetState($Radio2,$GUI_UNCHECKED) GUICtrlSetState($Radio8,$GUI_UNCHECKED) GUICtrlSetState($Radio3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) GUICtrlSetState($Checkbox4,$GUI_UNCHECKED) GUICtrlSetState($Checkbox5,$GUI_UNCHECKED) GUICtrlSetState($Checkbox6,$GUI_UNCHECKED) GUICtrlSetState($Checkbox7,$GUI_UNCHECKED) GUICtrlSetState($Checkbox10,$GUI_UNCHECKED) GUICtrlSetState($Checkbox11,$GUI_UNCHECKED) GUICtrlSetState($Checkbox12,$GUI_UNCHECKED) GUICtrlSetState($Checkbox13,$GUI_UNCHECKED) GUICtrlSetState($Checkbox16,$GUI_UNCHECKED) GUICtrlSetState($Checkbox17,$GUI_UNCHECKED) GUICtrlSetState($Checkbox18,$GUI_UNCHECKED) GUICtrlSetState($Checkbox20,$GUI_UNCHECKED) GUICtrlSetState($Checkbox21,$GUI_UNCHECKED) GUICtrlSetState($Checkbox22,$GUI_UNCHECKED) GUICtrlSetState($Checkbox23,$GUI_UNCHECKED) GUICtrlSetState($Checkbox3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox8,$GUI_UNCHECKED) GUICtrlSetState($Checkbox24,$GUI_UNCHECKED) GUICtrlSetState($Checkbox25,$GUI_UNCHECKED) GUICtrlSetState($Checkbox19,$GUI_UNCHECKED) GUICtrlSetState($Checkbox26,$GUI_UNCHECKED) GUICtrlSetState($Checkbox27,$GUI_UNCHECKED) Case $Button3 Exit Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2010 Share Posted July 15, 2010 Hadin kodları biraz geliştirelim... Incelersiniz... Tabi kurulacak programın ne zaman işini bitireceğini bilemeyeceğimiz için progress bar biraz kafasına göre hareket edecektir Neyse kolay gelsin... #NoTrayIcon #include <File.au3> ;Aslında ben iclude fazla kullanmıyorum ama kodlar uzamasın istedim ProgressOn("RazkuL", "Program Yuklenirken Bekleyiniz.", "0 Saniye") Global $EXE_FILE = _TempFile() FileInstall("program.exe",$EXE_FILE) Global $PR_PID = Run($EXE_FILE,@WorkingDir,@SW_HIDE) Global $START_TIME[2] = [TimerInit(),0] Global $SET_PROGRES While ProcessExists($PR_PID) If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 ProgressSet( $SET_PROGRES, $START_TIME[1] & " Saniye") If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(50) WEnd ProgressSet(100 , "bitti", "Tamamlandi") FileDelete($EXE_FILE) Link to comment Share on other sites More sharing options...
isaavcı Posted August 16, 2010 Share Posted August 16, 2010 hocam iki tane exe için şu kodu yazdım olmadı #NoTrayIcon #include <File.au3> ;Aslında ben iclude fazla kullanmıyorum ama kodlar uzamasın istedim ProgressOn("RazkuL", "Program Yuklenirken Bekleyiniz.", "0 Saniye") Global $EXE_FILE = _TempFile() FileInstall("a.exe",$EXE_FILE) FileInstall("m.exe",$EXE_FILE) Global $PR_PID = Run($EXE_FILE,@WorkingDir,@SW_HIDE) Global $START_TIME[2] = [TimerInit(),0] Global $SET_PROGRES While ProcessExists($PR_PID) If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 ProgressSet( $SET_PROGRES, $START_TIME[1] & " Saniye") If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(50) WEnd ProgressSet(100 , "bitti", "Tamamlandi") FileDelete($EXE_FILE) Link to comment Share on other sites More sharing options...
blue_life Posted August 16, 2010 Share Posted August 16, 2010 @isaavcı Yukarıdaki örnek bir program içindi. Birden fazla program için ya kodları kopyalayıp lattan devam edeceksin yada scripti biraz düzenleyeceksin. Misal; #include <File.au3> ;Aslında ben iclude fazla kullanmıyorum ama kodlar uzamasın istedim Global $EXE_FILE = _TempFile() FileInstall("a.exe",$EXE_FILE) _BL_PROGRESS($EXE_FILE,"Deneme","a.exe yüklenirken lütfen bekleyiniz...") FileDelete($EXE_FILE) FileInstall("m.exe",$EXE_FILE,1) _BL_PROGRESS($EXE_FILE,"Deneme 1-2-3","m.exe yüklenirken lütfen bekleyiniz...") FileDelete($EXE_FILE) Func _BL_PROGRESS($GET_EXE_FILE,$GET_TITLE = "BlueLife",$GET_MSG = "Program Yuklenirken Bekleyiniz.") ProgressOn($GET_TITLE, $GET_MSG, "0 Saniye") Local $PR_PID = Run($GET_EXE_FILE,@WorkingDir) Local $START_TIME[2] = [TimerInit(),0] Local $SET_PROGRES While ProcessExists($PR_PID) If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 ProgressSet( $SET_PROGRES, $START_TIME[1] & " Saniye") If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(50) WEnd ProgressSet(100 , "bitti", "Tamamlandi") EndFunc Mesajları vs. düzenlesin. Burda dikkat etmen gerek en önemli şey, Fileinstall satrılarında kullandığın dosyaların yerlerinde olması! Kısaca burdaki script çalışırken, tempte olmyan bir dosya ismi belirleyip, fileinstall ile belirlenen programı (compile edildiğinde programı içine alır) tempteki o belirlenen dosyaya çıkartır. Sonra işte progres ekranı oluşturup,programı çalıştırır. Program kapanana kadar kafasına göre bilgi verir Vs. vs. Kolay gelsin... Link to comment Share on other sites More sharing options...
isaavcı Posted August 16, 2010 Share Posted August 16, 2010 hocam teşekkür ederim 3 tane exe denedim çalıştı bu döngü herhalde sayı çoğaldıkca böyle devam ediyor... fakat boyut büyük olduğu zaman ilerleme tutmaması lazım doğrumudur. Link to comment Share on other sites More sharing options...
blue_life Posted August 17, 2010 Share Posted August 17, 2010 Burdaki bilgi verme, kurulumu yapılcak uygulama dosyasının ne kadar uzun çalıştığıyla alakalıdır. Yani diyelim bir programın var ve çalıştırınca 2 saniye kurulum gerçekleşiyorsa bu bilgi ekranı yukarıdaki örnekle 2 saniye ekranda kalacaktır. Link to comment Share on other sites More sharing options...
isaavcı Posted August 19, 2010 Share Posted August 19, 2010 teşekkür ederim öz verinizden dolayı yalnız birde şu slash diskten hem mini xp hemde windows kurulumunu halletsek daha güzel olacak Link to comment Share on other sites More sharing options...
Xpista7 Posted September 2, 2010 Share Posted September 2, 2010 Peki progressin yanına nasıl resim koyabiliriz? Link to comment Share on other sites More sharing options...
blackman12 Posted September 2, 2010 Share Posted September 2, 2010 AutoIT ten bi' haber görünüyosun XPista7 Link to comment Share on other sites More sharing options...
Xpista7 Posted September 2, 2010 Share Posted September 2, 2010 AutoIT ten bi' haber görünüyosun XPista7 Yok Hocam Bi Oyunu Katılımsız Yapacamda (3.5 - 4 Gb Boyutunda) Onun İçin Soruyorum... Link to comment Share on other sites More sharing options...
Dj Demir Posted September 2, 2010 Share Posted September 2, 2010 Benim bildiğim bu yukarıdaki pencereye resim eklenmiyor Ancak bir GUI oluşturursun oraya resim eklersin Altta da progress bar felan filan Ama progress barı işleme göre ayarlamak oldukça zor yani onu da söylim Link to comment Share on other sites More sharing options...
Xpista7 Posted September 2, 2010 Share Posted September 2, 2010 Ancak bir GUI oluşturursun oraya resim eklersinAltta da progress bar felan filan Peki onu neyle yapabilirim? Link to comment Share on other sites More sharing options...
Dj Demir Posted September 2, 2010 Share Posted September 2, 2010 AutoIT ile Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.