Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
ala-x
-
- Продвинутый пользователь
-
-
- Сообщения: 143
- Зарегистрирован: 16.05.2009 (Сб) 16:03
ala-x » 28.05.2009 (Чт) 18:37
Как передать HTTP-заголовок,сайту на который совершается переход?
В компоненте WebBrowser1 делаю программно переход.Но сайт который открывается не определяет страницу с которой я пришёл.Как это исправить?Дайте пожалуйста пример кода или ссылку где можно почитать об этом.
-
Хакер
-
- Телепат
-
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
-
Хакер » 28.05.2009 (Чт) 19:03
Если ты делаешь переход вручную, значит ты не пришёл ни с какой страницы. Всё правильно.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
-
ala-x
-
- Продвинутый пользователь
-
-
- Сообщения: 143
- Зарегистрирован: 16.05.2009 (Сб) 16:03
ala-x » 28.05.2009 (Чт) 19:12
Нет я открываю сайт в WebBrowser1 и программно нахожу ссылку для перехода.Далее программа сама переходит по ссылке на другой сайт.А вот статистика другого сайта меня не видит вообще.(Пишет что мол переход сделан ,а вот откуда--не знаю.)Можно ли дать при переходе адрес страницы с которой я пришёл?
-
Хакер
-
- Телепат
-
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
-
Хакер » 28.05.2009 (Чт) 19:20
Каким образом (интересует код) ты переходишь по ссылке?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
-
ala-x
-
- Продвинутый пользователь
-
-
- Сообщения: 143
- Зарегистрирован: 16.05.2009 (Сб) 16:03
ala-x » 28.05.2009 (Чт) 19:23
да..я перехожу по ссылке(с одного сайта на другой).Проблема в том что другой сайт этого почему то не замечает.
Нужно сайту(2) передать адрес сайта(1)
-
Хакер
-
- Телепат
-
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
-
Хакер » 28.05.2009 (Чт) 19:29
Если на вопрос «Каким образом» ты отвечаешь «Да», то я могу только поздравить тебя и пожелать успехов.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
-
ala-x
-
- Продвинутый пользователь
-
-
- Сообщения: 143
- Зарегистрирован: 16.05.2009 (Сб) 16:03
ala-x » 28.05.2009 (Чт) 19:32
А....Извините.Я не понял ваш вопрос..Вот код:
- Код: Выделить всё
While WebBrowser1.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
On Error Resume Next
For Each testlink In WebBrowser1.document.links
On Error GoTo 0
If InStr(1, testlink.href, Text4.Text, vbTextCompare) Then
testlink.Click 'Сам клик по ссылке
Text7 = testlink
Exit For
End If
Next testlink
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 72