Scratch

Andres-Vander · 2012-05-21 18:08:43

If you won't give the reason you're making the keylogger for, it's probably illegal

GameHutSoftware · 2012-05-21 18:40:52

Andres-Vander wrote:
If you won't give the reason you're making the keylogger for, it's probably illegal

To distribute it to people that need it.

jji7skyline · 2012-05-21 19:21:35

You could go to a shady website, then do a virus scan, and then repeat until you have a keylogger in your computer, then bend it to your will.

Andres-Vander · 2012-05-21 20:50:42

GameHutSoftware wrote:
Andres-Vander wrote:
If you won't give the reason you're making the keylogger for, it's probably illegal
To distribute it to people that need it.

What people need it?

GameHutSoftware · 2012-05-21 21:46:30

Okay, the controversy stops here. I am not making this for malicious purposes, even though I do make worms. I JUST need the answer.

Daffy22 · 2012-05-22 01:48:34

GameHutSoftware wrote:
Daffy22 wrote:
Put what-the's code in a timer tick event:
For i = 1 To 255
Dim key as Integer = GetAsyncKeyState(I)
Next

You also need to include this line so that it knows what code to look for:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Put this somewhere in the form class between functions and stuff.

I havent tested any of this but if you need any more help let me know
Stupid exception wrote:
GetAsyncKeyState' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

Emmm interesting, I will try it out at some point. Are you getting any kind of error before runtime? I mean like a red underline? hmm

GameHutSoftware · 2012-05-22 10:29:05

Daffy22 wrote:
GameHutSoftware wrote:
Daffy22 wrote:
Put what-the's code in a timer tick event:
For i = 1 To 255
Dim key as Integer = GetAsyncKeyState(I)
Next

You also need to include this line so that it knows what code to look for:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Put this somewhere in the form class between functions and stuff.

I havent tested any of this but if you need any more help let me know
Stupid exception wrote:
GetAsyncKeyState' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.
Emmm interesting, I will try it out at some point. Are you getting any kind of error before runtime? I mean like a red underline?

Nope, no errors before. Want to see my code?

Daffy22 · 2012-05-22 11:47:21

GameHutSoftware wrote:
Daffy22 wrote:
GameHutSoftware wrote:
Daffy22 wrote:
Put what-the's code in a timer tick event:
For i = 1 To 255
Dim key as Integer = GetAsyncKeyState(I)
Next

You also need to include this line so that it knows what code to look for:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Put this somewhere in the form class between functions and stuff.

I havent tested any of this but if you need any more help let me know
Emmm interesting, I will try it out at some point. Are you getting any kind of error before runtime? I mean like a red underline?
Nope, no errors before. Want to see my code?

Yes please.

GameHutSoftware · 2012-05-22 12:13:48

Daffy22 wrote:
GameHutSoftware wrote:
Daffy22 wrote:

Emmm interesting, I will try it out at some point. Are you getting any kind of error before runtime? I mean like a red underline?
Nope, no errors before. Want to see my code?
Yes please.

Here:

Code:

Imports System.Net.Mail
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim keys As Integer
        keys = 1
        Dim memory As String
        While memory.Length < 1
        End While
        'i removed the code that sends emails
            SmtpServer.Send(mail)
            MsgBox("Sent")
        Catch
        End Try
        memory = ""
    End Sub
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Short
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            Dim key1 As Integer = GetAsyncKeyState(i)
        Next
    End Sub
End Class

Daffy22 · 2012-05-22 16:32:21

Em, I've tried that and I get the same error. Its a funny one because it only occurs at runtime hmm I'm going to experiment a bit more with it but in the mean time you can check out these sites, they look quite promising:
http://revolt.hyperhub.info/blog.php?ac … mp;item=15
And my search: http://www.bing.com/search?q=vb.net+key … -1&sk=

Hope they help you, I will get back to you if I get a break through though tongue

GameHutSoftware · 2012-05-22 16:51:23

Daffy22 wrote:
Em, I've tried that and I get the same error. Its a funny one because it only occurs at runtime I'm going to experiment a bit more with it but in the mean time you can check out these sites, they look quite promising:
http://revolt.hyperhub.info/blog.php?ac … mp;item=15
And my search: http://www.bing.com/search?q=vb.net+key … -1&sk=

Hope they help you, I will get back to you if I get a break through though

yikes Thank you so much!! Do you know how to read a text document?

Last edited by GameHutSoftware (2012-05-22 16:52:32)

Daffy22 · 2012-05-22 17:07:13

GameHutSoftware wrote:
Daffy22 wrote:
Em, I've tried that and I get the same error. Its a funny one because it only occurs at runtime I'm going to experiment a bit more with it but in the mean time you can check out these sites, they look quite promising:
http://revolt.hyperhub.info/blog.php?ac … mp;item=15
And my search: http://www.bing.com/search?q=vb.net+key … -1&sk=

Hope they help you, I will get back to you if I get a break through though
Thank you so much!! Do you know how to read a text document?

Yes:

Code:

Dim file as string = System.io.file.readalltext("file.txt") 'returns a string containing all the files content
'OR
Dim file() as string = system.io.file.readalllines("file.txt") 'will return a string array with each line as a variable in the array.

scratchisthebest · 2012-05-27 16:27:33

jji7skyline wrote:
You could go to a shady website, then do a virus scan, and then repeat until you have a keylogger in your computer, then bend it to your will.

Oh that's just a great idea. tongue

Scratch

archived forums

#26 2012-05-21 18:08:43

Re: How to record ALL keystrokes with VB.NET?

#27 2012-05-21 18:40:52

Re: How to record ALL keystrokes with VB.NET?

Andres-Vander wrote:

#28 2012-05-21 19:21:35

Re: How to record ALL keystrokes with VB.NET?

#29 2012-05-21 20:50:42

Re: How to record ALL keystrokes with VB.NET?

GameHutSoftware wrote:

Andres-Vander wrote:

#30 2012-05-21 21:46:30

Re: How to record ALL keystrokes with VB.NET?

#31 2012-05-22 01:48:34

Re: How to record ALL keystrokes with VB.NET?

GameHutSoftware wrote:

Daffy22 wrote:

Stupid exception wrote:

#32 2012-05-22 10:29:05

Re: How to record ALL keystrokes with VB.NET?

Daffy22 wrote:

GameHutSoftware wrote:

Daffy22 wrote:

Stupid exception wrote:

#33 2012-05-22 11:47:21

Re: How to record ALL keystrokes with VB.NET?

GameHutSoftware wrote:

Daffy22 wrote:

GameHutSoftware wrote:

Daffy22 wrote:

#34 2012-05-22 12:13:48

Re: How to record ALL keystrokes with VB.NET?

Daffy22 wrote:

GameHutSoftware wrote:

Daffy22 wrote:

Code:

#35 2012-05-22 16:32:21

Re: How to record ALL keystrokes with VB.NET?

#36 2012-05-22 16:51:23

Re: How to record ALL keystrokes with VB.NET?

Daffy22 wrote:

#37 2012-05-22 17:07:13

Re: How to record ALL keystrokes with VB.NET?

GameHutSoftware wrote:

Daffy22 wrote:

Code:

#38 2012-05-27 16:27:33

Re: How to record ALL keystrokes with VB.NET?

jji7skyline wrote:

Board footer