Сейчас на форуме: tyns777, JustLife, zds, 2nd, morgot, Rio, CDK123, tihiy_grom (+4 невидимых)

 eXeL@B —› Программирование —› Надстройка (plug-in) в IE ил Opera на VB (VB.NET)!
Посл.ответ Сообщение


Ранг: 158.5 (ветеран), 219thx
Активность: 0.12↘0.01
Статус: Участник

 Создано: 31 января 2009 07:50
· Личное сообщение · #1

Доброго времени суток!

Вопрос в-общем то таков:
Где можно взять исходники надстройки для IE или Opera на Visual Basic (Visual Basic NET)??

Перерыл весь интернет, но ничего похожего не нашел! А документацию читать лень... Может есть у кого в заначке?

-----
One death is a tragedy, one million is a statistic.

Ранг: 48.2 (посетитель), 49thx
Активность: 0.04↘0
Статус: Участник

 Создано: 31 января 2009 09:12
· Личное сообщение · #2

www.planet-source-code.com/ - тут посмотри, может найдешь




Ранг: 158.5 (ветеран), 219thx
Активность: 0.12↘0.01
Статус: Участник

 Создано: 31 января 2009 09:24
· Личное сообщение · #3

LIZARD
К сожалению ничего путного там не нашел!

-----
One death is a tragedy, one million is a statistic.

Ранг: 516.1 (!), 39thx
Активность: 0.28↘0
Статус: Участник

 Создано: 31 января 2009 13:57
· Личное сообщение · #4

www.google.ru/search?hl=ru&q=bho+vb.net&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=&aq=f&oq=




Ранг: 158.5 (ветеран), 219thx
Активность: 0.12↘0.01
Статус: Участник

 Создано: 31 января 2009 14:29
· Личное сообщение · #5

Av0id
Ах вот как это обзывается... Спасибочки... Будем искать!

Но к сожалению, хотелось бы пример найти.... Чтоб взять да и проанализировать! Ленивый наверное я....

-----
One death is a tragedy, one million is a statistic.

Ранг: 3.7 (гость), 3thx
Активность: 0.01↘0
Статус: Участник

 Создано: 01 февраля 2009 20:02 · Поправил: KingOfSpirits
· Личное сообщение · #6

Привет!

Писал я такую фиговинку для чувачков и на VB, и на C++.
Скажу, что на VB - геморой... Может, еще передумаешь и сделаешь на C++

Под Plugin можно понимать разное, поэтому общий принцип такой:
- есть BHO (Browser Helper Object)
- а есть Custom Toolbar / Button (дополнительно 1-2 интерфейса понадобиться имплементировать)


В основном делается так: в одну DLL запихиваются два "BHO" - один из них Toolbar, а другой BHO - это скрытый (его не видно визуально, но он стартует вместе с IE, если его в списке AddOns не отключить вручную ) "Орбитер", который например следит за авто-активацией и т.п.

Какая разница?! Простая... Если юзер отклучит тулбар, то он перестанет реагировать на все Events от IE, а "скрытый" BHO, будет активным, пока его вручную в списке AddOns не деактивировать - на что хватает мало кого, т.к. обычный юзер не проверяет регулярно список AddOns

Это все грубо и очень обобщенно, но если будут вопросы - отвечу

Примерчик имплементации обычного BHO...

Code:
  2. Option Explicit
  4. Implements IObjectWithSite
  6. Private my_BrowserObject As PluginLibrary.IUnknownVB ' Browser Object
  7. Attribute my_BrowserObject.VB_VarHelpID = -1
  9. Private my_IE As InternetExplorer
  12. ' ########### IObjectWithSite IMPLEMENTATION ##########
  15. Private Sub IObjectWithSite_GetSite(priid As PluginLibrary.GUID, ppvObj As stdole.IUnknown)
  16.    
  17.     Dim result As Long
  18.     result = my_BrowserObject.QueryInterface(priid, ppvObj)
  19.     If result Then Err.Raise result
  21. End Sub
  24. Private Sub IObjectWithSite_SetSite(ByVal pSite As PluginLibrary.IUnknownVB)
  25.        
  26.    On Error Resume Next
  27.       
  28.    Set my_BrowserObject = pSite
  29.    Set my_IE = pSite
  30.                       
  31.    If Not my_IE Is Nothing Then
  32.          
  33.       If InStr(1, my_IE.FullName, "iexplore.exe", vbTextCompare) <> 0 Then
  34.       
  35.          Dim opt As Options
  36.          Set opt = New Options
  37.                   
  38.          opt.ProgStartInit
  39.          
  40.          Dim tmpStr As String
  41.          tmpStr = opt.IEToolbarAutoActivated
  43.          If (InStr(1, tmpStr, "yes", vbTextCompare) = 0) Then
  44.             
  45.             Call my_IE.ShowBrowserBar(CLSID_Plugin, True)
  46.             opt.IEToolbarAutoActivated = "yes"
  47.          
  48.          End If
  49.          
  50.          Set opt = Nothing
  51.         
  52.       End If
  53.       
  54.       
  55.    Else
  56.    
  57.       Set my_IE = Nothing
  58.       
  59.    End If
  61. End Sub




Ранг: 309.8 (мудрец), 21thx
Активность: 0.17↘0
Статус: Участник

 Создано: 02 февраля 2009 04:22
· Личное сообщение · #7

msdn.microsoft.com/en-us/library/bb250489(VS.85).aspx нормальная статья об основах написания BHO.

-----
Shalom ebanats!

Ранг: 516.1 (!), 39thx
Активность: 0.28↘0
Статус: Участник

 Создано: 02 февраля 2009 08:21
· Личное сообщение · #8

m$ дает качественные туторы по написанию adware


 eXeL@B —› Программирование —› Надстройка (plug-in) в IE ил Opera на VB (VB.NET)!
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати