Брось на форму текстбокс(в нём пиши адрес) и кнопку(нажимай и он вставится):

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
hWnd2 = FindWindow("IEFrame", vbNullString) 'Или hWnd2 = FindWindow( vbNullString,name) - где name  заголовок окна
hWnd2 = FindWindowEx(hWnd2, 0, "WorkerW", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, "ReBarWindow32", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, "ComboBoxEx32", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, "ComboBox", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, "Edit", vbNullString)
Clipboard.Clear
Clipboard.SetText Text1.Text
SendMessage hWnd2, WM_SETTEXT, 0, 0
SendMessage hWnd2, WM_PASTE, 0, 0
End Sub

Ответить

Дело в том, что мне надо вставить на страницу в в браузере. А данный код всталяет текст в адресную строку.

Ответить

А ты хоть что-нибудь о поле знаешь?

Ответить

Ну когда сохранить страницу на диск и открываю ее блокнотом, я могу увидеть имя текстого поля, ее тип и значение (введенный текст). И еще. На странице еще 4 таких текстовых поля, в которые мне нужно вставить текст, других таких полей на этой странице нет.

Ответить

Для начала узнай сколько всего элеметов поддерживают фокус:

жёлкни на первом поле и нажимай tab и считай сколько будет раз(ты должен опять вернутся в это поле)

Ответить

После адресной строки фокус переходит на 1е поле, 2е поле, 3е поле, 4поле, 5поле, потом на кнопку, и снова на адресную строку.

З.Ы. У тебя есть ICQ?

Ответить

Аськи нет но код ща напишу!

Ответить

Брось на форму таймер с интервалом 50 вставь код запусти программу, кликни на адрес и нажми F2 по идеи всё должно работать, хорошо было бы если ты Html код кинул!

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SETFOCUS As Long = &H7

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Sub item(item1 As String, item2 As String, item3 As String, item4 As String, item5 As String)

hWnd2 = FindWindow("IEFrame", vbNullString) 'Или hWnd2 = FindWindow( vbNullString,name) - где name заголовок окна

hWnd2 = FindWindowEx(hWnd2, 0, "WorkerW", vbNullString)

hWnd2 = FindWindowEx(hWnd2, 0, "ReBarWindow32", vbNullString)

hWnd2 = FindWindowEx(hWnd2, 0, "ComboBoxEx32", vbNullString)

hWnd2 = FindWindowEx(hWnd2, 0, "ComboBox", vbNullString)

hWnd2 = FindWindowEx(hWnd2, 0, "Edit", vbNullString)

SendMessage hWnd2, WM_SETFOCUS, 0, 0

SendKeys "{TAB}"

SendKeys item1

SendKeys "{TAB}"

SendKeys item2

SendKeys "{TAB}"

SendKeys item3

SendKeys "{TAB}"

SendKeys item4

SendKeys "{TAB}"

SendKeys item5

'Если надо нажать на кнопку то сними коментарии

'SendKeys "{TAB}"

'SendKeys "{Enter}"

End Sub

Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyF2) Then item "VB", "VisualBasic", "MS VB", "vb - cool!", "Yo!"

End Sub

Ответить

БОЛЬШОЕ СПАСИБО!

Ответить

Чё типа всё работает?

Ответить

Проверю щас

Ответить

напиши результат

Ответить

ИДЕАЛЬНО! ТЫ - ГЕНИЙ!

Ответить

Ok,рад помочь

Ответить