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,366 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

3 answers

Castorix31 85,136 Reputation points

2021-06-15T21:22:08+00:00
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
Please sign in to rate this answer.

1 person found this answer helpful.
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 85,136 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,366 Reputation points

2021-06-17T01:48:55.283+00:00

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
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
Frequency 1 Reputation point

2021-06-22T17:26:27.977+00:00

can anyone help me with this please
Please sign in to rate this answer.

0 comments No comments
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
Castorix31 85,136 Reputation points

2021-06-23T06:27:35.56+00:00
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
Please sign in to rate this answer.
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 85,136 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
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

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

3 answers

Your answer