|
ｿｽ@ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽｿｽｿｽﾉは？(WebBrowser)
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
GOMA 2004/04/06(ｿｽｿｽ) 10:34:30
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ前msgboxｿｽﾖ連ｿｽﾌ趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾒでゑｿｽｿｽB
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200403/04030020.txt
(### ｿｽOｿｽ書ゑｿｽｿｽｿｽｿｽｿｽﾌの費ｿｽｿｽｿｽ(S))
ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽFWindows2000(SP4)
ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽFVB6.0(SP5)ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@
ｿｽuｿｽｿｽｿｽEｿｽUｿｽFIE5.5ｿｽﾈ擾ｿｽ
ｿｽｿｽｿｽAｿｽｿｽLｿｽﾌ環具ｿｽｿｽﾅブｿｽｿｽｿｽEｿｽU(HTML)ｿｽﾉ対ゑｿｽｿｽ髑ｿｽｿｽﾌ記ｿｽ^ｿｽｿｽｿｽﾄ撰ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
'WebｿｽuｿｽｿｽｿｽEｿｽUｿｽIｿｽuｿｽWｿｽFｿｽNｿｽg(ｿｽCｿｽxｿｽｿｽｿｽgｿｽ謫ｾｿｽﾌ茨ｿｽWithEvents)
Public WithEvents objWeb As SHDocVw.WebBrowser
'CreateObject
Set objWeb = CreateObject("InternetExplorer.Application")
ｿｽﾆゑｿｽｿｽAｿｽeｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽEｿｽｿｽｿｽｿｽｿｽﾅ托ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽA
ｿｽｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽgｿｽｿｽｿｽﾆに托ｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽLｿｽ^ｿｽｿｽｿｽAｿｽﾄ撰ｿｽｿｽｿｽｿｽ骼厄ｿｽﾍ概ｿｽﾋ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅひとつ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ痰ｦｿｽｿｽINPUTｿｽGｿｽｿｽｿｽｿｽｿｽｿｽｿｽg(TYPE=BUTTON)ｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾛ、
ｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽonclickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽmsgboxｿｽﾈどの擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA
ｿｽｿｽｿｽｿｽｿｽﾅ再撰ｿｽｿｽｿｽｿｽ‾ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
(ｿｽｿｽｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽVBｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽｿｽSTEPｿｽﾖ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽﾈゑｿｽ)
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾉ対ゑｿｽｿｽﾄの擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌは托ｿｽﾌ目擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
VBｿｽｿｽｿｽｿｽｿｽｿｽSTEPｿｽﾖ進ｿｽﾟなゑｿｽｿｽﾈ擾ｿｽAｿｽﾌ心ｿｽﾌゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾌ呼び出ｿｽｿｽｿｽ謔､ｿｽｿｽｿｽﾈゑｿｽｿｽ況でゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽmsgboxｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽ黷ｸｿｽｿｽｿｽｿｽSTEPｿｽﾖ進ｿｽﾟゑｿｽｿｽiｿｽﾍなゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ痰ｵｿｽｿｽｿｽﾍゑｿｽｿｽﾌ托ｿｽｿｽﾌ会ｿｽｿｽがゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽAｿｽAｿｽB
ｿｽｿｽｿｽAｿｽLｿｽ^ｿｽﾎ象となゑｿｽWebｿｽyｿｽ[ｿｽWｿｽﾍ不ｿｽｿｽﾅゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ骼厄ｿｽﾍ鯉ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
(ｿｽOｿｽ書ゑｿｽｿｽｿｽｿｽｿｽﾌの費ｿｽｿｽｿｽ(E) ###)
ｿｽｿｽﾂゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽ頂ゑｿｽｿｽAｿｽﾐ介しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽOｿｽTｿｽCｿｽg(msgboxｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@)ｿｽｿｽ
ｿｽQｿｽlｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽしｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽﾍりモｿｽ[ｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽVBｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅ待ゑｿｽｿｽｿｽﾔになゑｿｽﾆ、ｿｽﾄ趣ｿｽｿｽｿｽｿｽﾌゑｿｽ‾ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽOｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾍ以会ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾍりあｿｽｿｽｿｽｿｽﾟてｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽO(ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾜゑｿｽ)ｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽEXEｿｽｿｽﾊゑｿｽ
ｿｽpｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽ謔､ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾅ鯉ｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
WebBrowserｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽDocumentｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾅ、ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾛゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍゑｿｽﾍゑｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
WebBrowserｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽNewWindow2ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ、ｿｽﾊウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽ成ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽかｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾖ連ｿｽﾍ、ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾅなゑｿｽｿｽﾌでゑｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
IMA 2004/04/06(ｿｽｿｽ) 11:35:32
ｿｽｿｽｿｽﾌ難ｿｽｿｽeｿｽﾌ鯉ｿｽﾅ、GOMAｿｽｿｽｿｽが会ｿｽｿｽｿｽﾆゑｿｽｿｽ黷ｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽOｿｽｿｽﾌ趣ｿｽｿｽﾌ暦ｿｽﾅは単ｿｽｿｽMsgBoxｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾅゑｿｽｿｽB
> 'ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾉ終ｿｽｿｽｿｽvｿｽｿｽｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ送ゑｿｽ
> Form1.Text1 = Form1.Text1 & vbCrLf & "PostMessage to MsgBox ""WM_QUIT""" & vbCrLf
> Call PostMessage(h, WM_QUIT, 0, 0)
ｿｽﾈ鯉ｿｽﾌ難ｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽﾉは、ｿｽpｿｽｿｽｿｽﾌゑｿｽｿｽﾟのボｿｽ^ｿｽｿｽｿｽﾈどゑｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
MsgBoxｿｽﾌパｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽ挙ゑｿｽ¥ｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽ判断ｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽ黷ｪｿｽしｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ！
ｿｽﾈ単ｿｽﾈ暦ｿｽﾅ、yes no ｿｽQｿｽﾂのボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽyesｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽAnoｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽ
ｿｽﾆ難ｿｽｿｽがｿｽpｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ以会ｿｽｿｽﾌようｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Private Sub ShowChanges(h As Long)
Dim sTypePopUp As String, sCaptionPopUp As String, sCaptionParent As String
If FindWindowEx(h, 0, "Edit", "") Then
sTypePopUp = "InputBox or dialog"
Else
sTypePopUp = "MsgBox"
End If
sCaptionPopUp = GetWndText(h)
sCaptionParent = GetWndText(GetParent(h))
If sTypePopUp = "MsgBox" And InStr(sCaptionPopUp, "hogehoge?") Then
SendKeys "{TAB}", True
SendKeys "{ENTER}", True
End If
End Sub
GOMA 2004/04/06(ｿｽｿｽ) 13:39:11
ｿｽｿｽIMAｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾉ対ゑｿｽｿｽ髑ｿｽ自ｿｽﾌは奇ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽﾅ搾ｿｽｿｽ黷ｽｿｽｿｽEXEｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽﾅ賄ｿｽｿｽｿｽｿｽﾚ擾ｿｽｿｽﾍ托ｿｽﾌ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは、ｿｽuｿｽｿｽｿｽEｿｽUｿｽｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ包ｿｽEXEｿｽﾉ一時ｿｽoｿｽgｿｽｿｽｿｽ^ｿｽbｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽﾅゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽVBｿｽｿｽｿｽﾅ鯉ｿｽｿｽmｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽﾔなのでゑｿｽｿｽB
VBｿｽﾅ趣ｿｽｿｽしｿｽｿｽｿｽｿｽEXEｿｽﾅはダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽmｿｽﾍ出ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽmｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽ骼橸ｿｽ_ｿｽﾅ監趣ｿｽｿｽｿｽｿｽ‾ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾅ搾ｿｽｿｽ黷ｽｿｽｿｽEXEｿｽﾉダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽ謔､ｿｽｿｽｿｽA
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾌ考ｿｽｿｽｿｽﾈのでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾝの構ｿｽｿｽｿｽｿｽCｿｽﾌ包ｿｽｿｽﾍ会ｿｽｿｽｿｽｿｽﾉ影ｿｽｿｽｿｽﾌでゑｿｽﾂ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ、ｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
WebBrowserｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽDocumentｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽwitheventsｿｽｿｽpｿｽｿｽｿｽｿｽ
ｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽ|ｿｽbｿｽvｿｽAｿｽbｿｽvｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽｿｽﾎ簡単ｿｽﾉ対会ｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽｿｽｿｽﾗゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽｿｽﾌは鯉ｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽOｿｽqｿｽﾌ通ゑｿｽuNewWindow2ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾌなのに〜ｿｽv
ｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾆと、WebBrowserｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾍ搾ｿｽｿｽ初使ｿｽpｿｽﾅ経ｿｽｿｽｿｽsｿｽｿｽｿｽﾈ為、
ｿｽｿｽｿｽﾍみつゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾌの、ｿｽｿｽｿｽﾌようｿｽﾈイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽAｿｽﾆ、
ｿｽｿｽｿｽｿｽｿｽﾛ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾈのでゑｿｽｿｽB
IMA 2004/04/06(ｿｽｿｽ) 15:06:21
ｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽﾄゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽﾜゑｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽj
ｿｽ@ｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽgｿｽｿｽVBｿｽｿｽIEｿｽ操作しｿｽﾄイｿｽxｿｽｿｽｿｽg,URLｿｽｿｽｿｽ判断ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽpｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾓ擾ｿｽｿｽｿｽ|ｿｽさゑｿｽｿｽｿｽﾛに、ｿｽｿｽｿｽﾌ翻ｿｽｿｽ¥ｿｽtｿｽgｿｽﾌ終ｿｽｿｽｿｽｿｽｿｽﾉ「ｿｽﾛ托ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽHｿｽv
ｿｽﾆのダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽuｿｽﾔゑｿｽNoｿｽｿｽIｿｽｿｽｿｽｿｽOｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽiｿｽﾟゑｿｽﾗに使ｿｽp
ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂまゑｿｽAｿｽ|ｿｽｿｽ¥ｿｽtｿｽgｿｽﾌ起ｿｽｿｽｿｽｿｽｿｽOｿｽｿｽ
SetTimer hWnd, NV_MYEVENT, 50, AddressOf TimerProc
ｿｽﾆゑｿｽｿｽﾄタｿｽCｿｽ}ｿｽ[ｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽﾈ前ｿｽ瘤ｦｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽWｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽLｿｽﾚゑｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽShowChangesｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾉ擾ｿｽLｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽｿｽLｿｽﾚゑｿｽｿｽｿｽ
ｿｽﾎ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽGOMAｿｽｿｽｿｽｿｽﾌ「ｿｽuｿｽｿｽｿｽEｿｽU(HTML)ｿｽﾉ対ゑｿｽｿｽ髑ｿｽｿｽﾌ記ｿｽ^ｿｽｿｽｿｽﾄ撰ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾙなゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽAｿｽAｿｽNｿｽeｿｽBｿｽuｿｽｿｽｿｽｿｽｿｽﾍ最鯉ｿｽﾉアｿｽNｿｽeｿｽBｿｽuｿｽｿｽ
IEｿｽﾉ対ゑｿｽｿｽﾄイｿｽxｿｽｿｽｿｽgｿｽﾈどゑｿｽﾄ趣ｿｽｿｽｿｽｿｽeｿｽ処ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽﾔ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[MSGｿｽｿｽｿｽﾅゑｿｽURLｿｽﾉ対ゑｿｽｿｽｿｽMsgBoxｿｽｿｽ
ｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽ操作すｿｽ驍ｱｿｽﾆは可能ｿｽﾅ、VBｿｽﾅ趣ｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽg
ｿｽﾉ進ｿｽﾞゑｿｽｿｽﾆゑｿｽIEｿｽﾌ会ｿｽﾊ更ｿｽVｿｽﾈどゑｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾅゑｿｽAGOMAｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ(ｿｽXｿｽNｿｽｿｽｿｽvｿｽg)ｿｽﾅは、ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾋ？
ｿｽﾅ鯉ｿｽﾉ、ｿｽｿｽｿｽﾌ知ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽMsgBoxｿｽﾈどゑｿｽPopUpｿｽｿｽEｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
GOMA 2004/04/06(ｿｽｿｽ) 16:56:15
ｿｽｿｽｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽﾄゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾆゑｿｽﾅゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽI
VBｿｽﾅゑｿｽmsgboxｿｽﾖ撰ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽlｿｽﾅ、ｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾉ対ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌアｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ闔滂ｿｽｿｽSTEPｿｽﾖ進ｿｽﾜなゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾔゑｿｽSetTimerｿｽｿｽVBｿｽWｿｽｿｽｿｽﾌタｿｽCｿｽ}ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽｿｽﾍダｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ)ｿｽｿｽ
ｿｽｿｽｿｽしｿｽﾈゑｿｽｿｽｿｽﾔなのでゑｿｽｿｽB(ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ再び難ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽ)
ｿｽｿｽｿｽ轤ｭIMAｿｽｿｽｿｽｿｽﾆの違いｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽCreateObjectｿｽｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽHTMLｿｽ¥ｿｽｿｽｿｽｿｽ(DocumentObject)ｿｽﾉ対ゑｿｽ
ｿｽeｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ骼厄ｿｽﾅ托ｿｽｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
(ｿｽｿｽ)
Document.activeElement.Click 'ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾈコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽN
ｿｽｿｽｿｽﾌ為、ｿｽｿｽｿｽｿｽﾎ象のボｿｽ^ｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽScriptｿｽｿｽｿｽﾅダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽｿｽｿｽｿｽ(ｿｽﾄ撰ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ(VB))ｿｽﾆ連ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌではと思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽEｿｽEｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾜで擾ｿｽｿｽｿｽｿｽﾄ気ｿｽtｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽﾔ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[MSGｿｽｿｽｿｽﾅゑｿｽURLｿｽﾉ対ゑｿｽｿｽｿｽMsgBoxｿｽｿｽ
ｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽ操作すｿｽ驍ｱｿｽﾆは可能ｿｽﾅ、VBｿｽﾅ趣ｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽg
ｿｽｿｽｿｽﾉ進ｿｽﾞゑｿｽｿｽﾆゑｿｽIEｿｽﾌ会ｿｽﾊ更ｿｽVｿｽﾈどゑｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽﾌで托ｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
witheventsｿｽﾍ一時ｿｽﾍゑｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽｿｽﾇ鯉ｿｽｿｽﾊは難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
SetTimerｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾌ指ｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽしｿｽﾈゑｿｽｿｽ轤ｵｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
(ｿｽﾄ撰ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾌゑｿｽﾌゑｿｽﾝ定しｿｽﾄゑｿｽｿｽﾜゑｿｽ)
ｿｽﾊのアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾍ鯉ｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽｿｽﾌで、ｿｽﾔ茨ｿｽｿｽｿｽﾄはゑｿｽｿｽﾈゑｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾞ。
ｿｽﾜゑｿｽｿｽﾅ茨ｿｽｿｽAｿｽﾚ的ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは前ｿｽqｿｽｿｽCｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾉゑｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾔの具ｿｽｿｽｿｽｿｽｿｽｿｽ閧ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
(ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽsｿｽｿｽｿｽがｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽﾌ面費ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽ)
