PDA

Показать полную графическую версию : Защита от "дурака" и просто обработка кода


Medic84
06-06-2009, 21:10
Собственно при написании программы возникли вопросы.

1. Как сделать если нажата "Отмена", то выводил другое сообщение MsgBox? "Восстановление не удалось"

Func Restore_Proc()
$file = FileOpenDialog("Выберите файл...",@ProgramFilesDir,"Zip (*.Zip)")
_Zip_UnzipAll($file , StringTrimRight(GUICtrlRead($A2),8))
Run("Regedit.exe /s " & GUICtrlRead($A2) & "\key.reg")
FileDelete(GUICtrlRead($A2) & "\key.reg")
MsgBox(4160,"Успешно","Восстановление прошло успешно")
EndFunc

2. Как остановить в определенный момент весь скрипт? Допуситим: If GUICtrlRead($A1) = "" Then
Нужно ввести какую то команду которая останавливает скрипт, и возвращает в начальное положение.

OffTop
3. Как изменить иконку приложения?
GUISetIcon()
Действует только на иконку внутри приложения(Наверху слева), а на основную нет.

P.S. Если что еще вспомню насчет защиты расскажу.

Creat0R
06-06-2009, 21:36
Как сделать если нажата "Отмена", то выводил другое сообщение MsgBox? "Восстановление не удалось" »
$file = FileOpenDialog("Выберите файл...",@ProgramFilesDir,"Zip (*.Zip)")
If @error Then Return MsgBox(48, "Error", "Восстановление не удалось")

....

Как остановить в определенный момент весь скрипт? »
Exit? Если речь про выход из функции, тогда Return.

Действует только на иконку внутри приложения(Наверху слева), а на основную нет. »
Основную это что? иконка exe'шника? Там нужно при компилляции указывать иконку.

Medic84
06-06-2009, 21:43
Основную это что? иконка exe'шника? Там нужно при компилляции указывать иконку. »
Основную это значит которая отображается в папке.
Там нужно при компилляции указывать иконку. »
Можно подсказать где?

Вот вспомнил еще. 4. Где поставить нужно "галочку" что бы файл было невозможно декомпилировать?

Medic84
06-06-2009, 22:04
5. Как вывесть сообщение MsgBox если в GUICtrlRead($A2) в конце нету "\players". Т.е. перед "\players" могут быть любые буквы, цифры и т.п.

beve
06-06-2009, 22:54
Как вывесть сообщение MsgBox если...в конце нету "\players" »
If StringRegExpReplace(GUICtrlRead($A2),".*(\\players)","\1")<> "\players" Then MsgBox(0,"","Bla bla bla")

4. Где поставить нужно "галочку" что бы файл было невозможно декомпилировать? »
Для того и придуманы отладчики, чтобы можно было посмотреть на код... но вот понять этот код итак смогут только "избранные", а не любой желающий, ибо в теперича доступных версиях Autoit, средствами самого Autoit это уже невозможно сделать..., хотя раньше была такая опция.

Creat0R
06-06-2009, 23:25
Можно подсказать где? »
Там где происходит компиляция.

P.S
Я надеюсь мне не придётся и эту тему закрывать в связи с поступлением вопросов на совершенно разную тематику?




© OSzone.net 2001-2012