İlerleme çubuklu Katılımsız Kurulum Yardımcısı

FİRE BİRD · 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]

djonur007 · February 2, 2010

eline sağlık güzel olmuş. bir isteğim var. kur.exe nin kaynak kodlarını paylaşırmısın?

HaYTo · 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

Mytolocia · February 2, 2010

Evet kur.exe nin kodlarını paylasabilir misin ? Eline sağlık tekrar.

mephistooo2 · February 2, 2010

eğer mahsuru yoksa kur.exe nin kodlarını bekliyoruz....

güzel olmuş, elinize sağlık...

gangster94 · February 2, 2010

autoıt forumundamı buldun acaba kodunu veya autoıt forumundaki konu linkini verirmisin

FİRE BİRD · 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...

blue_life · 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 &gt;= 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

FİRE BİRD · 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.

blue_life · 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 &gt;= 100 Then $GetProgres = 0
		Sleep(150)
	Until Not ProcessExists($RUN_WAIT)
EndFunc   ;==&gt;_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   ;==&gt;_BlueProgress

Kolay gelsin...

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

Mükemmel · 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

AL[e]N · 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

Mükemmel · 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.

AL[e]N · 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

Mükemmel · February 2, 2010

Yapan olabilir; ama bu kodlarla değil. Olmaz yani

djonur007 · 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

Mükemmel · February 2, 2010

@djonur007 eminim güzel bir progress yaparsın.

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

djonur007 · 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?

blue_life · 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]

djonur007 · February 3, 2010

çok çok çok teşekkürler blue_life. eline sağlık.

Sign In

İlerleme çubuklu Katılımsız Kurulum Yardımcısı

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Archived

Recently Browsing 0 members