ｿｽ@ ｿｽ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

ｿｽｿｽｿｽSｿｽｿｽV 2009/09/01(ｿｽｿｽ) 12:51:18

ｿｽｿｽｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽ
WindowsXP Pro
IE8

ｿｽﾂゑｿｽｿｽﾅ具ｿｽVB6.0ｿｽﾅ開ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾟゑｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽB
ｿｽｿｽlｿｽﾌ包ｿｽｿｽXｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

VB6.0ｿｽﾉて、IEｿｽｿｽNｿｽｿｽｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽｿｽｿｽﾜでのアｿｽvｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾌ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾌ場合ｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXIDｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽ@IEｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽAVBｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽIEｿｽNｿｽｿｽ

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、VBｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽﾌプｿｽｿｽｿｽZｿｽXIDｿｽﾅはなゑｿｽｿｽAｿｽｿｽﾔ最擾ｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽIEｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽﾔ搾ｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ況でゑｿｽｿｽB

ｿｽ|ｿｽ¥ｿｽ[ｿｽXｿｽﾍゑｿｽｿｽｿｽｿｽｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
'IEｿｽNｿｽｿｽ
lwProcessID = CLng(Shell("C:¥Program Files¥Internet Explorer¥iexplore.exe " & "http://XXX.XXX.XXX.XXX:XXXX/test/index.cgi?id=" & BasicModule.strUserID, 3))

'ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽﾔ搾ｿｽｿｽｿｽ謫ｾ
Set objShell = CreateObject("Shell.Application")
Set objIE = objShell.windows.Item(objShell.windows.Count - 1)
    
'ｿｽvｿｽｿｽｿｽZｿｽXIDｿｽ謫ｾ
Call GetWindowThreadProcessId(objIE.hWnd, lwProcessID)
    
ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|

ｿｽlｿｽbｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽYｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽ闕ｿｽｿｽｿｽｿｽｿｽｿｽlｿｽﾜゑｿｽｿｽﾔでゑｿｽｿｽB

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽSｿｽｿｽV 2009/09/01(ｿｽｿｽ) 14:58:57

ｿｽｿｽｿｽﾈみに、IE6ｿｽﾅ擾ｿｽLｿｽｿｽｿｽWｿｽbｿｽNｿｽｿｽｿｽｿｽﾘゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAVBｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽvｿｽｿｽｿｽZｿｽXIDｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾌ場合ｿｽA
ｿｽ@ｿｽ@Set objShell = CreateObject("Shell.Application")
ｿｽ@ｿｽ@Set objIE = objShell.windows.Item(objShell.windows.Count - 1)
ｿｽ@ｿｽﾌ２ｿｽsｿｽﾍ不ｿｽvｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽj

ｿｽｿｽｿｽいｿｽ調ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、IE8ｿｽﾉてプｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽQｿｽﾂでゑｿｽｿｽ骭ｻｿｽﾛゑｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXIDｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽiUACｿｽｿｽｿｽﾖ係ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈ記ｿｽｿｽｿｽｿｽｿｽﾟ具ｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽj

ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ} 2009/09/01(ｿｽｿｽ) 18:30:47

lwProcessID = CLng(Shell("""C:¥Program Files¥Internet Explorer¥iexplore.exe"" -nohome " & "http://XXX.XXX.XXX.XXX:XXXX/test/index.cgi?id=" & BasicModule.strUserID, 3))

ｿｽAｿｽvｿｽｿｽｿｽpｿｽXｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ""ｿｽﾅ囲みまゑｿｽｿｽ蛯､ｿｽB
-nohomeｿｽﾅプｿｽｿｽｿｽZｿｽXｿｽｿｽVｿｽKｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
-nohomeｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXｿｽﾉ擾ｿｽｿｽｿｽｿｽ投ゑｿｽｿｽﾄ、ｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXｿｽﾍ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽSｿｽｿｽV 2009/09/02(ｿｽｿｽ) 18:01:24

>ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ答、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽ{ｿｽIｿｽﾉ、"-nohome"ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽ答の包ｿｽｿｽ@ｿｽﾅ、ｿｽﾚ的ｿｽﾌプｿｽｿｽｿｽZｿｽXIDｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

IE8ｿｽｿｽｿｽ]ｿｽXｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾖ係ｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.