Ветеран
Автор проектов
Сообщения: 532
Благодарности: 85
Профиль
|
Отправить PM
| Цитировать
Изменения
Автор: ispolin
Дата: 26-12-2021
Сделать задний фон из картинки и повесить иконки на кнопки, собственно вся задача. Только прошу, если это возможно, вот прям в код скрипта впишите, я плохо разбираюсь
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1306.ico
#AutoIt3Wrapper_Outfile=UnPack.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UPX_Parameters=--best
#AutoIt3Wrapper_Res_Description=EDeclaration UnPack DB by Xabib
#AutoIt3Wrapper_Res_Fileversion=22.7.2018.0
#AutoIt3Wrapper_Res_ProductVersion=22.7.2018
#AutoIt3Wrapper_Res_LegalCopyright=Xabib © 2018
#AutoIt3Wrapper_Res_Language=1049
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#Region
$Form1 = GUICreate("Тесты", 670, 250, 360, 190)
$Label1 = GUICtrlCreateLabel("Подготовка к экзаменам",190, 10, 300, 35, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("обучение", 16, 50, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button2 = GUICtrlCreateButton("обучение", 16, 100, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button3 = GUICtrlCreateButton("обучение", 16, 150, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button4 = GUICtrlCreateButton("обучение", 16, 200, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button5 = GUICtrlCreateButton("экзамен", 350, 50, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button6 = GUICtrlCreateButton("экзамен", 350, 100, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button7 = GUICtrlCreateButton("экзамен", 350, 150, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$Button8 = GUICtrlCreateButton("экзамен", 350, 200, 300, 35, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUISetState(@SW_SHOW)
#EndRegion
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE)
FileInstall('обучение.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\обучение.exe')
FileDelete(@TempDir & '\обучение.exe')
GUISetState(@SW_SHOW)
Case $Button2
GUISetState(@SW_HIDE)
FileInstall('обучение.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\обучение.exe')
FileDelete(@TempDir & '\обучение.exe')
GUISetState(@SW_SHOW)
Case $Button3
GUISetState(@SW_HIDE)
FileInstall('обучение.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\обучение.exe')
FileDelete(@TempDir & '\обучение.exe')
GUISetState(@SW_SHOW)
Case $Button4
GUISetState(@SW_HIDE)
FileInstall('обучение.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\обучение.exe')
FileDelete(@TempDir & '\обучение.exe')
GUISetState(@SW_SHOW)
Case $Button5
GUISetState(@SW_HIDE)
FileInstall('экзамен.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\экзамен.exe')
FileDelete(@TempDir & '\экзамен.exe')
GUISetState(@SW_SHOW)
Case $Button6
GUISetState(@SW_HIDE)
FileInstall('экзамен.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\экзамен.exe')
FileDelete(@TempDir & '\экзамен.exe')
GUISetState(@SW_SHOW)
Case $Button7
GUISetState(@SW_HIDE)
FileInstall(' экзамен.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\экзамен.exe')
FileDelete(@TempDir & '\экзамен.exe')
GUISetState(@SW_SHOW)
Case $Button8
GUISetState(@SW_HIDE)
FileInstall('экзамен.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\экзамен.exe')
FileDelete(@TempDir & '\экзамен.exe')
GUISetState(@SW_SHOW)
EndSwitch
WEnd