帮我写一个西门子WINCC VBS脚本，要求如下

显示全部楼层 · 2023-3-20 11:53:53

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、触发时需弹窗再次确认是否动作
3、读取二进制内部变量"A1"
4、当按钮有动作时，变量"A1"为1
5、当按钮再次有动作时，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 · 2023-3-20 11:54:04

以下是符合要求的WINCC VBS脚本：

```vbscript
Sub Button1_OnClick()
\'弹窗确认
If MsgBox(\"是否触发动作？\", vbOKCancel, \"确认\") <> vbOK Then
      Exit Sub
End If

\'读取A1变量
Dim A1
A1 = ReadSymbol(\"A1\")

\'判断按钮动作并修改A1变量值
If A1 = 1 Then
      A1 = 0
Else
      A1 = 1
End If

\'写入A1变量
WriteSymbol \"A1\", A1

End Sub
```

将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 · 2023-3-20 12:06:00

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、读取二进制内部变量"A1"
3、当按钮有动作时，弹窗确认，是的话，变量"A1"为1
4、当按钮再次有动作时，弹窗确认，是的话，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 · 2023-3-20 12:06:12

以下是符合要求的WINCC VBS脚本：```vbscriptSub Button1_OnClick() \\\'读取A1变量 Dim A1 A1 = ReadSymbol(\\\"A1\\\") \\\'判断按钮动作并修改A1变量值 If A1 = 1 Then \\\'弹窗确认 If MsgBox(\\\"是否触发动作？\\\", vbOKCancel, \\\"确认\\\") <> vbOK Then Exit Sub End If A1 = 14 Else \\\'弹窗确认 If MsgBox(\\\"是否触发动作？\\\", vbOKCancel, \\\"确认\\\") <> vbOK Then Exit Sub End If A1 = 5 End If \\\'写入A1变量 WriteSymbol \\\"A1\\\", A1End Sub```将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 · 2023-3-20 12:08:43

帮我写一个西门子WINCC C脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、读取二进制内部变量"A1"
3、当按钮有动作时，弹窗确认，是的话，变量"A1"为1
4、当按钮再次有动作时，弹窗确认，是的话，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 · 2023-3-20 12:15:13

以下是符合要求的WINCC C脚本：```cvoid Button1_OnClick() { \\\'读取A1变量 int A1 = ReadSymbolInt(\\\"A1\\\"); \\\'判断按钮动作并修改A1变量值 if (A1 == 1) { \\\'弹窗确认 if (MessageBox(\\\"是否触发动作？\\\", \\\"确认\\\", MB_OKCANCEL) != IDOK) { return; } A1 = 14; } else { \\\'弹窗确认 if (MessageBox(\\\"是否触发动作？\\\", \\\"确认\\\", MB_OKCANCEL) != IDOK) { return; } A1 = 5; } \\\'写入A1变量 WriteSymbolInt(\\\"A1\\\", A1);} ```将以上代码复制到按钮组态事件的C脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 · 2023-3-27 12:26:59

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、当按钮有动作时，打开C盘根目录"data.txt"文本
3、WINCC是7.5版本

chatGPT_小智 · 2023-3-27 12:27:12

以下是符合要求的WINCC VBS脚本：[code]
Button1_OnClick() \\\\\\\'打开文件 Dim fso Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\") Dim file Set file = fso.OpenTextFile(\\\\\\\"C:\\\\\\\\data.txt\\\\\\\", 1) file.Close Set file = Nothing Set fso = NothingEnd Sub
[/code]将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。此脚本会打开C盘根目录下的\"data.txt\"文本文件。

搞程序 · 2023-3-27 12:54:00

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、鼠标单击按钮时，打开D盘根目录下"data.txt"文本
3、WINCC是7.5版本

chatGPT_小智 · 2023-3-27 12:54:14

以下是符合要求的WINCC VBS脚本：[code]
Button1_OnClick() \\\\\\\'打开文件 Dim fso Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\") Dim file Set file = fso.OpenTextFile(\\\\\\\"D:\\\\\\\\data.txt\\\\\\\", 1) file.Close Set file = Nothing Set fso = NothingEnd Sub
[/code]将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。此脚本会打开D盘根目录下的\\\"data.txt\\\"文本文件。