How can I make a key spammer for a specific software on vb.net

Question

How can I make a key spammer for a specific software on vb.net

Frequency 1

Hi,

I have managed to make my software to spam a certain letter or number, but i want it to target a specific window that is open which then it will allow me to utilise both of my monitors.

i am using vb.net

Xingyu Zhao-MSFT 5,381 Reputation points

2021-06-15T02:17:27.917+00:00

Hi @Frequency ,
I have two questions to confirm with you based on your question.
What do you mean by spamming a certain letter or number?

i want it to target a specific window that is open which then it will allow me to utilise both of my monitors.

Could you provide more detailed descriptions about the sentence?
You can also share some related code which will help us analyze your problem and make a test.
We are waiting for your update.
Frequency 1 Reputation point

2021-06-15T19:49:43.977+00:00
This is my timer :

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

SendKeys.Send(TextBox1.Text) SendKeys.Send("{ENTER}")

so whatever i type in textbox1 then when i press start it starts sending it to the pc, but the problem is it sends it wherever im pressing or my present window.

what i want is how to target a specific window, so lets say notepad is open and so is google chrome, i want this time to only work on the notepad so if i was to use google chrome it will not spam what i have put in textbox1

4 answers

Your answer

Xingyu Zhao-MSFT 5,381 Reputation points

2021-06-15T02:17:27.917+00:00

Hi @Frequency ,
I have two questions to confirm with you based on your question.
What do you mean by spamming a certain letter or number?

i want it to target a specific window that is open which then it will allow me to utilise both of my monitors.

Could you provide more detailed descriptions about the sentence?
You can also share some related code which will help us analyze your problem and make a test.
We are waiting for your update.
Frequency 1 Reputation point

2021-06-15T19:49:43.977+00:00

This is my timer :

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

SendKeys.Send(TextBox1.Text) SendKeys.Send("{ENTER}")

so whatever i type in textbox1 then when i press start it starts sending it to the pc, but the problem is it sends it wherever im pressing or my present window.

what i want is how to target a specific window, so lets say notepad is open and so is google chrome, i want this time to only work on the notepad so if i was to use google chrome it will not spam what i have put in textbox1

Answer 1

Castorix31 91,851

You must activate and set focus to the destination window.
For example, with Notepad =>

        Dim hWnd As IntPtr = FindWindow("Notepad", Nothing)
        If (hWnd <> IntPtr.Zero) Then
            SwitchToThisWindow(hWnd, 1)
            SendKeys.Send("x")
        End If

Declarations :

<DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Public Shared Function SwitchToThisWindow(hWnd As IntPtr, fAltTab As Boolean) As Boolean
End Function

<DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function

Frequency 1 Reputation point

2021-06-15T21:32:14.333+00:00

SwitchToThisWindow(hWnd, 1)
SendKeys.Send("x")
End If

is this sending 'x' only?

does this go at the top or in the timer?

sorry im a very beginner hahah

and where do i put the declarations
Castorix31 91,851 Reputation points

2021-06-15T21:44:29.987+00:00

Declarations are inside the class (in "Public Class Form1" for example)
"x" if just for a test, that I did in a Button click,
but you can put all the code it in a timer, the important thing is that the window is set to foreground with SwitchToThisWindow before the keys are sent
Frequency 1 Reputation point

2021-06-16T01:37:19.283+00:00

Here is what is coming up

Xingyu Zhao-MSFT 5,381

Hi @Frequency ,
Try the code like:

Imports System.Runtime.InteropServices  
  
Public Class Form1  
    <DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>  
    Public Shared Function SwitchToThisWindow(hWnd As IntPtr, fAltTab As Boolean) As Boolean  
    End Function  
    <DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>  
    Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr  
    End Function  
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick  
        Dim hWnd As IntPtr = FindWindow("Notepad", Nothing)  
        If (hWnd <> IntPtr.Zero) Then  
            SwitchToThisWindow(hWnd, 1)  
            SendKeys.Send(TextBox1.Text)  
        End If  
    End Sub

Frequency 1 Reputation point

2021-06-20T03:00:42.587+00:00

Hi,

Code is pretty similar to mine, it keeps spamming notepad without letting me do other things on my PC, im trying to spam the notepad while being able to browse my PC do you get me?
Frequency 1 Reputation point

2021-06-22T17:29:46.157+00:00

Still not working

Answer 2

Deleted

This answer has been deleted due to a violation of our Code of Conduct. The answer was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.

Comments have been turned off. Learn more

Answer 3

Castorix31 91,851

im trying to spam the notepad while being able to browse my PC do you get me?

You can use PostMessage, but it is not recommended...

Same test with Notepad =>

Dim hWndTarget As IntPtr = FindWindow("Notepad", Nothing)
If (hWndTarget <> IntPtr.Zero) Then
    ' Get Edit control handle
    hWndTarget = GetWindow(hWndTarget, GW_CHILD)
    PostMessage(hWndTarget, WM_KEYDOWN, Keys.X, IntPtr.Zero)
End If

Declarations :

    <DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Public Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal msg As UInteger, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
    End Function

    Public Const WM_KEYDOWN = &H100
    Public Const WM_KEYUP = &H101

    <DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
    Public Shared Function GetWindow(hWnd As IntPtr, uCmd As UInteger) As IntPtr
    End Function

    Public Const GW_HWNDFIRST = 0
    Public Const GW_HWNDLAST = 1
    Public Const GW_HWNDNEXT = 2
    Public Const GW_HWNDPREV = 3
    Public Const GW_OWNER = 4
    Public Const GW_CHILD = 5

Frequency 1 Reputation point

2021-07-03T04:42:27.247+00:00

Amazing! This worked perfectly on the notepad, but when I try to do it on other software or games it doesnt allow, whats the solution? Sorry my PC broke and couldnt get back earlier!
Frequency 1 Reputation point

2021-07-16T04:13:22.91+00:00

?Can someone help pls?
Castorix31 91,851 Reputation points

2021-07-16T05:39:51.68+00:00

Which software ?
You must use the right window handle
With notepad, i just got the Edit control handle, child of main window and it will be different of course with any other application

Answer 4

Frequency 1

can anyone help me with this please

0 comments

Share via

How can I make a key spammer for a specific software on vb.net

4 answers

Your answer