VBレスキュー(花ちゃん) - 指定のウィンドウを閉じる(VB6.0)

日時： 2007/07/15 20:16
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[他のアプリ関係][][]                                                *
* キーワード：他のアプリを終了させる,他のEXE,アプリケーション,リモート操作,,      *
***********************************************************************************

--------------------------------------------------------------------------------
No.475 RE:No.315 ウインドウを閉じる　　投稿者：たくボン [1999/06/09(水)0：43分]
--------------------------------------------------------------------------------

プロジェクトにフォーム・標準モジュールを追加します。
フォームにテキストとコマンドボタンを貼りつけて実行して下さい。
テキストに入力した文字列を持つウインドウにWM_QUITを送ります。

'----- Form1.frm ----------------------------------------------------------------
Private Sub Command1_Click()
    Dim bolRetVal As Boolean
    strTargetWindowText = Text1.Text
    bolRetVal = EnumWindows(AddressOf QuitTargetWindow, 0&)
End Sub

'----- End of File -------------------------------------------------------------

'----- Module1.bas -------------------------------------------------------------
'終了メッセージ
Public Const WM_QUIT = &H12
'ウインドウテキスト取得
Declare Function GetWindowText Lib "user32" Alias _
  "GetWindowTextA" (ByVal hwnd As Long, _
      ByVal lpString As String, ByVal cch As Long) As Long
'ウインドウの列挙
Declare Function EnumWindows Lib "user32" _
     (ByVal lpEnumFunc As Long, lParam As Any) As Long
'ウインドウの可視状態の取得
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
'ウインドウにメッセージを送る
Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        ByVal lParam As Long) As Long
'親ウインドウを取得
Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'終了させる画面のタイトル
Public strTargetWindowText As String
'バッファサイズ
Const DEF_BUFF_MAX = 256

'EnumWindowのコールバック関数
Public Function QuitTargetWindow(ByVal hwnd As Long, lParam As Long) As Boolean
    Dim lngRetVal As Long
    Dim hParent As Long
    Dim sBuff As String

    If IsWindowVisible(hwnd) = &H0& Then
        hParent = GetParent(hwnd)
        'ウインドウタイトルを取得
        sBuff = String(DEF_BUFF_MAX, 0)
        lngRetVal = GetWindowText(hParent, sBuff, DEF_BUFF_MAX)
        If lngRetVal <> 0 Then
            If strTargetWindowText = Left$(sBuff$, InStr(sBuff, Chr(0)) - 1) Then
                '該当するウインドウの場合は終了メッセージを通知する
                lngRetVal = PostMessage(hParent, WM_QUIT, &H0&, &H0&)
            End If
        End If
    End If
    QuitTargetWindow = True
End Function
'----- End of File -------------------------------------------------------------

Page: 1 |

IEの終了方法(RE:ほかのプロセスの終了)(VB6.0) 　(No.1の個別表示)　[スレッド一覧へ]

日時： 2011/04/05 13:19
名前： 花ちゃん

***********************************************************************************
* カテゴリー：[他のアプリ関係][][]                                                *
* キーワード：他のアプリを終了させる,他のEXE,アプリケーション,リモート操作,,      *
***********************************************************************************

----------------------------------------------------------------------------------------
No.3252 IEの終了方法　(RE:ほかのプロセスの終了)　　投稿者：ＮＡＯ★ [2001/11/23(金)21：50分]
----------------------------------------------------------------------------------------

IEを終了するときは SendMessage ではなくて PostMessage 関数を使うと終了できます

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
           ByVal lParam As Long) As Long
Private Const WM_CLOSE As Long = &H10

Private Sub Command1_Click()
Dim hwnd As Long
Dim Ret As Long

    hwnd = FindWindow("IEFrame", vbNullString)
    Ret = PostMessage(hwnd, WM_CLOSE, 0&, 0&)
End Sub

Page: 1 |

　投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ

題　　名	スレッドをトップへソート
名　　前
パスワード	（記事メンテ時に使用）
投稿キー	（投稿時を入力してください）
コメント	*********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************
	クッキー保存

スレッド一覧へ