11/28/2019 3:55 PM | |
Joined: 10/26/2017 Last visit: 9/3/2021 Posts: 1 Rating: (0) |
Hi ! I have this code for manual test but i need automatic action with timer. The problem is that the button only goes on the screen where the object "alarm control wincc" is. The button is for export (ID 35, ShowExportDialog, F8) Does anyone know if it is possible to put the button on any screen and is associated with the control object? ////////////////////////////////////////// Sub OnClick(Byval Item) Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists("C:\L180_WinccSCADA\L180_HistorialAlarmas.csv")) Then Set MyFile = fso.GetFile("C:\L180_WinccSCADA\L180_HistorialAlarmas.csv") MyFile.Delete End If Dim WScriptShell Set WScriptShell = CreateObject("WScript.Shell.1") Dim objControl Set objControl = HMIRuntime.Screens("@Cuerpo(08-Diagnostico)").ScreenItems("Control2") objControl.Activate WScriptShell.SendKeys "{F8}" End Sub Thanks ! ------------------------------------------------------------------------------------------ |
Last edited by: Jen_Moderator at: 11/29/2019 08:19:43New subject after splitting |
|
Follow us on