Просмотрщик ресурсов - позволяет создать DLL с иконками с нуля. Исходник в комплекте. Скомпилировал исходник взятый с официального сайта.
FTP Explorer - само название говорит за себя, программа для просмотра и скачивания файлов с фтп-сервера. Исходник в комплекте. Скомпилировал исходник взятый с официального сайта.
_________________ предлагаю услуги по настройке компьютера, подробнее
Сообщения: 1264 Откуда: Карталы Благодарил (а):9 раз. Поблагодарили:70 раз.
Пол: Муж
Игра Марио Universal Extractor - универсальный распаковщик, для извлечения данных из инсталляторов, msi-инсталляторов и любых архивов. Исходник можно взять на сайте автора.
_________________ предлагаю услуги по настройке компьютера, подробнее
Настроение: Сообщения: 2430 Благодарил (а):107 раз. Поблагодарили:55 раз.
Пол: Муж
Написал программу Activation KIS, для упрощённой активации kaspersky internet security файлом ключа, не требует ручного ввода ключа. ВАЖНО на 64 битных windows файл Activation KIS x64 v1.00.exe запускать из корня диска на котором установлен kaspersky internet security. как пользоваться программой смотрите в видео ролике.
IfFileExists(@ScriptDir&"\Ключи для kis 2013\temp")Then
Else DirCreate(@ScriptDir&"\Ключи для kis 2013\temp") EndIf
IfFileExists(@ScriptDir&"\Ключи для kis 2012\temp")Then
Else DirCreate(@ScriptDir&"\Ключи для kis 2012\temp") EndIf
IfFileExists(@ScriptDir&"\Ключи для kis 2011\temp")Then
Else DirCreate(@ScriptDir&"\Ключи для kis 2011\temp") EndIf
IfFileExists(@ScriptDir&"\Ключи для kis 2010\temp")Then
Else DirCreate(@ScriptDir&"\Ключи для kis 2010\temp") EndIf
$Gui=GUICreate("",200,200,Default,Default,$WS_POPUP,$WS_EX_CONTROLPARENT) GUISetBkColor(0xFF0000) $But1=GUICtrlCreateButton("Активировать KIS 2013",25,10,150,30) $But2=GUICtrlCreateButton("Активировать KIS 2012",25,45,150,30) $But3=GUICtrlCreateButton("Активировать KIS 2011",25,80,150,30) $But4=GUICtrlCreateButton("Активировать KIS 2010",25,115,150,30) $But5=GUICtrlCreateButton("Выход",126,150,50,30) $But6=GUICtrlCreateButton("Свернуть",25,150,65,30) GUICtrlCreateLabel("V 1.00",10,185,35,15) GUISetState(@SW_SHOW)
While1 SwitchGUIGetMsg() Case$But1 IfFileExists(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2013\avp.com")Then $message="Выберите файл ключа" $File=FileOpenDialog($message,@ScriptDir&"\Ключи для kis 2013","Файл ключа (*.key)",1+4) If@errorThen MsgBox(4096,"","Вы не выбрали ни одного файла") Else $File=StringReplace($File,"|",@CRLF) Run('"'&@ProgramFilesDir&'\Kaspersky Lab\Kaspersky Internet Security 2013\avp.com" addkey "'&$File&'"') Sleep(2500) FileMove($File,@ScriptDir&"\Ключи для kis 2013\temp") EndIf Else MsgBox(4096,@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2013\avp.com","Не возможно установить ключ, Файл avp.com не найден!") EndIf Case$But2 IfFileExists(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2012\avp.com")Then $message="Выберите файл ключа" $File=FileOpenDialog($message,@ScriptDir&"\Ключи для kis 2012","Файл ключа (*.key)",1+4) If@errorThen MsgBox(4096,"","Вы не выбрали ни одного файла") Else $File=StringReplace($File,"|",@CRLF) Run('"'&@ProgramFilesDir&'\Kaspersky Lab\Kaspersky Internet Security 2012\avp.com" addkey "'&$File&'"') Sleep(2500) FileMove($File,@ScriptDir&"\Ключи для kis 2012\temp") EndIf Else MsgBox(4096,@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2012\avp.com","Не возможно установить ключ, Файл avp.com не найден!") EndIf Case$But3 IfFileExists(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2011\avp.com")Then $message="Выберите файл ключа" $File=FileOpenDialog($message,@ScriptDir&"\Ключи для kis 2011","Файл ключа (*.key)",1+4) If@errorThen MsgBox(4096,"","Вы не выбрали ни одного файла") Else $File=StringReplace($File,"|",@CRLF) Run('"'&@ProgramFilesDir&'\Kaspersky Lab\Kaspersky Internet Security 2011\avp.com" addkey "'&$File&'"') Sleep(2500) FileMove($File,@ScriptDir&"\Ключи для kis 2011\temp") EndIf Else MsgBox(4096,@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2011\avp.com","Не возможно установить ключ, Файл avp.com не найден!") EndIf Case$But4 IfFileExists(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2010\avp.com")Then $message="Выберите файл ключа" $File=FileOpenDialog($message,@ScriptDir&"\Ключи для kis 2010","Файл ключа (*.key)",1+4) If@errorThen MsgBox(4096,"","Вы не выбрали ни одного файла") Else $File=StringReplace($File,"|",@CRLF) Run('"'&@ProgramFilesDir&'\Kaspersky Lab\Kaspersky Internet Security 2010\avp.com" addkey "'&$File&'"') Sleep(2500) FileMove($File,@ScriptDir&"\Ключи для kis 2010\temp") EndIf Else MsgBox(4096,@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2010\avp.com","Не возможно установить ключ, Файл avp.com не найден!") EndIf Case$but5 Exit Case$but6 WinSetState($Gui,"",@SW_MINIMIZE) Case$GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd
_________________ Не восхищайся прошлогодним небом, - Не возвращайся - где был рай когда-то, И брось дурить - иди туда, где не был!
Сообщения: 1264 Откуда: Карталы Благодарил (а):9 раз. Поблагодарили:70 раз.
Пол: Муж
Windows Screenshooter - создание скриншотов. Удобство в том, что программа слева показывает захваченные окна, остаётся кликнуть название. Можно захватить и вручную. Используя контекстное меню можно перейти в редактор графики, чтобы добавить стрелки, эллипсы и тексты, что обычно требуется когда хочется на скрине показать, на какие элементы требуется обратить внимание. В общем и фотошоп не потребуется.
Программа тестирована на Win7, а на WinXP иногда падает (крах). Русский язык выбрать правой кнопкой мыши на кнопке выбора языка.
_________________ предлагаю услуги по настройке компьютера, подробнее
За это сообщение автора Amigo поблагодарил: xXx (09 янв 2014, 13:19)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9
Вы можете начинать темы Вы можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения