Autoit Ile Progress Bar Scripti Bilgi Verme Script

razkul · 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")

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")

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.

gangster94 · February 27, 2010

güzelde arkadaşım programın exesini nerden gösteriyoruz.... program yükleniyor diyor sadece aslında yüklenmiyor öyle bekletiyor....

razkul · 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")

sleep(500)

FileDelete(@TempDir & "\sp.exe")

ProgressOff()

gangster94 · February 27, 2010

açıklayacı anlat böyle sağol teşekkürler saniyeyi nerden değiştiriyoruz

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

Mükemmel · February 27, 2010

Evet. Ben parametresiz yükledim. Program yüklendikten sonra başlıyor.

gangster94 · February 27, 2010

blakman12 sen bilirsin autoıt i şu kodu düzenleyip versene çok beğendim scripti

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

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

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

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

razkul · 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ı

figde · July 14, 2010

Buyrun arkadaşlar Arkadaşın Verdiği Progresin Entegre Hali Alttaki Çalışmada Var...

#include &lt;ButtonConstants.au3&gt;
#include &lt;GUIConstantsEx.au3&gt;
#include &lt;ProgressConstants.au3&gt;
#include &lt;StaticConstants.au3&gt;
#include &lt;TabConstants.au3&gt;
#include &lt;WindowsConstants.au3&gt;
#include &lt;Process.au3&gt;
#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("&lt;=DF'için Sürücü", 152, 195, 85, 18)
$Checkbox9 = GUICtrlCreateCheckbox("&lt;E&gt;", 109, 195, 41, 17)
$Checkbox14 = GUICtrlCreateCheckbox("&lt;D&gt;", 65, 195, 41, 17)
$Checkbox15 = GUICtrlCreateCheckbox("&lt;C&gt;", 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 &lt;==Yüzde")
For $i = 0 to 2 step 2
progressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Radio3) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\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 &amp; "&lt;==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 &amp; "&lt;==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 &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox3) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\GizliDosyaGosterGizle.exe");Gizli
For $i = 18 to 22 step 4
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox8) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\UzantiGosterGizlee.exe");uzantı
For $i = 22 to 25 step 3
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox24) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\clip.cmd");clip
For $i = 25 to 30 step 5
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox25) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\command.cmd");command
For $i = 30 to 35 step 5
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox20) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\RocketDock.exe");rocketdock
For $i = 35 to 45 step 10
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox19) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\proce.cmd");proce
For $i = 45 to 50 step 5
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox27) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\replacer.exe");replace
For $i = 50 to 60 step 10
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox26) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\ResourceTools.exe");resource
For $i = 60 to 65 step 5
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox17) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\OYUNLAR.EXE");oyunlar
For $i = 65 to 78 step 3
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox7) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\collage.exe");programlar
For $i = 78 to 80 step 2
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox6) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\ie8.cmd");ie8
For $i = 80 to 90 step 10
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox18) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\MUSIC.EXE");muzikler
For $i = 90 to 92 step 2
ProgressSet( $i, $i &amp; "&lt;==Yüzde")
Next
If GUICtrlRead($Checkbox5) = $GUI_CHECKED then RunWait(@ScriptDir &amp; "\deepfreeze6.exe")
For $i = 92 to 95 step 3
ProgressSet( $i, $i &amp; "&lt;==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 &amp; "&lt;==Yüzde")
Next
ProgressSet(100 , "Yuppiiii Bitti =D", "By Hacker Oss..")
sleep(3000)
ProgressOff()


RunWait(@ScriptDir &amp; "\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

blue_life · 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 &lt;File.au3&gt; ;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])) &gt; $START_TIME[1] Then
		$START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000)
		$SET_PROGRES += 1
		ProgressSet( $SET_PROGRES, $START_TIME[1] &amp; " Saniye")
		If $SET_PROGRES &gt;= 100 Then $SET_PROGRES = 1
	EndIf
	Sleep(50)
WEnd
ProgressSet(100 , "bitti", "Tamamlandi")
FileDelete($EXE_FILE)

isaavcı · 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)

blue_life · 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 &lt;File.au3&gt; ;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])) &gt; $START_TIME[1] Then
			$START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000)
			$SET_PROGRES += 1
			ProgressSet( $SET_PROGRES, $START_TIME[1] &amp; " Saniye")
			If $SET_PROGRES &gt;= 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...

isaavcı · 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.

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

isaavcı · 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

Xpista7 · September 2, 2010

Peki progressin yanına nasıl resim koyabiliriz?

blackman12 · September 2, 2010

AutoIT ten bi' haber görünüyosun XPista7

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

Dj Demir · 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

Xpista7 · September 2, 2010

Ancak bir GUI oluşturursun oraya resim eklersin
Altta da progress bar felan filan

Peki onu neyle yapabilirim?

Dj Demir · September 2, 2010

AutoIT ile

Sign In

Autoit Ile Progress Bar Scripti Bilgi Verme Script

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

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