VB и Internet Explore 6.x HELP PLSSSSS!!!

[Bov]

Доброго времени суток господа! Сного нужна помощ опытного знатока VB!!! Несколько вопросов:

1) Как можно получить текст из строки адреса в IE? (Главное)
2) Как можно внести текст в строку адреса IE?
3) Как можно внести текст в строку адреса IE и сразу же перейти по ней?

Буду очень очень признателен елси добрые люди напишут код! Заранее спасибо братья!

[ALX_2002]

Хм.... Для того чтобы ответить на твои вопросы нужно знать

1) Как связано окно IE с твоим приложением ? Это отдельно окно или оно результат создания InternetExplorer.Application или IE запущен твоим процессом.

2) В чём нужно написать код в среде VB или же на VBScript

[Bov]

Мое приложение работает отдельно в фоне.
Окно IE никак не связано с моим приложением.
Тип приложения Standart EXE.
Среда VB.

Например

Private Sub get_ad(adr)
' код
End Sub

Private Sub past_ad(adr)
' код
End Sub

Private Sub go_ad(adr)
' код
End Sub

[ALX_2002]

Для начала тебе нужно подключить библиотеки к проекту mshtml.tlb и shdocw.dll

shdocw.dll позволит тебе доступиться к коллекции окон Explorer-а, а mshtml.tlb к свойствам и событиям HTMLDocument-а

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

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()
    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            Document.url = "http://www.ya.ru"
        End If
    Next
End Sub

Далее вставляешь такой код в форму. К примеру это позволит тебе все окна IE редиректнуть на яндекс. Дальше тебе остаётся написать условие отбора и решить какое окно ты хочешь использовать

[Bov]

Спасибо огромное!!! А прямым кодом VB как я отписал по функциям если не сложно, ПОЖАЛУЙСТА!!!!!!!!!!!! Не очень понимаю в этом.

[ALX_2002]

1) Дружище, ну ты ждёшь, что за тебя вообще всё сделают )) Где творческий полёт идеи и желание добиться чего то самостоятельно ?

2) Опять же - я ж не знаю в каком окне ты собираешся менять текст. Если у тебя окон 10 открыто. В каком менять то ?

[Хакер]

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

[Konst_One]

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

[Bov]

Ребят, знаний достаточно но нет совсем знаний по взаимодействую с иными приложениями =(

Нужно поменять во всех окнах, но хотя бы пример для одного окна... Вчера пол ночи прокопался так ничего и не нашел....

А на счет шпиона - вы не правы. У меня ребенок и я хочк что бы когда в строке адреса internet explore было что то типа: sex, porno, adult, star, girl, nude Это все менялось на about:blank. По заголовкам окна я уже сделал, а вот теперь нужен финдер по строке адреса ........
Помогите плз вполне мировая задача! Потос как допишу - выложу - отличная вещ, сворачиваеться в треЙ, конт роль можно снять только паролем =)

[Konst_One]

если у тебя ребенок, то купи бебиситтер программу и не мучайся

[Bov]

если у тебя ребенок, то купи бебиситтер программу и не мучайся

Знаю и Advanced Baby Sitter и т.д. но все уже готово, осталось только с интернетом решить. а что так сложно помочь? Вы же все знаете... =)

[Хакер]

Bov
А что если ребёнок захочет найти на сайт musexperts.com, rapornotes.com?

[Konst_One]

тебе все подсказали, дальше самому можно
еще поищи по форуму примеры работы с IE от Antonariy

[Bov]

Bov
А что если ребёнок захочет найти на сайт musexperts.com, rapornotes.com?

Это все верно конечно, но думаю пару УРЛОВ не составят большой конкуренции тысячам адалтовских + ещё сферинг по заголовкам окон IE даст больший % отсечение "белых" ресурсов. Объясните дураку как подключать dll библиотеки...

[Antonariy]

2) Внести-то можно, но без толку. IE все равно поменяет на текущий.

Если вас так беспокоит этот вопрос, могу посоветовать не заниматься ерундой в интернете, когда ребенок пялится в монитор. Ребенку нужно выделить отдельную учетную запись, в которую ваше палево не проникнет.

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

[Konst_One]

могу только предположить, что ваш ребенок в итоге будет лазить в инет у своего приятеля, где вы не в силах его контролировать. поэтому советую пересмотреть свою стратегию общения с ним.

а если вы пишите коммерческий софт , то и сразу говорите об этом тут, а не вводите людей в заблуждение.

[Хакер]

Bov
В конце концов, страницы можно смотреть во фреймах, в HtmlHelp-е, скачивать download-manager-ами.

Есть множетсов порносайтов, которые нельзя отнести к таковым по названию.

Вобщем, мне кажется - решение бредовое.

[ALX_2002]

У блин, какие все опытно порнокачальщики ))) Погодите, погодите - ща запишу как ещё мона порнуфку качать )))


2 Bov:
Ууу... Ну если цель такова, то вообще по хорошему это всё делается не так. Правильно вам папаш тут сказали. Не геморойтесь. Вопервых в самом IE есть специальный блокиратор.

Сервис -> Свойства обозревателя -> Вкладка Содержание.

Не знаю правда на сколько он хорошо работает. Сам никогда не юзал.

А так же настроить инет через другой комп ( сделать его шлюзом ) и уж на нём разгуляться с запретными адресами

Вот что приходит в голову.

[Belkin]

Что вы все такие советы даете...
Если это действительно ребенок, то он сможет только набрать строку адреса и щелкать мышкой...
А ВЫ...
Ну, а если этот ребенок до такого дойдет, то ему сначало придется сотни сайтов облазить из области компьютеризации и только потом...
А потом на столько эти порно сайтыбудут не интересны, а папаша будет гордится за свое чадо и сам снимит эти запреты.
Почемы бы не помочь человеку если Вы этим владеете...???
Что попросту заниматьсяя болтологией и давить клавиши?

[Bov]

В эксплоре не работает освершенно блокиратор порносайты появляються новый каждый день на \новом домене... УВЫ

[Antonariy]

Если это действительно ребенок, то он сможет только набрать строку адреса и щелкать мышкой...

И первая же строка адреса вдруг окажется порноресурсом? Скорее сто миллионов обезьян за сто миллионов лет напишут Войну и Мир. Вопрос ребенку: откуда ты узнал этот адрес?

Мы даем такие советы как раз потому, что владеем вопросом. Ставить подобные защиты все равно что бороться с пиратством защищая диски - защита снимется либо тем, кому надо, либо не сработает в одном случае из ста. С порнухой этот процент гораздо выше, потому что в том или ином виде она есть везде, даже на этом сайте. На львиной доле сайтов она даже не связана с соответствующими ключевыми словами в контенте, про адресную строку вообще молчу. Или как вам такой пример - на сайте задорно.ком раньше все пользователь назывались бармалеями. А ребенку возьми да и приди в голову поискать этого персонажа в яндексе. Шанс зайти куда не надо представлен в полный рост.

Если вера в торжество технологий все еще слепа - тынц. Однако это не поможет, если чадо вруг сменит броузер.

[Lumen]

Попробуй ещё здесь посмотреть.
http://alonewolfsoft.narod.ru/page16.htm
Если надо, я те кейген сделаю.

[Bov]

Antonariy спасибо огромное. как допишу выложу проект -там уж и решим что получилось....

[RayShade]

Если надо фильтровать контент, поставь Outpost Firewall

[DKbelRoma]

Lumen Мне очень нужна информация по написанию Клавиотурных шпионов - если ты в этой сфере спец ? то пожалуйста обьясни или выложи какуюто информацию по этой теме!:) Заранее спасибо!

[SkYPEX]

А как определить что произошла смена URL в адресной строке браузера?

[Antonariy]

Постоянно отслеживая текст через hwnd адресной строки.