Wincc Scripts

Hi All,

I have developed a script to list the events (VBS or C scripts or direct action)configured in the currently running WinCC Runtime project.

I am sure you will love this as this will be very helpful where WinCC does not support cross referencing within the script on event.

Script is placed @
/tf/WW/en/Posts/74867#top

Regards,
KD...

Hi All,
Usually we spend huge time in locating the screen active on WinCC runtime to edit.

The below script will open the currently running screen on WinCC runtime.

Please follow below steps.
1. Create a button on Main Screen Header which will appear all the time on all the mimic screens.
2. Create VBS event and copy paste the below code.
3. Save and Reactivate the main screen to reflect changes

After clicking the button user needs to click on the screen which is required to be edited, this action will activate the screen, and this script opens the active screen. If user fails to click on any screen within10 secthen the main screen willopen.

Regards,
KD...
_[code]

_{Dim HMIRuntime
Dim MainScreen
Dim ActiveScreen
Set HMIRuntime = CreateObject("CCHMIRUNTIME.HMIRuntime")}

<sub>MainScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL"
ActiveScreen = MainScreen
Dim ABC
ABC = Timer
Do While MainScreen = ActiveScreen And (Timer - ABC) < 10
ActiveScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL"
Loop

'ActiveScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL"

Dim HMIScreen
Dim ProjectPath

Set HMIScreen = CreateObject("grafexe.Application")
HMIScreen.Visible = True
ProjectPath = HMIRuntime.ActiveProject.Path & "\GraCS\"
HMIScreen.Documents.Open(ProjectPath & ActiveScreen)</sub>

_[/code]

KD..

Hi All,
Usually we spend huge time in locating the screen active on WinCC runtime to edit.

The below script will open the currently running screen on WinCC runtime.

Please follow below steps.
1. Create a button on Main Screen Header which will appear all the time on all the mimic screens.
2. Create VBS event and copy paste the below code.
3. Save and Reactivate the main screen to reflect changes

After clicking the button user needs to click on the screen which is required to be edited, this action will activate the screen, and this script opens the active screen. If user fails to click on any screen within10 secthen the main screen willopen.

Regards,
Kuntal Desai
</p><p>_{Dim HMIRuntime Dim MainScreen Dim ActiveScreen Set HMIRuntime = CreateObject("CCHMIRUNTIME.HMIRuntime")}</p><p>_{MainScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL" ActiveScreen = MainScreen Dim ABC ABC = Timer Do While MainScreen = ActiveScreen And (Timer - ABC) < 10 ActiveScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL" Loop 'ActiveScreen = HMIRuntime.ActiveScreen.ObjectName & ".PDL" Dim HMIScreen Dim ProjectPath Set HMIScreen = CreateObject("grafexe.Application") HMIScreen.Visible = True ProjectPath = HMIRuntime.ActiveProject.Path & "\GraCS\" HMIScreen.Documents.Open(ProjectPath & ActiveScreen)}</p><p>

KD..

This one is for VBS.
Thishas been very helpful to me.