投稿
  1. 找知识-找PLC首页
  2. 自动化系统
  3. SIMATIC WinCC

wincc如何做出试用期提示及输入密码界面？

• SIMATIC WinCC

我想在WINCC项目中做一个软件试用期弹出窗口提示，用户输入正确的密码后才可以正常继续使用，但我又不会用VBS脚本，哪位高手可以帮帮我吗？谢谢了。

问题补充：
谢谢CHEN111201,我看了下连接，却还不是我问题的全部啊，哪位有现成的VBS脚本吗？

最佳答案

If zccg.Read  = 0 Then
   If sydq.Read =0 Then
    If djs.Read >0  Then
     If djs.Read <7 Then
      m=MsgBox( "试用期限即将到期，请在 "&dJs.read&" 天内注册！"+Chr(13) & Chr(10)+"现在注册吗？" ,68,"温馨提示" )
     End If
    Else
     m=MsgBox( "系统将在午夜12点停机，请在此之前注册，否则后果自负！"+Chr(13) & Chr(10)+"现在注册吗？" ,68,"温馨提示" )
    End If
    If m=6 Then
     zcm.Write InputBox("请输入系统开发商提供的序列号注册","注册向导")
     If zcm.Read ="ABCD-1234-5678" Then
      MsgBox"序列号已通过验证，注册成功",,"注册成功"
      zccg.Write 1
      sydq.Write 0
     Else
      MsgBox"序列号输入错误，请重启系统注册?",,"注册失败"
     End If
    End If
   Else
    m=MsgBox("使用期已过，请注册！",64,"温馨提示")
    If m=1 Then
     zcm.Write InputBox("请输入系统开发商提供的序列号注册","注册向导")
     If zcm.Read ="ABCD-1234-5678" Then
      MsgBox"序列号已通过验证，注册成功",,"注册成功"
      zccg.Write 1
      sydq.Write 0
     Else
     MsgBox"序列号输入错误，请重启电脑注册?",,"注册失败"
     hmiruntime.stop
     End If
    End If     
   End If
  End If
  时间在PLC里做，WINCC里建立如下变量
  zccg:   注册成功标志 BOOL
  sydq:  使用期限已到标志  BOOL
  djs:     倒计时天数    INT
  zcm:    注册码       STRING

提问者对于答案的评价：
非常感谢

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc271702.html

赞 (1)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
0 0
上一篇 2019年6月11日 上午8:34
下一篇 2019年6月11日 上午8:34

相关推荐