回复:这个功能能否实现?

Zaxife

  • 帖子

    2450
  • 精华

    31
  • 被关注

    78

论坛等级:至圣

注册时间:2008-07-24

普通 普通 如何晋级?

发布于 2010-03-16 11:29:09

16楼

咱只会用VBS做。测试了一下,可以实现你的要求。
在访问页面的[事件]-[画面对象]-[其他]-[打开画面]添加下面的VBS动作:

Sub OnOpen()
Dim UserName
Dim PassWord
Dim temp

temp = 0

Do While temp < 3
UserName = InputBox("Login Name","UserName","name?")
If UserName = "" Then Exit Do
PassWord = InputBox( UserNAME & " PassWord","Password","???")
If PassWord = "" Then Exit Do

If (UserName <> "WinCC") Or (PassWord <> "1234") Then
temp = temp +1
MsgBox "Wrong message -_-!! " & vbCrLf & " " & temp ,vbOKOnly,"Next"
Else
MsgBox "Right ^-^" ,vbOKOnly
Exit Sub
End If
Loop
If temp >= 3 Then MsgBox "Wrong More -_-!!!!!!!!!!!!" & vbCrLf & "What are you doing?" ,vbOKOnly,"Oh My God"
HMIRuntime.BaseScreenName = "menu"

End Sub

由于VBS中出现中文会错误,所以,要中文提示的话,建议引用文本对象的text中文文本。
此VBS实现的功能就是:
当打开当前页面时,立刻弹出置顶的登陆用户和密码输入对话框,如果输入正确,弹出正确对话框,确认后保留在当前页面;当输入错误次数超过3次后自动离开当前页面跳转到"Menu"画面。
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32571条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。