Автозаполнение форм

[Rostik Ultra (2)]

Как заполнить поля в гостевых или на досках объявлений ?

[Шнурок]

Код: Выделить всё

Private Sub Timer1_Timer()
On Error Resume Next
    a = "http://www.narod.ru/guestbook/?owner=" & Int(Rnd * 100000)
    w1.Navigate2 a
    Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If w1.LocationName = "404" Then Command4_Click
End Sub

Private Sub w1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
    If w1.Busy = False Then
        w1.Document.All("your_name").Value = t1
        w1.Document.All("your_url").Value = t2
        w1.Document.All("your_message").Value = t3
        w1.Document.Forms(0).submit
        Timer1.Enabled = True
    End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
    a = "http://www.narod.ru/guestbook/?owner=" & Int(Rnd * 100000)
    w1.Navigate2 a
End Sub

t1 t2 t3 - текстбоксы

[Rostik Ultra (2)]

Шнурок

Код не работает, КСТАТИ я не юзаю дополнительные контролы для открытия страницы в броузере :

Код: Выделить всё

Option Explicit
    Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
    lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long)
             Const SW_SHOWNORMAL = 1
    Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Sub Label1_Click()
    Dim Ie As Object
        Set Ie = CreateObject("InternetExplorer.Application")
            Ie.Navigate "http:\\mentalprograms.narod.ru"
            Ie.MenuBar = 1
            Ie.ToolBar = 1
            Ie.StatusBar = 1
            Ie.AddressBar = 1
            Ie.Visible = 1
End Sub

Как автозаполнить поля исходя из этого кода ?

[RUSYA]

винсок + post запрос

[Rostik Ultra (2)]

винсок + post запрос

А без дополнительных контролов нельзя ?

[Шнурок]

Что то вроде:

Код: Выделить всё


dim id as long
dim msg as string, nic as string, url as string
id = Int(Rnd * 100000)
Winsock1.SendData "POST /guestbook/?owner=id&your_message="&msg&"&your_url="&url&"&your_name="&nic&" HTTP/1.1" & vbCrLf
Winsock1.SendData "Host: www.narod.ru" & vbCrLf
Winsock1.SendData vbCrLf
'или (for i=0 to 10000000 ... id=i ... next)     


скорее всего тут есть ошибка и не одна

[Rostik Ultra (2)]

А без дополнительных контролов нельзя ?

[alibek]

Можно.
Через API-шные сокеты.

[Rostik Ultra (2)]

Можно.
Через API-шные сокеты.

Приведи плз пример кода

ЗЫ : как кстати потм закрыть вызванное ранее окно браузера

[alibek]

Примеры в поиске.

P.S. Причем тут сокеты и браузер?

[DirectXManiac]

НИЧЕГО CЕБЕ НАРОД!СПАСИБО - ЁПТ.ПОЖАЛУЙСТА - ВЫРУЧАЙТЕ.
НЕХОРОШО
З.Ы Было бы другое отношение - помогли бы, а так извини "ёпт"

[Odrick]

Тьфу, народ вы чего???

Код:
Option Explicit
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)
Const SW_SHOWNORMAL = 1
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Sub Label1_Click()
Dim Ie As Object
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "http:\\mentalprograms.narod.ru"
Ie.MenuBar = 1
Ie.ToolBar = 1
Ie.StatusBar = 1
Ie.AddressBar = 1
Ie.Visible = 1
End Sub


Как автозаполнить поля исходя из этого кода ?

Ie.Document.All("my_field").value = "My_Vale"

Что еще нужно для автозаполнения?

[Rostik Ultra (2)]

Примеры в поиске.

Не нашёл то что нужно

Odrick

Код: Выделить всё

Ie.Document.All("my_field").value = "My_Vale"

не работает

ЗЫ : DirectXManiac Какие претензии ?

[Odrick]

Odrick

Код: Выделить всё

Ie.Document.All("my_field").value = "My_Vale"

не работает

Вот чудак человек... (не в обиду).

Держи пример с использованием твоего подхода к работе с IE и автозаполнения, как я и говорил. Пример открывает Google, заполняет нужные поля и нажимает кнопу "Поиск".

[Rostik Ultra (2)]

Odrick Спасибо за код, а какое на этой странице http://www.narod.ru/guestbook/?owner=23452125 имя кнопки ?? как блин её нажать ?

ЗЫ : как получить hwnd открывшегося с помощью этого кода окна (чтобы потом его закрыть)

[DirectXManiac]

ГЫ!В поиск, не по форуму так по статьям в интернете!

[keks-n]

Rostik Ultra (2)
Какое имя кнопки? Жмёшь по открытому документу левой кнопочкой и видишь "Просмотр HTML кода", тебе туда. Находишь твм форму и смотришь у кого какие имена.

[Odrick]

Rostik Ultra (2), ты хоть компоненты иногда просматривай... Да их свойства и методы. Закрытие окна: Ie.Quit. В крайнем случае хендл получить тоже элементрано: Ie.HWND

По поводу имен объектов на HTML-страницах - в DOM тебе прямая дорога. Учи HTML и все станет для тебя понятно На крайняк возьми мой HTML Spy: http://bbs.vbstreets.ru/viewtopic.php?t=20244 или другой подобный плагин.

[Antonariy]

Rostik Ultra (2)
У кнопки может не быть имени или id. Если тебе всего лишь нужно отправить форму, то делай Document.Forms(0).Submit

[Odrick]

Именно. Ну и точно так же, если какой-нить объект не имеет имени или id, то доступ к нему можно получить по его порядковому номеру в коллекции All. Например:

Ie.Document.All(25).value = "MyValue"

[Rostik Ultra (2)]

Rostik Ultra (2)
Какое имя кнопки? Жмёшь по открытому документу левой кнопочкой и видишь "Просмотр HTML кода", тебе туда. Находишь твм форму и смотришь у кого какие имена.

Это я знал и до этого, нажал, открыл, просмотрел, не нашел , поэтому и спросил

Odrick спасибо за Ie.Quit

Antonariy спасибо за Document.Forms(0).Submit

[Rostik Ultra (2)]

А как осуществить поиск слов на открытой странице ? Document.Forms(0).Search или Ie.Search (или что то вроде этого)

[neic]

Народ! А если имя кнопки незивестно и Document.Forms(0).Submit не помогает что делать?

[Kovu]

neic
Пить йод. бутылками.

[neic]

Блин... А ты что-нить придумал на эту тему? или тоже мучаешься?

[Kovu]

neic
Понимаешь, мне это было нужно один раз для заполнения БД пользователей форума. И соответственно узнать имя поля было легко, заглянув в хтмл код. А в чем выражается неизвестность названия у тебя?

[neic]

Ну на сайте много конопок и всё как я понял имеют одно название(или калсс), корче шлю Submitm, а он мне какую-то хрень выдаёт.

П.с. это поповоду хаялвы в сети.

[Kovu]

Так раз тебе известно содержимое страницы, посмотри название нужной кнопки. Оно уникальное(класс может быть и одинаковым для разных элемнтов, но не название)

[neic]

Дык если бы название было, то и небылобы проблем, а класс у всех общий!

[Kovu]

neic
дай ссылку на страницу