wincc-脚本实现跳转浏览器（webux）

automsen

于 2023-01-05 13:26:27 发布

阅读量1k

点赞数

分类专栏： wincc 文章标签： windows

本文链接：https://blog.csdn.net/weixin_38548413/article/details/128561817

版权

wincc 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

该文章描述了一个使用WinCC脚本来实现用户点击后跳转到浏览器的过程。通过创建MSXML2.XMLHTTP对象进行HTTP请求获取数据，然后利用JScript解析响应并结合WScript.Shell对象打开Chrome浏览器进行跳转。此过程涉及了授权令牌的获取和URL参数的构造。

摘要由CSDN通过智能技术生成

wincc-脚本实现跳转浏览器（webux）

文章目录

实现

实现

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)              

'Dim CurrentUserName
'Dim UserName
'Set CurrentUserName = HMIRuntime.Tags("@CurrentUserName")
'
'If CurrentUserName.Read <> "" Then
'   UserName=CurrentUserName.Value
'Else
'   UserName="unknow"
'End If

Dim objHTTP,xmlDOC,strWebserviceURL,strRequest,bOK,xmlStr,result,resultData,sc
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
strWebserviceURL = "https://xxx/reToken"
strRequest=""
objHTTP.Open "GET", strWebserviceURL, False
objHTTP.Send(strRequest)
result =objHTTP.ResponseText

Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
sc.AddCode "var tmp = " & result & ";"
resultData = sc.Eval("tmp." & "data")

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "chrome.exe https://www.baidu.com?a=" + resultData
End Sub