Конференция VBStreets

**kirrun** » 08.05.2005 (Вс) 16:24

Программка расставляет буквы на клавиатуре в алфавитном порядке.
Известные баги:

Спасибо hCORe за столь любезно предоставленный код использования горячих клавиш с сабклассингом. А также спасибо Темычу за помошь в константах.

ЗЫ. Чуть не забыл! Выход - F10 =)

**kirrun** » 08.05.2005 (Вс) 16:28

Тьфу ты! Забыл! В комплекте поставки так же и "переводчик" того, что написано сей чудо-программкой с хрен знает чего на русский язык (если выключить забыл а написал много) :wink:

**kirrun** » 09.05.2005 (Пн) 11:54

Эй, люди!!! Вы где все???

**hCORe** » 09.05.2005 (Пн) 14:21

Йфспощъоваъд ътопсыиы! Опщ рсыодъщъовдъ тюлдфыедеепч рдсдфпшп оцюцщъсыъй ктъгый! Ртуёъ етсьпуэена!

**kirrun** » 09.05.2005 (Пн) 14:24

Вот и пригодился мой Anti-ABC =)=)=)

ЪН щгпхы шд-еыъэ рт ртотфв рстжспььн! ГПг? РТеспоыутщэ? СПютъпдъ? ГПгыд рсдъдейыы? ЖУягы? ГТстшд, ьедеыд онщгпхы =)

**hCORe** » 09.05.2005 (Пн) 14:28

Das... ist... fantastisch...
Крутая штука. Надо будет одноклассников разыграть

**kirrun** » 09.05.2005 (Пн) 14:39

Отлично! Я рад.

А как насчет багов?

ЗЫ. Скоро будет вторая версия с исправленными багами (найдеными)

**kirrun** » 09.05.2005 (Пн) 22:36

Ну? А еще отзывы? Скачано восемь раз, а отзыв один...

**Денис Победря** » 10.05.2005 (Вт) 10:27

Ну непонимаю, зачем она нужна. Для шифрования??? Теперь алгоритм шифровки доступен всем

**Александр80** » 10.05.2005 (Вт) 12:53

Прикольно! Только где-то я это уже видел или чтото похожее...

Замечания есть, мне кажется при нажатии на кнопку "Тырк!" надо не добавлять текст а заменять старый текст новым. Мне кажется так правильнее... Кстати, а выход из АВС осуществляется только снятием задачи?

И самый главный вопрос а для чего это все надо?

А так все прикольно. Молодец!!! :wink:

**hCORe** » 10.05.2005 (Вт) 13:40

выход - f10

**kirrun** » 10.05.2005 (Вт) 17:50

2 Александр80

Написано же

kirrun писал(а):ЗЫ. Чуть не забыл! Выход - F10 =)

А насчет того, что ты видел... не знаю.. Я лично не видел.. Да еще чтобы на VB... Но аозможно. Спорить не буду.

2 Денис Победря

Ну-ну... Только определенному типу людей такое могло придти в голову... Очень сомнительный алгоритм шифрования...

2 ALL

Написал просто так. От нефиг делать. Зато прикольно =)

**kirrun** » 02.06.2005 (Чт) 14:24

Уффф.. Сделал вторую версию! Новшеств в ней дофига. Все и не перечислишь...

Из Известных багов:

По-прежнему игнорирует CapsLock
По-прежнему откуда-то беруться по две заглавные буквы...

В исправлении второго бага надеюсь на помощь hCORe, ведь это его код с сабклассингом... Насчет CapsLock что делать знаю.. Просто влом... СДелаю в следующих версиях...

Да и просьба ко всем. Помогите установить продолжительность висение Balloon Tip'a... Секунд на 5... У меня не получилось...

Воть...

ЗЫ. Как обычно, все с сорсами а rar-архиве.
ЗЗЫ. Чуть не забыл... Помогите придумать иконку. Нарисую-то я сам, а вот идею...

BV » 02.06.2005 (Чт) 14:30

kirrun писал(а):ЗЗЫ. Чуть не забыл... Помогите придумать иконку. Нарисую-то я сам, а вот идею...

Клавиша с антеной, излучающей радиоволны.

BV » 02.06.2005 (Чт) 14:38

И... kirrun, с файлом настроек (*.INI; *.CFG) работают через:

Код: Выделить всё: Public Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Мне кажется, ты взялся за слишком сложный для себя проект. Немного подучи VB, потом продолжай :wink:

**hCORe** » 02.06.2005 (Чт) 14:48

Насчет заглавных букв: поясни, а то я не понял, в каком месте глюки идут. А CAPS LOCK можно, наверное, тоже "захоткеить"

**kirrun** » 02.06.2005 (Чт) 15:14

BV, тсссс... Лучше помолчи... Спасибо за подсказанные апишки, в следующих версия специально для тебя буду работать через них. А меня и так устраивает... Да, и иконка... А причем тут радиоволны?
hCORe, да, CapsLock так и буду делать. А насчет клавиш... Да, этот глюк теперь только в англ. языке. Запусти прогу и набери Abc у тебя получится ABc

**Tin** » 03.06.2005 (Пт) 8:23

Учисб, учись... Все мы когда-то этим страдали... Вот к примеру:

**hCORe** » 03.06.2005 (Пт) 10:35

kirrun
Я понял причину проблемы с Shift'ом и Caps Lock.
Функция SendKeys немного глючит. Поэтому надо использовать api-функцию keybd_event.

Вот необходимые объявления:

Код: Выделить всё: Public Const KEYEVENTF_KEYUP = &H2 Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

А вот и примерный код для вывода другой буквы:

Код: Выделить всё: If wParam = Asc("Q") Or wParam = Asc("Q") + 100 Then keybd_event Asc("A"), 0, 0, 0 keybd_event Asc("A"), 0, KEYEVENTF_KEYUP, 0 End If

**kirrun** » 04.06.2005 (Сб) 15:50

Tvin, Это ты к чему?

**kirrun** » 04.06.2005 (Сб) 15:53

hCORe, вай, пасиба. В след. версии исправлю.

All, господа, нет идей по поводу баллоона? (ну чтобы интервал поменять).

И иконку жду...

**kirrun** » 04.06.2005 (Сб) 16:45

эхм... странно... А че я делаю не так?

Код: Выделить всё: If wParam = Asc("Q") + 100 Then keybd_event Asc("A"), 0, 0, 0: keybd_event Asc("A"), 0, KEYEVENTF_KEYUP, 0

**hCORe** » 04.06.2005 (Сб) 19:34

Там есть некоторые "подводные камни" в реализации. Скоро выложу работающую версию с keybd_event. Может быть, даже сегодня

**kirrun** » 04.06.2005 (Сб) 19:52

ну давай... ждемс...

Конференция VBStreets

АБВ

АБВ

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