VB Code:
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
Ret = "Xx ThA gRiM xX : Xx ThA gRiM xX - Instant Message"
WinWnd = FindWindow(vbNullString, Ret)
SetForegroundWindow WinWnd
If WinWnd Then SendKeys ("Testing Testing Test Test Testing Boo! {ENTER} {ESC}")
End Sub