VBS

「VBS」の編集履歴（バックアップ）一覧はこちら

「VBS」(2009/12/11 (金) 01:10:04) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

       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

       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