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

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2006/04/06(ｿｽｿｽ) 23:51:21

ｿｽｿｽｿｽﾟて難ｿｽｿｽeｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽﾊに２ｿｽﾂのコｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽLｿｽｿｽ
ｿｽPｿｽAｿｽｿｽｿｽ黷ｼｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽﾊの監趣ｿｽｿｽｿｽsｿｽｿｽｿｽB
ｿｽQｿｽAIEｿｽｿｽﾊのツｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾍ費ｿｽ¥ｿｽｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽRｿｽAAAAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽAAAｿｽｿｽﾊゑｿｽACTIVEｿｽﾉゑｿｽｿｽﾄ最前ｿｽﾊに表ｿｽｿｽｿｽA
ｿｽSｿｽABBBｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽBBBｿｽｿｽﾊゑｿｽACTIVEｿｽﾉゑｿｽｿｽﾄ最前ｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽTｿｽAｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽEndｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、IEｿｽｿｽｿｽAAAｿｽｿｽBBBｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB


ｿｽｿｽLｿｽﾌ様ｿｽﾈ難ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAIEｿｽｿｽｿｽQｿｽｿｽﾊでゑｿｽPｿｽvｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾗ、ｿｽRｿｽAｿｽSｿｽﾌ難ｿｽｿｽがｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

Set objIE = CreateObject("InternetExplorer.application")ｿｽﾅ、
ｿｽﾂ々ｿｽｿｽIEXPLORE.EXEｿｽﾌプｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽｿｽﾂ趣ｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽA

ｿｽPｿｽ`ｿｽTｿｽﾌ機ｿｽ¥ｿｽ生ゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｦｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
'
' ｿｽhｿｽdｿｽNｿｽｿｽｿｽ@ｿｽ`ｿｽ`ｿｽ`ｿｽｿｽｿｽ
'
'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Private Sub cmdAAA_Click()
On Error Resume Next

    Dim lRet            As Long
    Dim hlProcess       As Long
    Dim lwProcessID     As Long
    Dim lpdwExitCode    As Long
    
    Dim objIE           As Object
    
    'AAAｿｽuｿｽｿｽｿｽEｿｽUｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽmｿｽF
    If glAAA <> 0 Then
        AppActivate glAAA
        Exit Sub
    End If
    
    'IEｿｽNｿｽｿｽ
    Set objIE = CreateObject("InternetExplorer.application")
    
    'URLｿｽﾝ抵ｿｽ
    objIE.navigate (URL)
    objIE.Visible = True

    'ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾅ起ｿｽｿｽ
    objIE.toolbar = False
    glAAAHwnd = objIE.hwnd
    
    'ｿｽvｿｽｿｽｿｽZｿｽXIDｿｽ謫ｾ
    Call GetWindowThreadProcessId(objIE.hwnd, lwProcessID)
    
    'ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌオｿｽ[ｿｽvｿｽｿｽ
    hlProcess = OpenProcess(PROCESS_QUERY_INFORMATION, True, lwProcessID)
    
    'ｿｽNｿｽｿｽｿｽｿｽsｿｽﾈゑｿｽｿｽｿｽAAAｿｽuｿｽｿｽｿｽEｿｽUｿｽﾌプｿｽｿｽｿｽZｿｽXIDｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽB
    glAAA = lwProcessID

    Do
        'WINDOWSｿｽｿｽﾉＡｿｽ`ｿｽ`ｿｽｿｽﾊゑｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽﾉ監趣ｿｽｿｽｿｽｿｽｿｽB
        lRet = GetExitCodeProcess(hlProcess, lpdwExitCode)
ｿｽ@ｿｽ@ｿｽ@ｿｽ@Call Sleep(1000)
        DoEvents
    Loop While lpdwExitCode
    
    'ｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽNｿｽｿｽｿｽA
    glAAAHwnd = 0
    'ｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXIDｿｽNｿｽｿｽｿｽA
    glAAA = 0
       
End Sub


'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
'
' ｿｽhｿｽdｿｽNｿｽｿｽｿｽ@ｿｽaｿｽaｿｽaｿｽｿｽｿｽ
'
'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Private Sub cmdBBB_Click()
On Error Resume Next

    Dim lRet            As Long
    Dim hlProcess       As Long
    Dim lwProcessID     As Long
    Dim lpdwExitCode    As Long
    
    Dim objIE           As Object
    
    'BBBｿｽuｿｽｿｽｿｽEｿｽUｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽmｿｽF
    If glBBB <> 0 Then
        AppActivate glBBB 
        Exit Sub
    End If
    
    'IEｿｽNｿｽｿｽ
    Set objIE = CreateObject("InternetExplorer.application")
    
    'URLｿｽﾝ抵ｿｽ
    objIE.navigate (URL)
    objIE.Visible = True

    'ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾅ起ｿｽｿｽ
    objIE.toolbar = False
    glBBBHwnd = objIE.hwnd
    
    'ｿｽvｿｽｿｽｿｽZｿｽXIDｿｽ謫ｾ
    Call GetWindowThreadProcessId(objIE.hwnd, lwProcessID)
    
    'ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌオｿｽ[ｿｽvｿｽｿｽ
    hlProcess = OpenProcess(PROCESS_QUERY_INFORMATION, True, lwProcessID)
    
    'ｿｽNｿｽｿｽｿｽｿｽsｿｽﾈゑｿｽｿｽｿｽBBBｿｽuｿｽｿｽｿｽEｿｽUｿｽﾌプｿｽｿｽｿｽZｿｽXIDｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽB
    glBBB = lwProcessID

    Do
        'WINDOWSｿｽｿｽｿｽBBBｿｽｿｽﾊゑｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽﾉ監趣ｿｽｿｽｿｽｿｽｿｽB
        lRet = GetExitCodeProcess(hlProcess, lpdwExitCode)
        Call Sleep(1000)
        DoEvents
    Loop While lpdwExitCode
    
    'ｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽNｿｽｿｽｿｽA
    glBBBHwnd = 0
    'ｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXIDｿｽNｿｽｿｽｿｽA
    glBBB = 0
       
