M
max1300
Гость
AutoIt: 3.3.12.0
Версия: 1.1.0.0
Категория: Вспомогательные функции
Описание: Обновлено данная программа генерирует звуки по заданным параметрам содержит DLC Function работает на Windows 7
Код/Пример:
Файл: EXE
Снимок:
История версий:
Источник: autoit-script.ru
Автор(ы): MAX1300
Версия: 1.1.0.0
Категория: Вспомогательные функции
Описание: Обновлено данная программа генерирует звуки по заданным параметрам содержит DLC Function работает на Windows 7
Код/Пример:
Код:
#AutoIt3Wrapper_Res_LegalCopyright=max1300
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_Description=Генератор звуков + DLC Function
;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <Crypt.au3>
#include <GuiSlider.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Генератор звуков", 518, 197, 164, 112, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Частота звука", 344, 0, 143, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("помощь", 352, 40, 161, 25, 0)
$Button3 = GUICtrlCreateButton("Начать проигрование звука", 0, 72, 513, 25, 0)
$Label2 = GUICtrlCreateLabel("Заблокировать файл(DLC Function)", 0, 104, 513, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Input3 = GUICtrlCreateInput("путь к файлу", 0, 144, 273, 21)
$Button1 = GUICtrlCreateButton("Обзор", 280, 144, 233, 49, 0)
$Button4 = GUICtrlCreateButton("Заблокировать файл", 0, 168, 273, 25, 0)
$Chastota = GUICtrlCreateSlider(8, 8, 329, 25,BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
GUICtrlSetLimit($Chastota,1000,0)
$vremya = GUICtrlCreateSlider(8, 40, 201, 25,BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS,$TBS_ENABLESELRANGE))
GUICtrlSetLimit($vremya,9000,0)
$Label3 = GUICtrlCreateLabel("Время звука", 208, 40, 126, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
Beep(GUICtrlRead($Chastota),GUICtrlRead($vremya))
Case $Button2
MsgBox(64,"Информация","Авторы Max 1300" & @CRLF & "Системные требования Windows 7 x64")
Case $Button1
$filepath = FileOpenDialog("заблокировать файл",@WorkingDir,"()")
GUICtrlSetData($Input3,$filepath)
Case $Button4
_Crypt_EncryptFile(GUICtrlRead($Input3),GUICtrlRead($Input3),"Crypt Password",$CALG_RC4)
If @error Then GUICtrlSetData($Input3,"ошибка при блокировании файла")
EndSwitch
WEnd
Снимок:
История версий:
1.1.0.0
Источник: autoit-script.ru
Автор(ы): MAX1300