Sending text to "IEframe --> Shell DocObject View --> (internet explorer_server)

[megabit]

Hi !!!!!!!!!!!!!!!!!!

Can enyboby help me !!! sending text from a button1 to a internet explorer_server/browser textbox

Newbiiiiiiiiiiiiiii

[megabit]

Public Class Form1
'Get a handle to an application window.
Declare Auto Function FindWindow Lib "USER32.DLL" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr

'=====needed for 'set to foreground and show =====

'Public Const SW_RESTORE As Integer = 9
Public Const SW_SHOWMAXIMIZED As Integer = 3

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal

nCmdShow As Integer) As Integer

' Activate an application window.
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
(ByVal hWnd As IntPtr) As Boolean


Dim target_title As String = "The Chat - Den sejeste gratis chat i verden! - Windows

Internet Explorer"
Dim send_keys_count As Int16 = 0


Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click
Dim target_handle As IntPtr = FindWindow(Nothing, target_title)

'set to foreground and show
SetForegroundWindow(target_handle)
ShowWindow(target_handle, SW_SHOWMAXIMIZED)

'=== I need to replace the next three lines
For n As Int64 = 1 To 5000000 'DELAY IS ESSENTIAL
Next

SendKeys.SendWait("your text")



SendKeys.Send("{ENTER}")


End Sub
end class