المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : شريط التقدم في الــ autoit


ثامر أبو بلقيس
23-02-2014, 10:39 PM
السلام عليكم
إلى محبي الــ autoit
هذا ملف لتشغيل برنامج و ليكن ملف تنصيب ثابت
مع وجود شريط تقدم يسجل خروجه بمجرد انتهاء العملية
ضع فقط البرنامج بجانب الاداة
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "endscript")

$PID = Run("اسم البرنامج.exe","")

$Ca = GUICreate ( "" , 250 , 46 , -1 , -1 , $WS_POPUP,$WS_EX_TOPMOST+$WS_EX_WINDOWEDGE+$WS_EX_ DLGMODALFRAME)
GUISetBkColor ( 0x000000 , $Ca )
$Da = GUICtrlCreateLabel (" جاري التنصيب ...", 23, -1, 250,23)
GuiCtrlCreateGraphic(-1, 1, 252,45,$SS_SUNKEN)
GUICtrlSetColor(-1, 0XFFFFFF)
GUICtrlSetColor ( $Da, 0XFFFFFF)
GUICtrlSetFont ($Da, "12" , "50" , "" , "Courrier New")
GUICtrlCreateGraphic(1, 23, 250,20)
GUICtrlSetColor(-1, 0x007F00)
GuiSetState(@SW_SHOW)
_SliderRight()

Func _getmsg()
$Msg = GUIGetMsg()
If $Msg = $GUI_EVENT_CLOSE Then Exit

; Test du process. Si inexistant, on sort.
If ProcessExists($PID)=0 Then endscript()

EndFunc

Func _SliderRight()
Local $newcolor,$color = 0x050000
For $m = 0 To 245 Step 5
$newcolor += $color
$ba = GUICtrlCreateLabel( "", $m, 25, 4,16)
GUICtrlSetBkColor($ba, $newcolor)
Sleep(50)
Next
_getmsg()
_SliderLeft()
EndFunc

Func _SliderLeft()
Local $backcolor,$color = 0x050000
For $m = 245 To 0 Step -5
$backcolor += $color
$ba = GUICtrlCreateLabel( "", $m, 25, 4,16)
GUICtrlSetBkColor($ba, $backcolor)
Sleep(50)
Next
_getmsg()
_SliderRight()
EndFunc

Func endscript()
Exit
EndFunc


ســـلام :abc_152:

فرح صالحي
24-02-2014, 03:42 PM
السلام عليكم ورحمة الله وبركاته
جازاك الله خيرا كثيرا
:abc_152:

ثامر أبو بلقيس
24-02-2014, 05:09 PM
وعليكم السلام ورحمة الله وبركاته :abc_152:

أبو يوسف
25-02-2014, 06:25 PM
سلمت يمناك اخانا أبا بلقيس على جهودك الطيبة

.

ثامر أبو بلقيس
25-02-2014, 08:08 PM
مرورك عطر ويزيد لمشاركاتي توهجا :abc_138:

أبو فارس
03-03-2014, 11:45 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

azizsoft
03-03-2014, 09:09 PM
بسم الله الرحمن الرحيم

جزاكم الله خيرا استاذ ثامر ونفع بكم

وفقكم الله

الحارث بن فيصل
05-03-2014, 08:40 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .