Карталинский форум

Карталинское Веб Общение
Текущее время: 16 дек 2017, 10:15


Часовой пояс: UTC + 5 часов [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
 Заголовок сообщения: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 14 июл 2012, 13:57 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1250
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Просмотрщик ресурсов - позволяет создать DLL с иконками с нуля. Исходник в комплекте. Скомпилировал исходник взятый с официального сайта.

FTP Explorer - само название говорит за себя, программа для просмотра и скачивания файлов с фтп-сервера. Исходник в комплекте. Скомпилировал исходник взятый с официального сайта.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 18 июл 2012, 04:55 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1250
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Игра Марио
Universal Extractor - универсальный распаковщик, для извлечения данных из инсталляторов, msi-инсталляторов и любых архивов. Исходник можно взять на сайте автора.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 21 мар 2013, 07:42 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1250
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
WinNTSetup2

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 06 авг 2013, 17:32 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Написал программу Activation KIS, для упрощённой активации kaspersky internet security файлом ключа, не требует ручного ввода ключа. ВАЖНО на 64 битных windows файл Activation KIS x64 v1.00.exe запускать из корня диска на котором установлен kaspersky internet security. как пользоваться программой смотрите в видео ролике.
Вложение:
Activation KIS.PNG
Activation KIS.PNG [ 4.95 КБ | Просмотров: 2161 ]


Скачать



Цитата:
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Process.au3>
#NoTrayIcon
#AutoIt3Wrapper_icon=kis.ico

If FileExists(@ScriptDir & "\Ключи для kis 2013\temp") Then

Else

DirCreate(@ScriptDir & "\Ключи для kis 2013\temp")
EndIf

If
FileExists(@ScriptDir & "\Ключи для kis 2012\temp") Then

Else

DirCreate(@ScriptDir & "\Ключи для kis 2012\temp")
EndIf

If
FileExists(@ScriptDir & "\Ключи для kis 2011\temp") Then

Else

DirCreate(@ScriptDir & "\Ключи для kis 2011\temp")
EndIf

If
FileExists(@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)


While 1
Switch GUIGetMsg()
Case $But1
If FileExists(@ProgramFilesDir & "\Kaspersky Lab\Kaspersky Internet Security 2013\avp.com") Then
$message = "Выберите файл ключа"
$File = FileOpenDialog($message, @ScriptDir & "\Ключи для kis 2013", "Файл ключа (*.key)", 1 + 4)
If @error Then
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
If FileExists(@ProgramFilesDir & "\Kaspersky Lab\Kaspersky Internet Security 2012\avp.com") Then
$message = "Выберите файл ключа"
$File = FileOpenDialog($message, @ScriptDir & "\Ключи для kis 2012", "Файл ключа (*.key)", 1 + 4)
If @error Then
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
If FileExists(@ProgramFilesDir & "\Kaspersky Lab\Kaspersky Internet Security 2011\avp.com") Then
$message = "Выберите файл ключа"
$File = FileOpenDialog($message, @ScriptDir & "\Ключи для kis 2011", "Файл ключа (*.key)", 1 + 4)
If @error Then
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
If FileExists(@ProgramFilesDir & "\Kaspersky Lab\Kaspersky Internet Security 2010\avp.com") Then
$message = "Выберите файл ключа"
$File = FileOpenDialog($message, @ScriptDir & "\Ключи для kis 2010", "Файл ключа (*.key)", 1 + 4)
If @error Then
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

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 02 янв 2014, 22:02 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
написал программку для просмотра онлайн тв.

Вложение:

Вложение:

Вложение:

Вложение:


код
Цитата:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
#AutoIt3Wrapper_icon=tv.ico

Example()

Func Example()
Local $oIE

$oIE
= ObjCreate("Shell.Explorer.2")

GUICreate("Online-TV", 682, 419)
GUICtrlCreateObj($oIE, 10, 10, 662, 399)
GUISetState()

$oIE.navigate("http://tvforsite.ru/onlinetv.php?playerid=26065")

While 1
$msg = GUIGetMsg()
Select
Case
$msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

GUIDelete()
EndFunc ;==>Example


Скачать

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 02 янв 2014, 23:36 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Улетно
Сообщения: 782
Откуда: Карталы
Благодарил (а): 21 раз.
Поблагодарили: 38 раз.
Пол: Муж
а у меня пишет что " не является приложением вин32"

_________________
Никогда не бойся делать то, что ты не умеешь. Ковчег был сооружен любителем. Профессионалы построили "Титаник"


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 02 янв 2014, 23:55 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
First
запускаете от имени администратора?

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 03 янв 2014, 00:09 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
извиняюсь, файл оказался битым. вот новая ссылка Скачать

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 03 янв 2014, 12:38 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1250
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
xXx
Вот компактней. И добавлен стиль двойной перерисовки окна, чтобы при перетаскивании поверх окна других окон не оставалось артефактов.

Цитата:
$oIE = ObjCreate("Shell.Explorer.2")
If Not IsObj($oIE) Then Exit MsgBox(0, 'Сообщение', 'Проблема интернет эксплорера')
GUICreate("Online-TV (tvforsite.ru)", 642, 396, -1, -1, -1, 0x02000000) ; $WS_EX_COMPOSITED
GUICtrlCreateObj($oIE, 0, 0, 770, 520)
GUISetState()
$oIE.navigate('http://tvforsite.ru/onlinetv.php?playerid=26065')
Do
Until
GUIGetMsg() = -3

А ещё лучше в браузеер открыть ссылку и смотреть.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 03 янв 2014, 13:06 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Amigo
спасибо

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Программы на AutoIt3
Непрочитанное сообщениеДобавлено: 09 янв 2014, 13:16 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1250
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Windows Screenshooter - создание скриншотов. Удобство в том, что программа слева показывает захваченные окна, остаётся кликнуть название. Можно захватить и вручную. Используя контекстное меню можно перейти в редактор графики, чтобы добавить стрелки, эллипсы и тексты, что обычно требуется когда хочется на скрине показать, на какие элементы требуется обратить внимание. В общем и фотошоп не потребуется.

Программа тестирована на Win7, а на WinXP иногда падает (крах). Русский язык выбрать правой кнопкой мыши на кнопке выбора языка.

_________________
предлагаю услуги по настройке компьютера, подробнее



За это сообщение автора Amigo поблагодарил: xXx (09 янв 2014, 13:19)
  Рейтинг: 3.57%
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 11 ]    | Активные темы |  


Часовой пояс: UTC + 5 часов [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © phpBB Group
ѥ골񦲳񲯢 ԰᪗eb