加载中…citect2018r2,使用citectVBA做密码限制的实现方法1
(2023-04-25 11:40:51)
标签：
施耐德plccitectvba联锁加密 |
分类： 施耐德PLC |
现场有一台运行citect的计算机，上面有一个取消联锁的按钮，点击一下就取消了按钮。现在领导要求点击按钮先输入密码，密码正确才取消联锁。测试了一下，如果对密码输入要求不高的话，可以使用下面的citectVBA脚本：
Sub QXLS()
Dim StrPwd
strPwd=Inputbox("请输入解除联锁密码","密码输入")
If strPwd="3390011" Then
LS=0
Else
msgbox "密码错误"
End If
End Sub
按钮的鼠标点击事件中调用这个
VbCallReturn(VbCallRun(vbcallopen("QXLS")))
喜欢
0
赠金笔