发布于 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"画面。