End Sub

Private Sub cmdEND_Click()
On Error Resume Next

    Dim i                       As Integer
    Dim lngMutexHandle          As Long
    Dim cbNeeded                As Long     
    Dim lngProcessHandle        As Long
    Dim lnghModule              As Long
    Dim lngcbNeeded             As Long
    Dim lngProcessID(255)       As Long
    Dim lngWin32apiResultCode   As Long
    Dim strExeFileNameBuffer    As String * 516
    Dim strModuleName           As String
    Dim lngApiRet As Long

    lngApiRet = EnumProcesses(lngProcessID(0), UBound(lngProcessID), cbNeeded)
    For i = 0 To (cbNeeded / 4) - 1
        'ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾ
        lngProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, 0&, lngProcessID(i))
        If lngProcessHandle Then
           ' ｿｽｿｽｿｽsｿｽﾂ能ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾ
            If GetModuleBaseName(lngProcessHandle, 0, strExeFileNameBuffer, Len(strExeFileNameBuffer)) <> 0 Then
                
               'ｿｽｿｽｿｽsｿｽﾂ能ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾘゑｿｽoｿｽｿｽ
               strModuleName = Left(strExeFileNameBuffer, InStr(strExeFileNameBuffer, vbNullChar) - 1)

ｿｽ@ｿｽ@   If Trim$(UCase(strModuleName)) = "XXXXXX.EXE" Or lngProcessID(i) = glAAA Or lngProcessID(i) = glBBB Then
               
                      'VBｿｽﾌ包ｿｽFORMｿｽﾌ具ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
                        If TerminateProcess(lngProcessHandle, 0) <> 0 Then
                            Call CloseHandle(lngProcessHandle)
                        End If

       'AAAｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
      If glAAAHwnd <> 0 Then
          Call SendMessageByNum(glAAAHwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
      End If
                        
       'BBBｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
        If glBBBHwnd <> 0 Then
           Call SendMessageByNum(glBBBHwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
        End If
  End If
    End If
        End If
ｿｽ@ｿｽ@ｿｽ@ｿｽ@Call CloseHandle(lngProcessHandle)
    Loop

End Sub

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/04/07(ｿｽｿｽ) 01:58:19

> ｿｽPｿｽAｿｽｿｽｿｽ黷ｼｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽﾊの監趣ｿｽｿｽｿｽsｿｽｿｽｿｽB
ｿｽwｿｽﾄ趣ｿｽｿｽxｿｽﾆは、ｿｽｿｽﾌ的ｿｽﾉはどのようｿｽﾈ趣ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽｿｽｿｽﾈどにゑｿｽｿｽIｿｽｿｽｿｽｿｽﾟらえｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾎ、OnQuitｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽB


> ｿｽQｿｽAIEｿｽｿｽﾊのツｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾍ費ｿｽ¥ｿｽｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ToolBar ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽB
ｿｽｿｽｿｽCｿｽﾉ難ｿｽｿｽｿｽ笳夲ｿｽｿｽﾈどのバｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAShowBrowserBarｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽB


> ｿｽRｿｽAAAAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽAAAｿｽｿｽﾊゑｿｽACTIVEｿｽﾉゑｿｽｿｽﾄ最前ｿｽﾊに表ｿｽｿｽｿｽA
> ｿｽSｿｽABBBｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽBBBｿｽｿｽﾊゑｿｽACTIVEｿｽﾉゑｿｽｿｽﾄ最前ｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽｿｽB
AAAｿｽｿｽﾊ、BBBｿｽｿｽﾊとゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽ
AppActivate ｿｽﾆゑｿｽ SetForegroundWindow APIｿｽﾆゑｿｽｿｽB
ｿｽﾅ前ｿｽﾊ表ｿｽｿｽｿｽﾉ関ゑｿｽｿｽﾄゑｿｽ HWND_TOPMOST ｿｽﾆゑｿｽｿｽB


> ｿｽTｿｽAｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽEndｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、IEｿｽｿｽｿｽAAAｿｽｿｽBBBｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Quitｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽB

K.J.K. 2006/04/07(ｿｽｿｽ) 09:09:34

AAAｿｽyｿｽｿｽBBBｿｽｿｽInternetExplorerｿｽ^ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽtｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾆゑｿｽｿｽｿｽ
ｿｽﾏ撰ｿｽｿｽﾉ保管ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽﾎ会ｿｽｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。

ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽAｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾍ異なゑｿｽ
ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽAｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾙなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2006/04/07(ｿｽｿｽ) 09:27:40

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
K.J.K.ｿｽl
ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽﾌで、
ｿｽﾌゑｿｽｿｽﾙど鯉ｿｽｿｽﾊゑｿｽ告ゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2006/04/07(ｿｽｿｽ) 09:27:40

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
K.J.K.ｿｽl
ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽﾌで、
ｿｽﾌゑｿｽｿｽﾙど鯉ｿｽｿｽﾊゑｿｽ告ゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.