[S] Source

Public Class SpamSpam
	Private windowHandle As IntPtr
	
	<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
	Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
	End Function
	
	<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
	Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
	End Function

	Sub New(ByVal title As String)
		windowHandle = FindWindow(IntPtr.Zero, title)
	End Sub
	
	Private Sub PostChar(ByVal c As Char)
		PostMessage(windowHandle, WM_KEYDOWN, c, 0);
		PostMessage(windowHandle, WM_CHAR, c, 0);
		PostMessage(windowHandle, WM_KEYUP, c, 0);
	End Sub

	Public Sub PostString(ByVal message As String)

		For Each c As Char In message
			PostChar(c)
		Next
	End Sub
	
End Class