|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
WebBrowserｿｽﾅスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾉょいｿｽN 2008/05/20(ｿｽｿｽ) 00:08:17
WindowsXpProｿｽiSP2ｿｽjVisualBasicｿｽDNET2003ｿｽ@Framework1.1
ｿｽｿｽLｿｽﾌ環具ｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAAxWebBrowserｿｽﾅＷｿｽdｿｽaｿｽyｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽ
ｿｽyｿｽ[ｿｽWｿｽﾌ撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉイｿｽxｿｽｿｽｿｽgｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇのようｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾎよいｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽｿｽﾉｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽ操作しｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽoｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉ変更ｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽQｿｽsｿｽﾆ２ｿｽRｿｽsｿｽﾉエｿｽｿｽｿｽ[ｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽ
ｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ListBoxｿｽﾈどゑｿｽWebBrowserｿｽﾈどに変更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ先がｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟ、ｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
01PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
02MyWebBrowser1.Name="MyWebBrowser1"
03MyWebBrowser1.Size=NewSize(500,500)
04MyWebBrowser1.Location=NewPoint(0,0)
05Me.Controls.Add(MyWebBrowser1)
06EndSub
07PrivateWithEventsMyWebBrowser1AsAxSHDocVw.AxWebBrowser
08PrivateClassMyWebBrowser
09InheritsAxSHDocVw.AxWebBrowser
10PublicEventScroll()
11ProtectedOverridesSubWndProc(ByRefmAsMessage)
12ConstWM_VSCROLLAsInteger=&H115I
13Ifm.Msg=WM_VSCROLLThen
14RaiseEventScroll()
15EndIf
16MyBase.WndProc(m)
17EndSub
18ProtectedOverridesSubOnMouseWheel(ByValeAsMouseEventArgs)
19Ife.Delta<>0Then
20RaiseEventScroll()
21EndIf
22EndSub
23ProtectedOverridesSubOnSelectedIndexChanged(ByValeAsEventArgs)
24RaiseEventScroll()
25EndSub
26EndClass
ｿｽﾉょいｿｽN 2008/05/20(ｿｽｿｽ) 00:51:13
ｿｽｿｽLｿｽﾅ記ｿｽqｿｽ‾ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
23ｿｽsｿｽ`25ｿｽsｿｽﾍｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌ趣ｿｽｿｽﾌ残ｿｽｿｽﾅ搾ｿｽｿｽｿｽﾍ関係ｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
07ｿｽsｿｽｿｽ
PrivateWithEventsMyWebBrowser1AsNewMyWebBrowser
ｿｽｿｽｿｽﾌようｿｽﾉ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
02ｿｽsｿｽｿｽ除ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
26PrivateSubMyWebBrowser1_Scroll()HandlesMyWebBrowser1.Scroll
27Stop
28EndSub
ｿｽｿｽｿｽﾌようｿｽﾉ変更ｿｽｿｽｿｽｿｽﾅ、ｿｽﾇゑｿｽｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ費ｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ会ｿｽｿｽLｿｽﾌようｿｽﾈ難ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽEｿｽ}ｿｽEｿｽXｿｽ{ｿｽ^ｿｽｿｽｿｽﾅスｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽEｿｽLｿｽ[ｿｽ{ｿｽ[ｿｽhｿｽﾌｿｽｿｽｿｽｿｽAPageUpｿｽAPageDownｿｽLｿｽ[ｿｽﾅは費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽEｿｽ}ｿｽEｿｽXｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽEｿｽ}ｿｽEｿｽXｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾅペｿｽ[ｿｽWｿｽﾌ擾ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉ達ｿｽｿｽｿｽﾈゑｿｽｿｽﾊ置ｿｽﾅゑｿｽ
ｿｽ@ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅは費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽEｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉ触ｿｽ黷ｽｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔで、
ｿｽ@ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽ繪ｺｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｪｿｽAｿｽLｿｽ[ｿｽ{ｿｽ[ｿｽhｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽﾈんだゑｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽﾆにゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ竭ｫｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/05/20(ｿｽｿｽ) 04:13:25
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽ阡ｲｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽB
'-----
ImportsSystem.Runtime.InteropServices
ImportsSystem.ComponentModel
PublicClassForm1
InheritsSystem.Windows.Forms.Form
'**WindowsｿｽtｿｽHｿｽ[ｿｽｿｽｿｽfｿｽUｿｽCｿｽiｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽRｿｽ[ｿｽh**
PrivateWithEvents_onscrollAsEventClass
PrivateWithEvents_onmousewheelAsEventClass
PrivatedocumentAsObject=Nothing
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
AxWebBrowser1.Navigate2("http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200805/08050024.txt")
EndSub
PrivateSubForm1_Closing(ByValsenderAsObject,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesMyBase.Closing
ReleaseDocument()
EndSub
PrivateSubReleaseDocument()
IfNotdocumentIsNothingAndAlsoMarshal.IsComObject(document)Then
Marshal.ReleaseComObject(document)
EndIf
EndSub
PrivateSubAxWebBrowser1_DocumentComplete(ByValsenderAsObject,ByValeAsAxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent)HandlesAxWebBrowser1.DocumentComplete
_onscroll=NewEventClass
_onmousewheel=NewEventClass
ReleaseDocument()
document=AxWebBrowser1.Document
Withdocument.body
.onscroll=_onscroll
.onmousewheel=_onmousewheel
EndWith
EndSub
PrivateSub_onscroll_OnEvent()Handles_onscroll.OnEvent
ListBox1.Items.Insert(0,"onscroll:"&Now.ToString("yyyy-MM-ddhh:mm:ss.ffff"))
EndSub
PrivateSub_onmousewheel_OnEvent()Handles_onmousewheel.OnEvent
DimwinAsObject=document.parentWindow
DimeventObjAsObject=win.event
ListBox1.Items.Insert(0,"onmousewheel:"&CStr(eventObj.wheelDelta))
IfNoteventObjIsNothingAndAlsoMarshal.IsComObject(eventObj)Then
Marshal.ReleaseComObject(eventObj)
EndIf
IfNotwinIsNothingAndAlsoMarshal.IsComObject(win)Then
Marshal.ReleaseComObject(win)
EndIf
EndSub
EndClass
PublicClassEventClass
PublicEventOnEvent()
PublicSubCallbackMethod()
RaiseEventOnEvent()
EndSub
EndClass
ｿｽﾉょいｿｽN 2008/05/20(ｿｽｿｽ) 06:02:21
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾉ奇ｿｽ]ｿｽﾊゑｿｽﾌ難ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾈ擾ｿｽﾉ細ゑｿｽｿｽﾈ費ｿｽｿｽfｿｽｿｽｿｽoｿｽｿｽｿｽｿｽ謔､ｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽgｿｽせｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆ不ｿｽﾖゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/05/20(ｿｽｿｽ) 10:40:24
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBDocumentCompleteｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ擾ｿｽｿｽｿｽｿｽﾅ、
bodyｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽYｿｽｿｽﾄゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽ皷橸ｿｽCｿｽｿｽｿｽB
==================================================
SubSubAxWebBrowser1_DocumentCompleteｿｽﾌ修ｿｽｿｽｿｽB
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽOｿｽt
>Withdocument.body
>.onscroll=_onscroll
>.onmousewheel=_onmousewheel
>EndWith
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽｿｽt
DimbodyAsObject=Nothing
Try
body=document.body
body.onscroll=_onscroll
body.onmousewheel=_onmousewheel
Finally
IfNotbodyIsNothingThen
IfMarshal.IsComObject(body)Then
Marshal.ReleaseComObject(body)
EndIf
body=Nothing
EndIf
EndTry
==================================================
EventClassｿｽNｿｽｿｽｿｽXｿｽﾌ修ｿｽｿｽｿｽB
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽOｿｽt
>PublicClassEventClass
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽｿｽt
==================================================
SubReleaseDocumentｿｽﾌ修ｿｽｿｽｿｽB
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽOｿｽt
>IfNotdocumentIsNothingAndAlsoMarshal.IsComObject(document)Then
>Marshal.ReleaseComObject(document)
>EndIf
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽｿｽt
IfNotdocumentIsNothingThen
IfMarshal.IsComObject(document)Then
Marshal.ReleaseComObject(document)
EndIf
document=Nothing
EndIf
==================================================
Sub_onmousewheel_OnEventｿｽﾌ修ｿｽｿｽｿｽB
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽOｿｽt
>IfNoteventObjIsNothingAndAlsoMarshal.IsComObject(eventObj)Then
>Marshal.ReleaseComObject(eventObj)
>EndIf
>IfNotwinIsNothingAndAlsoMarshal.IsComObject(win)Then
>Marshal.ReleaseComObject(win)
>EndIf
--------------------------------------------------
ｿｽsｿｽCｿｽｿｽｿｽｿｽt
IfNoteventObjIsNothingThen
IfMarshal.IsComObject(eventObj)Then
Marshal.ReleaseComObject(eventObj)
EndIf
eventObj=Nothing
EndIf
IfNotwinIsNothingThen
IfMarshal.IsComObject(win)Then
Marshal.ReleaseComObject(win)
EndIf
win=Nothing
EndIf
ｿｽﾉょいｿｽN 2008/05/20(ｿｽｿｽ) 22:39:55
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽAｿｽCｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾜで載ゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾜり見ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽgｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉなりたｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾌに修ｿｽｿｽｿｽﾓ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾖゑｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄ本ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾉょいｿｽN 2008/05/21(ｿｽｿｽ) 00:04:52
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾑゑｿｽｿｽﾑ申ｿｽｿｽｿｽごゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽﾉ具ｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽgｿｽﾝ搾ｿｽｿｽｿｽﾅ使ｿｽpｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ齦費ｿｽﾌペｿｽ[ｿｽWｿｽﾅスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽFｿｽXｿｽﾊのペｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは鯉ｿｽｿｽﾂゑｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽyｿｽ[ｿｽWｿｽﾍ会ｿｽｿｽﾌ２ｿｽﾂで、
http://jp.youtube.com/
http://www.nicovideo.jp/
ｿｽｿｽｿｽﾌ托ｿｽｿｽﾍｿｽｿｽtｿｽ[ｿｽﾅ適ｿｽｿｽｿｽﾈ鯉ｿｽｿｽtｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽ闢厄ｿｽｿｽｿｽ闔滂ｿｽｿｽﾉペｿｽ[ｿｽWｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄ確ｿｽFｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽyｿｽ[ｿｽWｿｽﾍ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
WEBｿｽyｿｽ[ｿｽWｿｽﾌ構ｿｽｿｽｿｽﾌ違いｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽvｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽLｿｽQｿｽTｿｽCｿｽgｿｽﾌトｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽｿｽｿｽｿｽﾙど難ｿｽｿｽｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽqｿｽｿｽｿｽgｿｽﾌようｿｽﾈゑｿｽﾌでゑｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/05/21(ｿｽｿｽ) 02:43:12
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは鯉ｿｽｿｽﾂゑｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
IEｿｽﾌ鯉ｿｽｿｽｿｽﾝ奇ｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾆの搾ｿｽｿｽﾙでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽｿｽｿｽﾈ。IE6ｿｽﾅ難ｿｽｿｽｿｽmｿｽFｿｽBIE7ｿｽｿｽIE8betaｿｽﾅは厄ｿｽｿｽｿｽｿｽﾘ。
PrivateSubAxWebBrowser1_DocumentComplete(ByValsenderAsObject,ByValeAsAxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent)HandlesAxWebBrowser1.DocumentComplete
_onscroll=NewEventClass
_onmousewheel=NewEventClass
ReleaseDocument()
document=AxWebBrowser1.Document
DimelementAsObject=Nothing
Try
Ifdocument.compatMode="BackCompat"Then
element=document.body
Else
element=document.documentElement
EndIf
element.onscroll=_onscroll
element.onmousewheel=_onmousewheel
Finally
IfNotelementIsNothingThen
IfMarshal.IsComObject(element)Then
Marshal.ReleaseComObject(element)
EndIf
element=Nothing
EndIf
EndTry
EndSub
ｿｽﾉょいｿｽN 2008/05/21(ｿｽｿｽ) 03:09:01
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽﾄびのゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾌままで暦ｿｽｿｽTｿｽCｿｽgｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾉイｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽﾌ関係ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは難ｿｽｿｽｿｽｿｽﾉは全ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾝ奇ｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆてゑｿｽﾖ暦ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
