Программное обеспечение для контекстной рекламы

Question

Я взял на себя проект по написанию рекламной (а не шпионской программы! Это этично и законно) программы для компании.

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

Что мне нужно сделать, так это создать программу, которая будет открывать новый экземпляр IE каждый раз, когда в адресной строке отображается определенный URL.

Таким образом, если пользователь переходит на http://google.com, то появляется определенное объявление (это программное обеспечение подключено к Интернету, поэтому оно знает, что выскакивать)

Мой вопрос: с чего начать? Должен ли я использовать VB.NET для этой программы?

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

Answer 1

• http://support.microsoft.com/kb/973764
• http://msdn.microsoft.com/en-us/library/bb735853(v=vs.85).aspx
• http://msdn.microsoft.com/en-us/library/bb735854(v=VS.85).aspx
• http://msdn.microsoft.com/en-us/library/bb188743.aspx
• http://msdn.microsoft.com/en-us/library/aa753587(v=VS.85).aspx

Answer 2

Да, вы можете сделать это через VB.Net. Вам необходимо использовать объект InternetExplorer . Он предоставляет множество свойств, позволяющих автоматизировать IE.

Чтобы использовать эти объекты, вам нужно добавить ссылку COM в ваш проект для Microsoft Internet Controls. Различные версии IE используют разные DLL; IE7 - это ieframe.dll, IE6 - это SHDocVw.dll. Чтобы ваш код работал на обеих версиях, вам следует избегать использования только функций IE7 и использовать позднюю привязку / интерфейс COM вместо ранней привязки.

Одна проблема, с которой вы столкнетесь, заключается в том, что объект InternetExplorer создает только новые экземпляры, но не подключается к существующим. Вот некоторый код, который позволит вам подключаться к существующим объектам:

Dim Existing As New List(Of SHDocVw.InternetExplorer)
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer

For Each IE In SWs
    'Add this instance to the list
    Existing.Add(IE)
Next