VBS


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

      Option Explicit
      Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String)
      dim hWnd
      hWnd = FindWindow(vbNullString, "無題 - ペイント")

       If hWnd = 0 Then
          WScript.Echo  "EXCEL動いてない。"
       Else
          WScript.Echo  "EXCEL動いている。"
       End If
     Set obj = CreateObject("APIWrapperCOM.APIWrapper")
     winHandle = obj.FindWindow("test.txt - Notepad")
     obj.KillWindow(winHandle)
     SendMessage  hwindow, WM_SYSCOMMAND, SC_CLOSE, 0
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。