; ----------------------------------------------------------------------------
; AutoIt Version: 3.3.0.0
; Author: ynbIpb
; Script Function: starforce
; ----------------------------------------------------------------------------
#NoTrayIcon
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GDIpProgress.au3>
#include "BinaryImage.au3"
$chek = "0"
$Form1 = GUICreate("Система защиты", 492, 254,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION, $WS_POPUP))
$Pic = GUICtrlCreatePic("", 0, 0, 492, 254, $WS_CLIPSIBLINGS)
$back = _Background()
_SetImageBinaryToCtrl($Pic,$back)
$Progress = _ProgressCreate(54, 169, 386, 14)
_ProgressSetText($Progress, "")
_ProgressSetImages($Progress, @ScriptDir & "\data\progress1.gif", @ScriptDir & "\data\progress2.gif")
_ProgressSet($Progress, 0)
GUISetState(@SW_SHOW)
sleep (1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$current =_ProgressGet($Progress)
If $current < "100" Then
if $chek = "0" Then
$begin = TimerInit()
$current+=1
_ProgressSet($Progress, $current)
$chek = "1"
EndIf
$dif = TimerDiff($begin)
If $dif >= 60 Then
$chek = "0"
EndIf
Else
sleep (1000)
Exit
EndIf
WEnd
Func _Background()
Local $Background = 'тут короче бинарном виде фон, но не влезает'
Return $Background
EndFunc |
