写程序

写一个西门子winCC 7.4 VBS脚本，要求如下：
1、在按钮事件中，鼠标动作触发。
2、取二进制内部变量“RUN”
3、当按钮动作时，变量“RUN”为1
4、当按钮再次动作时，变量“RUN”为0

下面是符合您要求的西门子winCC 7.4 VBS脚本程序：

[code]Sub Button_OnClick()
    Dim RUN
    RUN = GetTagValue("Binary_TAG") '获取二进制内部变量“RUN”的值
    If RUN = 0 Then '当变量为0时，将其改为1
        SetTagValue "Binary_TAG", 1
    Else '当变量为1时，将其改为0
        SetTagValue "Binary_TAG", 0
    End If
End Sub[/code]

这个程序会在按钮事件中监听鼠标动作，即当用户点击按钮时触发。程序首先通过GetTagValue函数获取内部二进制变量“RUN”的值，然后根据其值来决定变量的设置。当变量为0时（即未运行状态），点击按钮后将其改为1（即开始运行状态）；当变量为1时（即已运行状态），再次点击按钮则将其改为0（即结束运行状态）。

同时，假设您已经在winCC 7.4中创建了一个名为“Binary_TAG”的二进制内部变量来存储运行状态，程序中使用了SetTagValue函数来修改该变量的值。需要注意的是，这个程序仅能作为参考，具体的实现还需结合您的特定场景进行调整。