Помогите разобраться

[theal]

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
  Set Page = WebBrowser1.Document
End Sub

а на что смотреть?

[Qwertiy]

а на что смотреть?

На него собственно.

[icode] Set Page = WebBrowser1.Document

Что это???

[theal]

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)

      If e.Url.toString().StartsWith("http://googleads.g.doubleclick.net/pagead/ads?client=ca-pub-7481866188445527&output=html&h=280&slotname=3682958945&w=336&lmt=1358106654&ea=0&flash=11.6.602.137&url=http://porschecayenneauto.narod.ru/&dt=1358106654391&shv=r20130102&jsv=r20121214&saldr=1&correlator=1358106654415&frm=20&adk=1656017953&ga_vid=1066074885.1358106654&ga_sid=1358106654&ga_hid=606056404&ga_fc=0&u_tz=240&u_his=0&u_java=1&u_h=1080&u_w=1920&u_ah=1050&u_aw=1920&u_cd=32&u_nplug=0&u_nmime=0&dff=arial&dfs=0&adx=0&ady=0&biw=1903&bih=1028&oid=3&docm=7&fu=0&ifi=1&dtd=32") Then
        If Not GoogleAdd Then
          GoogleAdd = True
          Webbrowser1.Navigate (e.Url)
        Else
          For Each Link In Webbrowser1.Document.links
            If MsgBox(Link.getAttribute("href"), vbYesNo, "Do you want to click it?") = MsgBoxResult.Yes Then
              Link.InvokeMember ("click")
              Exit For
            End If
          Next Link
        End If
      End If
    End Sub

End Sub


не то? сам понимаю что не то

[Qwertiy]

не то?

По крайней мере код там где нужно. Но твоё изменение условия в if неверное.
К тому же, это не будет работать в таком виде из-за использования VB.NET-действий.
Продолжай исправлять.

[theal]

в каких строках надо менять?

[Qwertiy]

в каких строках надо менять?

Во всех, где среда показывает ошибки. В том числе при выполнении.
Кстати, ты Option Explicit написать не забыл?

[theal]

сейчас вписал...только не знаю на что исправить GoogleAdd

[Qwertiy]

только не знаю на что исправить GoogleAdd

А это-то зачем исправлять? Булевские переменные вполне существуют.

[theal]

на этой записи ошибку выдаёт variable not defined

[Qwertiy]

на этой записи ошибку выдаёт variable not defined

Значит её надо объявить. У меня-то она объявлена.

[theal]

проверь пожалуйста что не так

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

Option Explicit
Private GoogleAdd As Boolean
Dim testlink
Private Sub Command1_Click()

        If GoogleAdd = False Then
          GoogleAdd = True
          Web.Navigate "http://googleads.g.doubleclick.net/pagead/ads?client=ca-pub-7481866188445527&output=html&h=280&slotname=3682958945&w=336&lmt=1358106654&ea=0&flash=11.6.602.137&url=http://porschecayenneauto.narod.ru/&dt=1358106654391&shv=r20130102&jsv=r20121214&saldr=1&correlator=1358106654415&frm=20&adk=1656017953&ga_vid=1066074885.1358106654&ga_sid=1358106654&ga_hid=606056404&ga_fc=0&u_tz=240&u_his=0&u_java=1&u_h=1080&u_w=1920&u_ah=1050&u_aw=1920&u_cd=32&u_nplug=0&u_nmime=0&dff=arial&dfs=0&adx=0&ady=0&biw=1903&bih=1028&oid=3&docm=7&fu=0&ifi=1&dtd=32"
        Else
          For Each testlink In Web.Document.links
            If MsgBox(testlink.getAttribute("href"), vbYesNo, "Do you want to click it?") Then
              testlink.Click
              Exit For
            End If
          Next testlink
        End If
     
End Sub



Private Sub Form_Load()
Web.Navigate "http://porschecayenneauto.narod.ru/"
      End Sub
Private Sub WebB_DocumentComplete(ByVal pDisp As Object, Url As Variant)
If GoogleAdd = False Then
          GoogleAdd = True
          Web.Navigate "http://googleads.g.doubleclick.net/pagead/ads?client=ca-pub-7481866188445527&output=html&h=280&slotname=3682958945&w=336&lmt=1358106654&ea=0&flash=11.6.602.137&url=http://porschecayenneauto.narod.ru/&dt=1358106654391&shv=r20130102&jsv=r20121214&saldr=1&correlator=1358106654415&frm=20&adk=1656017953&ga_vid=1066074885.1358106654&ga_sid=1358106654&ga_hid=606056404&ga_fc=0&u_tz=240&u_his=0&u_java=1&u_h=1080&u_w=1920&u_ah=1050&u_aw=1920&u_cd=32&u_nplug=0&u_nmime=0&dff=arial&dfs=0&adx=0&ady=0&biw=1903&bih=1028&oid=3&docm=7&fu=0&ifi=1&dtd=32"
        Else
          For Each testlink In Web.Document.links
            If MsgBox(testlink.getAttribute("href"), vbYesNo, "Do you want to click it?") Then
              testlink.Click
              Exit For
            End If
          Next testlink
        End If
    End Sub




в принципе клик получился, но может какие ошибки есть?

[Qwertiy]

проверь пожалуйста что не так

Да почти всё не так. Ты будешь думать или нет? Сделай как у меня пропустив куски про реестр и WinApi.

[theal]

блин...если честно ----я не знаю как

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

'imports System.Text

    'Public Class Form1

    'Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Long
    'Public Const WM_SETTINGCHANGE As Integer = &H1A

    'Private IEOptions As Microsoft.Win32.RegistryKey = Nothing, Images As Object = Nothing
    Private GoogleAdd As Boolean

