Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Клик по кнопке на окне, Нейтрализатор отладчика IE 
V
    Опции темы
ProgramerForever
Дата 20.3.2008, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Я прекрасно понимаю, что тема избитая. но всё равно не выходит.
Код

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


Const BM_CLICK = &HF5
 

Private WndWind As Long ' Описатель окна




Private Sub Timer1_Timer()
    WndWind = FindWindow("Ошибка сценария Internet Explorer", vbNullString) 'Ищем окно
    MsgBox Str(WndWind)'ПОЛУЧАЕТСЯ 0!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    If WndWind <> 0 Then
        WbdButton = FindWindowEx(WndWind, 0, "&Нет", vbNullString) 'Ищем кнопку на окне
        Call SendMessage(WbdButton, BM_CLICK, 0, 0) 'Клик
    End If
End Sub
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Надо просто поменять местами - сначала идет класс, затем заголовок... smile

Код

WndWind = FindWindow(vbNullString, "Свойства обозревателя")


Добавлено через 1 минуту и 51 секунду
Ой! - я тестил на Свойствах обозревателя. Не забудь заменить заголовок...

Добавлено через 7 минут и 35 секунд
Кстати - с поиском кнопки кажется также надо сделать...

Это сообщение отредактировал(а) I_Am_Rock - 20.3.2008, 19:10
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Кнопку Нет не находит
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Насчет кнопки - см. выше
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Не выходит
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Скажи, как мне вызвать это окно (Ошибка сценария Internet Explorer) - и я потестю...
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
грузи сайт любой. Со скриптом.

Добавлено через 7 минут и 28 секунд
А если просто пробел или ввод на окно кидать?
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Цитата(ProgramerForever @ 20.3.2008,  19:31)
грузи сайт любой. Со скриптом.

Добавлено @ 19:38
А если просто пробел или ввод на окно кидать?


Опиши подробно - как вызвать это окно. А то я не догнал.  smile 

И попробуй пока убрать амперсанд (&)
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Оно появляется, когда IE находит синтаксическую ошибку в коде страницы. Запусти корявый скрипт какой-нибудь
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Никак не могу сделать корявый скрипт! Наверное, я слишком талантливый программист.smile
Напиши мне "корявый скрипт" (полностью, с html)

Вообще-то я добиваюсь этого, но лишь отображения с ошибками, т.е. никакие окна не открываются...
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 20:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Да я сам не могу. Уже всё перепробовал.

(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)
Что такое hWnd1 и hWnd2? lpsz1 и lpsz2?

Может через sendmessage отправлять Esc? Так тоже пойдёт. Скажи код Esc.
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
Цитата(ProgramerForever @ 20.3.2008,  20:20)
Да я сам не могу. Уже всё перепробовал.

(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)
Что такое hWnd1 и hWnd2? lpsz1 и lpsz2?

Может через sendmessage отправлять Esc? Так тоже пойдёт. Скажи код Esc.

Ты кажется не понял - я не могу скрипт "корявый" сделать... Если бы я видел само окно, я бы разобрался.

А как ты хочешь отправить Esc через СендМесседж? Я умею только через КейбдЕвент...

Вот виртуальный код Эскейпа - (VK_ESCAPE = &H1B)

Добавлено через 2 минуты и 1 секунду
А эта кнопка Нет случайно не находится ни в каком фрейме? Просто, если она наход. в рамке, то сначала нужно найти окно, потом рамку, потом только кнопку...
PM MAIL WWW   Вверх
ProgramerForever
Дата 20.3.2008, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Вот так:
Код


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 Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Const VK_esc = 27
Const KEYEVENTF_KEYUP = &H2
Const BM_CLICK = &HF5

Private WndWind As Long ' Îïèñàòåëü îêíà


Private Sub Form_Load()
    Me.Hide
End Sub

Private Sub Timer1_Timer()
    WndWind = FindWindow(vbNullString, "Îøèáêà ñöåíàðèÿ Internet Explorer") 'Èùåì îêíî
    If WndWind <> 0 Then
        WbdButton = FindWindowEx(WndWind, 0, "&Íåò", vbNullString) 'Èùåì êíîïêó íà îêíå
        
        SetWindowPos WndWind, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
        keybd_event VK_esc, 0, 0, 0
        keybd_event VK_esc, 0, KEYEVENTF_KEYUP, 0
        SetWindowPos WndWind, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
        
        'Beep
    End If

    WndWind = FindWindow(vbNullString, "Îøèáêà") 'Èùåì îêíî
    If WndWind <> 0 Then
        WbdButton = FindWindowEx(WndWind, 0, "Íåò", vbNullString) 'Èùåì êíîïêó íà îêíå

        SetWindowPos WndWind, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
        keybd_event VK_esc, 0, 0, 0
        keybd_event VK_esc, 0, KEYEVENTF_KEYUP, 0
        SetWindowPos WndWind, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE

    End If
End Sub


Хотя бы так...

Добавлено через 1 минуту и 43 секунды
Цитата(I_Am_Rock @  21.3.2008,  00:28 Найти цитируемый пост)
сначала нужно найти окно, потом рамку, потом только кнопку...

Да. я знаю, что так.
PM MAIL WWW ICQ   Вверх
I_Am_Rock
Дата 20.3.2008, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15
А почему в этом коде "&Нет" и "vbNullString" опять не на своих местах? Неужели так работает? Не понимаю...
PM MAIL WWW   Вверх
JusTalionis
Дата 20.3.2008, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17
Ребят, Бог вам в помощь, но ваще-т в IE есть соответствующие галочки, чтобы не вызывался этот отладчик... У меня он тоже на каждом сайте выскакивал, я отменил в "Свойствах обозревателя"\Дополнительно... кажется...
Две галочки там на эту тему.
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0897 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.