FİRE BİRD Posted February 2, 2010 Share Posted February 2, 2010 İlerleme çubuklu katılımsız kurulum yardımcısı Bildiğimiz İnstall Tips uygulamasının benzeridir Msi uzantılı dosyaları destekler. Örnek kur.ini dosyası: [COMMANDS] 0=msiexec.exe /i "AcroRead.msi" /qb 1=regedit.exe /s firebird.reg[/CODE] İndir [CODE]http://www.4shared.com/file/213598292/a37047b3/Kur.html[/CODE] Kur.exe Kodları [CODE]#NoTrayIcon #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=23.ico #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** Run("yukleniyor.exe") $ini = "Kur.ini" $h = @DesktopHeight/2 + 26 $var = IniReadSection("Kur.ini", "COMMANDS") If @error Then Exit Else For $i = 1 To $var[0][0] $tip = IniRead ( $ini , "Kur", $var[$i][0], "" ) RunWait ( $var[$i][1] , @ScriptDir , @SW_MINIMIZE , @COMSPEC ) Next EndIf ProcessClose("yukleniyor.exe")[/CODE] Link to comment Share on other sites More sharing options...
djonur007 Posted February 2, 2010 Share Posted February 2, 2010 eline sağlık güzel olmuş. bir isteğim var. kur.exe nin kaynak kodlarını paylaşırmısın? Link to comment Share on other sites More sharing options...
HaYTo Posted February 2, 2010 Share Posted February 2, 2010 Çok güzel olmuş Umarım Katılımsız ( Unattended ) ile uğraşan arkadaşlar Bunuda göz ardı etmezler hoş olay sağolasın Link to comment Share on other sites More sharing options...
Mytolocia Posted February 2, 2010 Share Posted February 2, 2010 Evet kur.exe nin kodlarını paylasabilir misin ? Eline sağlık tekrar. Link to comment Share on other sites More sharing options...
Editor mephistooo2 Posted February 2, 2010 Editor Share Posted February 2, 2010 eğer mahsuru yoksa kur.exe nin kodlarını bekliyoruz.... güzel olmuş, elinize sağlık... Link to comment Share on other sites More sharing options...
gangster94 Posted February 2, 2010 Share Posted February 2, 2010 autoıt forumundamı buldun acaba kodunu veya autoıt forumundaki konu linkini verirmisin Link to comment Share on other sites More sharing options...
FİRE BİRD Posted February 2, 2010 Author Share Posted February 2, 2010 autoıt forumundamı buldun acaba kodunu veya autoıt forumundaki konu linkini verirmisin Hayır, meşhur install tips uygulamasının tarafımdan editlenmiş halidir. Artık msi uzantısını destekliyor... Link to comment Share on other sites More sharing options...
blue_life Posted February 2, 2010 Share Posted February 2, 2010 @FİRE BİRD Gerçekten güzel olmuş... Paylaşım için teşekkürler.. Bu arada tabi hep birlikte geliştirip çok daha görsel bir şey yapabiliriz.. Mesela exra yukleniyor.exe programına vs. gerek yok... Senin scriptinle fazla oynamadan progress ekledim.. Kodlar; #NoTrayIcon #region #AutoIt3Wrapper_icon=23.ico #endregion Global $INI = "Kur.ini" Global $H = @DesktopHeight / 2 + 26 Global $VAR = IniReadSection("Kur.ini", "COMMANDS") _BlueProgress() If @error Then Exit Else For $I = 1 To $VAR[0][0] _Run_Wait($VAR[$I][1], @ScriptDir, @SW_MINIMIZE) Next EndIf Func _Run_Wait($Run_File,$WorkingDir = @WorkingDir,$Show_Flag = @SW_SHOW,$OPT_FLAG = "") Local $RUN_WAIT = Run($VAR[$I][1], @ScriptDir, @SW_MINIMIZE, @ComSpec) Do GUICtrlSetData($PopInfoGui[1], $GetProgres ) $GetProgres = GUICtrlRead($PopInfoGui[1]) + 5 If $GetProgres = 5 Then GUICtrlSetColor($PopInfoGui[1], $RENK[Random(0,4,1)]) If $GetProgres >= 100 Then $GetProgres = 0 Sleep(150) Until Not ProcessExists($RUN_WAIT) EndFunc Func _BlueProgress() Global $GetProgres,$RUN_WAIT Global $RENK[5] = [0xFF0000,0x0000FF,0x00501f,0x172983] Local $TrayWnd = WinGetPos(WinGetHandle("[CLASS:Shell_TrayWnd]")) Global $PopInfoGui[2] = [GUICreate("BlueLife Progress", 155, 15, @DesktopWidth - (160), @DesktopHeight - ($TrayWnd[3] + 20),0x80000000, 0x00000080 + 0x00000008)] $PopInfoGui[1] = GUICtrlCreateProgress(0,0, 155, 15) GUICtrlSetColor($PopInfoGui[1], $RENK[Random(0,4,1)]) GUISetState(@SW_SHOW,$PopInfoGui[0]) EndFunc Link to comment Share on other sites More sharing options...
FİRE BİRD Posted February 2, 2010 Author Share Posted February 2, 2010 @FİRE BİRD Gerçekten güzel olmuş... Paylaşım için teşekkürler.. Bu arada tabi hep birlikte geliştirip çok daha görsel bir şey yapabiliriz.. Mesela extra yukleniyor.exe programına vs. gerek yok... Senin scriptinle fazla oynamadan progress ekledim.. Kodlar; Harika olmuş , kurcaladıkça daha iyi şeyler çıkacaktır. Link to comment Share on other sites More sharing options...
blue_life Posted February 2, 2010 Share Posted February 2, 2010 Şimdi tekrar göz geçirdim de hata yapmışım .. Düzeltme... #NoTrayIcon #Region #AutoIt3Wrapper_Icon=23.ico #EndRegion Global $INI = "Kur.ini" Global $H = @DesktopHeight / 2 + 26 Global $VAR = IniReadSection("Kur.ini", "COMMANDS") _BlueProgress() If @error Then Exit Else For $I = 1 To $VAR[0][0] _Run_Wait($VAR[$I][1], @ScriptDir, @SW_MINIMIZE) Next EndIf Func _Run_Wait($Run_File, $WorkingDir = @WorkingDir, $Show_Flag = @SW_SHOW, $OPT_FLAG = "") Local $RUN_WAIT = Run($Run_File, $WorkingDir, $Show_Flag, $OPT_FLAG) Do GUICtrlSetData($PopInfoGui[1], $GetProgres) $GetProgres = GUICtrlRead($PopInfoGui[1]) + 5 If $GetProgres = 5 Then GUICtrlSetColor($PopInfoGui[1], $RENK[Random(0, 4, 1)]) If $GetProgres >= 100 Then $GetProgres = 0 Sleep(150) Until Not ProcessExists($RUN_WAIT) EndFunc ;==>_Run_Wait Func _BlueProgress() Global $GetProgres, $RUN_WAIT Global $RENK[5] = [0xFF0000, 0x0000FF, 0x00501f, 0x172983] Local $TrayWnd = WinGetPos(WinGetHandle("[CLASS:Shell_TrayWnd]")) Global $PopInfoGui[2] = [GUICreate("BlueLife Progress", 155, 15, @DesktopWidth - (160), @DesktopHeight - ($TrayWnd[3] + 20), 0x80000000, 0x00000080 + 0x00000008)] $PopInfoGui[1] = GUICtrlCreateProgress(0, 0, 155, 15) GUICtrlSetColor($PopInfoGui[1], $RENK[Random(0, 4, 1)]) GUISetState(@SW_SHOW, $PopInfoGui[0]) EndFunc ;==>_BlueProgress Kolay gelsin... Link to comment Share on other sites More sharing options...
Mytolocia Posted February 2, 2010 Share Posted February 2, 2010 Ya blue_Life olmaz ki . geliyorsun gidiyorsun agzımızı acık bırakacak sekilde kodlar veriyosun . Sana hayranım bu konuda. Link to comment Share on other sites More sharing options...
Mükemmel Posted February 2, 2010 Share Posted February 2, 2010 Hakikatten biz daha alışmadan sen yenisi yapıyorsun ve herkese yararlı birisisin, emeğine sağlık. Program güzel, kodlar sağlam. Hatta bir program bile yaptım. Sorunsuz çalışıyor. Hatta linki bile vereyim (Opera'da denemek istedim...) Please register to see this content. Teşekkür! FİRE BİRD blue_life Link to comment Share on other sites More sharing options...
AL[e]N Posted February 2, 2010 Share Posted February 2, 2010 cok guzel olmus installtips yetersizdi ne kadar kaldıgı gormuyorduk harika oldubu ozellikle uzun suren katımsız programlarda (ofis2007 gibi.) tekrardan 2nizede tşk ederim Link to comment Share on other sites More sharing options...
Mükemmel Posted February 2, 2010 Share Posted February 2, 2010 cok guzel olmus installtips yetersizdi ne kadar kaldıgı gormuyorduk harika oldubu ozellikle uzun suren katımsız programlarda (ofis2007 gibi.) tekrardan 2nizede tşk ederim Arkadaşım bu ne kadar kaldığını göstermiyor ki; sadece sağ alt köşede sürekli olarak çubuk doluyor. Link to comment Share on other sites More sharing options...
AL[e]N Posted February 2, 2010 Share Posted February 2, 2010 himm.. yazılanlardan onu anladım pardon.. ozaman boyle birşey yapmak mümkünmü acaba ? diyelim ofis 2007 kuruluyor onunla beraber aynı anda ilerleyebilirmi ? ne kadar ilerledigini görmemiz açısından Link to comment Share on other sites More sharing options...
Mükemmel Posted February 2, 2010 Share Posted February 2, 2010 Yapan olabilir; ama bu kodlarla değil. Olmaz yani Link to comment Share on other sites More sharing options...
djonur007 Posted February 2, 2010 Share Posted February 2, 2010 @Mükemmel arkadaşımız haklı bu kodlarla senin istediğin olmaz @AL[e]N hem ayrıca burdaki çubukta gif resmi ilerleme falan yok adam yükleniyor.exe nin içine kod olarak gif i koymuş ilerleme çubuklu diyor. neyse fazla laf yapmayalım. belkide elinden bu kadar geliyordu arkadaşın. @AL[e]N senin istediğin ancak progress ile olabilir diye biliyorum. aslında progress li olsa daha güzel dururdu. ben biraz kafa yorayım belki ortaya güzel şeyler çıkar Link to comment Share on other sites More sharing options...
Mükemmel Posted February 2, 2010 Share Posted February 2, 2010 @djonur007 eminim güzel bir progress yaparsın. Link to comment Share on other sites More sharing options...
blue_life Posted February 3, 2010 Share Posted February 3, 2010 Burdaki progres, programın kurulumunun devam ettiğini gösteren, ufak görsel bir çalışma. (Kurulumun ne kadar kaldığını göstermiyor) Tabiki kurulumun ne kadar kaldığını progress ile gösterebiliriz.... Ufak bir örnek ile açıklamam gerekirse, burdaki uygulama dosyamıza A.EXE diyelim. Ve A.EXE nin çalıştırdığı uygulamaya B.EXE diyelim. A.EXE; B.EXE nin ne yaptığını bilmediğinden kurulumun ne kadar kaldığını belirlemesi, imkansız gibi bir şey. En baştan kurulacak programa göre au3 yazılarak yapılabilir. Tabi, wpideki gibi bir progress rahatlıkla yapılabilir... Yani 4 adet programımız var. Birinci program kurulunca progres %25 olur. İkinci kurulunca %50 olur... vs vs gibi... Konya gelirsek, bence faydalı bir konu; Uygun bir zamanda hep birlikte güzel bir çalışma yapabiliriz. Tabi katkıda bulunmak için; öneriler bile yeterde artar... Mesela yapılacak çalışmada ini dosyasına girilen değerler ile çeşitli konumlara kısayollar oluşturabilmek, Istenilen bir popup resmini kullanabilmek, vs vs. gibi farklı öneriler, çok güzel bir çalışmanın çıkmasına aracı olacaktır... Link to comment Share on other sites More sharing options...
djonur007 Posted February 3, 2010 Share Posted February 3, 2010 evet aslında ben böyle bişi düşünmüştüm. hem katılımsız yapıyor hemde ekrana mesaj veriyor + winrar sağ tuş eklentileride gözükmüyor, olacaktı ama olmadı blue_life abicim hazır autoit ten konu açılmışken bişi sorabilir miyim? bir tane gui yaptık. bu gui'deki sistem durumuna küçült, kapat, tam ekran yap butonlarını nasıl kaldırırız? Link to comment Share on other sites More sharing options...
blue_life Posted February 3, 2010 Share Posted February 3, 2010 @djonur007 Kısaca;style ,exStyle kullanarak yapabilrisin... Kodları incele hemen anlarsın... Örnek1 $Form1 = GUICreate("Form1", 633, 450, -1, -1,0x00C00000, 0x00000080 + 0x00000008) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd[/CODE] Örnek2 [CODE]$Form1 = GUICreate("Form1", 633, 450, -1, -1,0x80000000, 0x00000080 + 0x00000008) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd[/CODE] Link to comment Share on other sites More sharing options...
djonur007 Posted February 3, 2010 Share Posted February 3, 2010 çok çok çok teşekkürler blue_life. eline sağlık. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.