Это разве нужно?

[Qwertiy]

Это разве нужно?

Там всё нужно, кроме реестра и WinApi.
И особенно, там нужна проверка url, которую ты удалил. И не нужна обработка клика. И не нужно менять url на то, что у тебя.
То, что ты закомментировал - можешь убрать.

[theal]

что это?

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

imports System.Text
Public Class Form1
Public Const WM_SETTINGCHANGE As Integer = &H1A

    Private IEOptions As Microsoft.Win32.RegistryKey = Nothing, Images As Object = Nothing


[theal]

если не трудно отметь где убрать.Или убери сам.Я действительно не знаю что убирать и на что менять
ПОЖАЛУЙСТА

[Qwertiy]

здесь ошибки пишет

Это не надо:

То, что ты закомментировал - можешь убрать.

[theal]

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

это менять на private sub form load() ?
a с этим что,?

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

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

[Qwertiy]

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

это менять на private sub form load() ?
a с этим что,?Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Long

Я уже отвечал на оба вопроса.
1. Да.
2. Убрать.

[theal]

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

Private Sub Form_Load() 'Handles MyBase.Load
      '  Try
        '  IEOptions = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
        '  images = IEOptions.GetValue("Display Inline Images")
        '  SendMessage(Web.Handle, WM_SETTINGCHANGE, 0, 0)
     '   Catch Ex As Exception
        '  MsgBox (Ex.Message)
      ' End Try

      Web.Navigate ("http://porschecayenneauto.narod.ru/")
      GoogleAdd = False
    End Sub


правильно отключил?

[theal]

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

Private Sub Form_FormClose() 'ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormCloseEventArgs) 'Handles MyBase.FormClosed
      If IEOptions IsNot Nothing Then IEOptions.SetValue("Display Inline Images", Images)
      End
    End Sub

с этим не знаю что делать

[Qwertiy]

правильно отключил?

Да.

с этим не знаю что делать

Работу с реестром - убрать.
В необходимости End я не уверен в принципе, он стоит на всякий случай, можешь оставить, если не мешает.

PS: Я спать пошёл. Выложи код, утром гляну.

[theal]

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

Option Explicit

   
    Dim testlink
    Private GoogleAdd As Boolean

    Private Sub Form_Load()
     
      Web.Navigate ("http://porschecayenneauto.narod.ru/")
      GoogleAdd = False
    End Sub

   

    Private Sub Web_DocumentComplete(ByVal pDisp As Object, Url As Variant) 'Handles Web.DocumentCompleted
      If Web.Document.Url = ("http://googleads.g.doubleclick.net/pagead/ads") Then
        If Not GoogleAdd Then
          GoogleAdd = True
          Web.Navigate (Url)
        Else
          For Each testlink In Web.Document.links
             testlink.Click
              Exit For
          Next testlink
        End If
      End If
    End Sub



Только он не работает

[Qwertiy]

Только он не работает

Потому что проверка

If Web.Document.Url = ("http://googleads.g.doubleclick.net/pagead/ads") Then

неправильная сразу по двум причинам - не то сравниваешь (у меня не Document.Url) и не так сравниваешь (у меня не на равенство проверка).
А вот во втором месте поменял верно. Это что перебор такой - "где-нибудь да угадаю"?

testlink.Click

Всё-таки вывел бы MsgBox'ик посмотреть
Там лишние будут.
Но в данный момент у тебя вообще в первый if никогда не заходит.

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

      Web.Navigate ("http://porschecayenneauto.narod.ru/")
      GoogleAdd = False

На самом деле, эти строки надо поменять местами, хотя ни на что существенно не влияет. Во-первых, она и так False при инициализации, а во-вторых, DocumentComplete скорее всего не выполнится до этого присваивания.

    Dim testlink

Зачем объявлять её как переменную формы?

PS: Напоминаю, что в VB6 скобки у вызовов процедур не ставятся, отсюда у тебя перед ними пробел появиялся, показывающий, что аргумент интерпретируются как выражение, а не как переменная.

[NashRus]

theal, чувак тебя гугл спалит, обязательно спалит
и забанит на всю жизнь и правильно сделает.

[Qwertiy]

гугл спалит, обязательно спалит

Во-первых, как он узнает, если только в него не залогиниться? А во-вторых, зачем ему это надо? Он же деньги за рекламу получает, а не платит.

[theal]

Объясни пожалуйста с этой строкой

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

If Web.Document.Url = ("http://googleads.g.doubleclick.net/pagead/ads") Then

надо убрать знак равенства?

[Qwertiy]

Объясни пожалуйста с этой строкой

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

If Web.Document.Url = ("http://googleads.g.doubleclick.net/pagead/ads") Then

надо убрать знак равенства?

Читай:

неправильная сразу по двум причинам - не то сравниваешь (у меня не Document.Url) и не так сравниваешь (у меня не на равенство проверка).

ЧТО ЗНАЧИТ,.?
If e.Url.toString().StartsWith("http://googleads.g.doubleclick.net/pagead/ads") Then

Если url, загрузка которого завершилась, как строка начинается с "http://googleads.g.doubleclick.net/pagead/ads", то ...

[theal]

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

If Web.Document.Url.startwith("http://googleads.g.doubleclick.net/pagead/ads") Then

как заменить startwith
private testlink ?
так опять не то

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

If Web.Document.Ur.ltoString().startswith("http://googleads.g.doubleclick.net/pagead/ads") Then

[Хакер]

как заменить startwidth

Брось заниматься фигнёй.
Выучи английский.
Потом возвращайся.