1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 

Public Class Form1
   
 ' Get a handle to an application window.

    Declare Auto Function FindWindow Lib "USER32.DLL" ( _
           ByVal lpClassName As String, _
           ByVal lpWindowName As String) As IntPtr

    Private Declare Auto Function PostMessage Lib "user32" ( _
          ByVal hWnd As IntPtr, _
          ByVal Msg As Integer, _
          ByVal wParam As Integer, _
          ByVal lParam As IntPtr) As Boolean
          
Private Const WM_CLOSE As System.Int32 = &H10



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
 ' Get a handle to the Calculator application. The window class
       
        Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Αριθμομηχανή")


        ' just check that th window is open

        If calculatorHandle = IntPtr.Zero Then
            MsgBox("Calculator is not running.")
            Return
        End If

               PostMessage(calculatorHandle, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
   
 End Sub
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 

function closewindow(params)

set WshShell = WScript.CreateObject("WScript.Shell")


WScript.Sleep(200)        

WshShell.AppActivate "C:\Documents and Settings\Jack Bauer\Επιφάνεια εργασίας\office2007"

WScript.Sleep(2000)      

WshShell.SendKeys("%{F4}")

set WshShell=nothing 

end function

wscript.echo closewindow(543)