Помогите с программой пожалуйста

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
KeePer
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 09.08.2003 (Сб) 11:40

Помогите с программой пожалуйста

Сообщение KeePer » 15.08.2003 (Пт) 13:28

1. Необходимо, что бы программа вела непрерывное наблюдение за нажатием клавиш.
Если клавиша нажата то программа должна занести в текстовый файл какая именно клавиша была нажата. Причем, если пользователь будет играть во что-либо, или просто набирать текс, то каждое нажатие клавиши должно сохранять ее букву или Ascii код.
MUD FOREVER!

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 15.08.2003 (Пт) 13:48

"помогите" предполагает что ты уже что-то делал, но на каком-то этапе застрял. Выложи то, что есть. Или под "помогите" подразумевалось "напишите за меня"?
И что значит "1. " вначале? Видимо последует "2. Как этот файл переслать на мой компьютер" и "3. А как отформатировать жесткий диск на том компьютере"?
Lasciate ogni speranza, voi ch'entrate.

WEB_13
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 06.08.2003 (Ср) 8:02
Откуда: Reutov, Russia

Сообщение WEB_13 » 16.08.2003 (Сб) 5:32

Ну, во-первых программа должна постоянно работать, а значит наверняка грузится с Windows - надо прописать в разделе реестра "HLKM\Software\Microsoft\CurrentVersion\Run" путь к проге.
Во-вторых записывает данные, значит открывает текстовый файл для записи.
А на счёт нажатия клавиш, то поищи по сайтам работу с клавиатурой.

KeePer
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 09.08.2003 (Сб) 11:40

Сообщение KeePer » 16.08.2003 (Сб) 10:23

в общем нашел я код который отслеживает нажатие клавиш на сайте:http://www.vbstreets.ru/default.asp?page=library&id=kSpy

Но вот проблема:
Я добавил в процедуру Timer1_Timer несколько строчек, просто как тест:
Код: Выделить всё
keystate = Getasynckeystate(vbKeyQ)
If (keystate And &H1) = &H1 Then

  Text2 = Text2 + "q" + vbNewLine

     End If

keystate = Getasynckeystate(vbKeyShift + vbKeyQ)
If (keystate And &H1) = &H1 Then

  Text2 = Text2 + "Q" + vbNewLine

     End If


Но как оказалось, нет разницы нажимаешь ты маленькую "q" или большую "q" он все равно пишет маленькую.

Помогите разобраться с регистром.
MUD FOREVER!

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 16.08.2003 (Сб) 10:42

Проверяй состояние клавиш Shift и Caps Lock. Если нажата одна - пиши большую. Если обе - то маленькую.

KeePer
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 09.08.2003 (Сб) 11:40

Сообщение KeePer » 16.08.2003 (Сб) 12:06

А не подскажeте как это сделать ?
Сейчас просто нет возможности, т. к. нет диска с VS.
MUD FOREVER!

WEB_13
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 06.08.2003 (Ср) 8:02
Откуда: Reutov, Russia

Сообщение WEB_13 » 17.08.2003 (Вс) 7:02

А с раскладкой клавиатуры разобрался. Если нет, то смотри...
Вложения
keyboardinfo.zip
(3.39 Кб) Скачиваний: 57

WEB_13
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 06.08.2003 (Ср) 8:02
Откуда: Reutov, Russia

Сообщение WEB_13 » 19.08.2003 (Вт) 5:49

Файл почему то не прикрепился!
Вложения
keyboardinfo.zip
архив zip
(3.39 Кб) Скачиваний: 60

KeePer
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 09.08.2003 (Сб) 11:40

Сообщение KeePer » 19.08.2003 (Вт) 9:41

Вышли на мыло тогда, -=> gunest@yandex.ru
MUD FOREVER!

KeePer
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 09.08.2003 (Сб) 11:40

Сообщение KeePer » 19.08.2003 (Вт) 9:59

гы гы, а щас вот почему-то появился. Спасибо модераторам или еще кому ;)
MUD FOREVER!


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 5

    TopList