主题：[求助]调用操作系统计算器的调用与关闭

只能开启一个计算器的脚本：

Dim Proc As New Process
Proc.File = "calc.exe"
Proc.Start
If ShowAppWindow("计算器",5) = False Then   
End If

点击开启，点击关闭计算器的脚本：

Dim count As Double =1
Dim Proc As New Process
If ShowAppWindow("计算器",1) = False Then
    count=0
End If
If count Mod 2 = 0 Then
    Proc.File = "calc.exe"
    Proc.Start
    ShowAppWindow("计算器",5)
    messagebox.show(count)
Else
    ShowAppWindow("计算器",5)
    messagebox.show(count)
End If