Как совместить 2 скрипта в один

[vanekzver]

Помогите совместить 2 скрипта.

Вот этот скрипт:

#Include <WindowsConstants.au3>
#Include <WinAPIEx.au3>
#Include <GDIPlus.au3>
HotKeySet('{ESC}', '_Exit')
Dim $Array[1000]

$hForm = GUICreate('', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS), BitOR($WS_EX_LAYERED, $WS_EX_COMPOSITED, $WS_EX_TOPMOST))
GUISetBkColor(0x000000)

For $i = 1 To 1000
    $X = Random(30, @DesktopWidth - 30, 1)
    $Y = Random(30, @DesktopHeight - 30, 1)
    $Array[$i - 1] = GUICreate('', 30, 30, $X, $Y, $WS_POPUP, $WS_EX_LAYERED, $hForm)
    LoadImage($Array[$i - 1], @ScriptDir & '\1.gif')
    GUISetState(@SW_SHOW)
Next

$Title2 = GUICreate ('222', 375,500, -1,-1)
$destination = ".\12.gif"
SplashImageOn($Title2, $destination,375,500,@DesktopWidth/2-200,@DesktopHeight/2-250,1)

For $i = 1 to 255 Step 0
WinSetTrans($Title2,"",$i)
Sleep(10)
Next

For $i = 255 to 1 Step 0
WinSetTrans($Title2,"",$i)
Sleep(10)
Next


SplashOff()

_WinAPI_SetLayeredWindowAttributes($hForm, 0x000000, 255)
GUISetState(@SW_SHOW, $hForm)

While 1
    Sleep(100)
Wend

Func _Exit()
    Exit
EndFunc

Func LoadImage($hWnd, $sImage)
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($sImage)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    _WinAPI_UpdateLayeredWindowEx($hWnd, -1, -1, $hBitmap)
    _WinAPI_DeleteObject($hBitmap)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
EndFunc

Нужно вставить сюда (Место выделено текстов "Вставить нужно сюда":

#NoTrayIcon
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GUIFFLabel.au3>
#Include <WinAPIEx.au3>
#Include <GDIPlus.au3>
#include <WindowsConstants.au3>

Global $String, $text

$DATE= "2012/04/2 00:00:00"

$hGUI = GUICreate("День рождения через:", 500, 150)
$Label1 = _GUICtrlFFLabel_Create($hGUI, $String , 0, 0, 500, 150,17, "Verdana",1, 0, 0x000000)

GUISetState()

AdlibRegister("_Ostatok",1000)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            GUIDelete()
            ExitLoop
    EndSwitch
Sleep(30)
WEnd

Func _Ostatok()
$iDateCalc = _DateDiff("s",$DATE,_NowCalc())
If $iDateCalc<0 Then
$day= Ceiling ($iDateCalc/(3600*24))
$hour= Ceiling( Mod($iDateCalc, (3600*24))/3600)
$min=Ceiling((Mod($iDateCalc,(3600*24))-$hour*3600)/60)
$sec=($min*60+$hour*3600+$day*3600*24)-$iDateCalc

$text= "Твой день рождения через :"&@CRLF &Abs($day)&" Дня(ей) "&Abs($hour)&" часа(ов) "&Abs($min)&" минут(ы) Когда наступит дата откроется новое окно :D"
Else
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ВСТАВИТЬ НАДО СЮДА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EndIf
_GUICtrlFFLabel_SetData($Label1, $text, 0xFFFFFF)
EndFunc

 

[joiner]

Re: Совмещение 2-ух скриптов

наверное так

Спойлер

#NoTrayIcon
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GUIFFLabel.au3>
#include <WinAPIEx.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
HotKeySet('{ESC}', '_Exit')

Global $String, $text

$DATE = "2012/04/2 00:00:00"

$hGUI = GUICreate("День рождения через:", 500, 150)
$Label1 = _GUICtrlFFLabel_Create($hGUI, $String, 0, 0, 500, 150, 17, "Verdana", 1, 0, 0x000000)

GUISetState()

AdlibRegister("_Ostatok", 1000)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			GUIDelete()
			ExitLoop
	EndSwitch
	Sleep(30)
WEnd

Func _Ostatok()
	$iDateCalc = _DateDiff("s", $DATE, _NowCalc())
	If $iDateCalc < 0 Then
		$day = Ceiling($iDateCalc / (3600 * 24))
		$hour = Ceiling(Mod($iDateCalc, (3600 * 24)) / 3600)
		$min = Ceiling((Mod($iDateCalc, (3600 * 24)) - $hour * 3600) / 60)
		$sec = ($min * 60 + $hour * 3600 + $day * 3600 * 24) - $iDateCalc
		$text = "Твой день рождения через :" & @CRLF & Abs($day) & " Дня(ей) " & Abs($hour) & " часа(ов) " & Abs($min) & " минут(ы) Когда наступит дата откроется новое окно :D"
	Else
		Dim $Array[1000]
		$hForm = GUICreate('', @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS), BitOR($WS_EX_LAYERED, $WS_EX_COMPOSITED, $WS_EX_TOPMOST))
		GUISetBkColor(0x000000)
		For $i = 1 To 1000
			$X = Random(30, @DesktopWidth - 30, 1)
			$Y = Random(30, @DesktopHeight - 30, 1)
			$Array[$i - 1] = GUICreate('', 30, 30, $X, $Y, $WS_POPUP, $WS_EX_LAYERED, $hForm)
			LoadImage($Array[$i - 1], @ScriptDir & '\1.gif')
			GUISetState(@SW_SHOW)
		Next
		$Title2 = GUICreate('222', 375, 500, -1, -1)
		$destination = ".\12.gif"
		SplashImageOn($Title2, $destination, 375, 500, @DesktopWidth / 2 - 200, @DesktopHeight / 2 - 250, 1)
		For $i = 1 To 255 Step 0
			WinSetTrans($Title2, "", $i)
			Sleep(10)
		Next
		For $i = 255 To 1 Step 0
			WinSetTrans($Title2, "", $i)
			Sleep(10)
		Next
		SplashOff()
		_WinAPI_SetLayeredWindowAttributes($hForm, 0x000000, 255)
		GUISetState(@SW_SHOW, $hForm)
		While 1
			Sleep(100)
		WEnd
	EndIf
	_GUICtrlFFLabel_SetData($Label1, $text, 0xFFFFFF)
EndFunc   ;==>_Ostatok

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func LoadImage($hWnd, $sImage)
	_GDIPlus_Startup()
	$hImage = _GDIPlus_ImageLoadFromFile($sImage)
	$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
	_WinAPI_UpdateLayeredWindowEx($hWnd, -1, -1, $hBitmap)
	_WinAPI_DeleteObject($hBitmap)
	_GDIPlus_ImageDispose($hImage)
	_GDIPlus_Shutdown()
EndFunc   ;==>LoadImage

 

[CreatoR]

Re: Совмещение 2-ух скриптов

vanekzver

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"Совмещение 2-ух скриптов" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.