Libreria VBScript WinCC

Estoy creando una Libreria externa en C# para extender las opciones de WinCC y poderlas utilizar en VBScript, otras simplemente para facilitar la labor de código fuente. Actualmente todas las que estan se pueden utilizar tanto en WinCC / WinCC RT Professional (TIA Portal)

Si estas interesado puedes descargar la libreria en el Foro de Siemens, donde ire actualizando las diferentes versiones.

https://support.industry.siemens.com/tf/ww/en/posts/library-vb-net-c-com-vbscript-wincc/187312/?page=0&pageSize=10

 

string :GetUserGroup (string DataSourceRT, string CurrentUser)

string :GetMaxLimitTag (string DataSourceRT, string TagName)

string :GetMaxLimitTag (string DataSourceRT, string TagName)

string :GetDateTime() With Miliseconds

string :GetDateTimeFormat(string format)  (HH:mm:ss.fff) ; (MMMM dd, yyyy) ; (yyyyMMddHHmmss)

int :Sleep(int Miliseconds) Return 1 when the time is finished

int :GetRandom() By defaul 0-100

int :GetRandomNumber(int MinNumber, int MaxNumber)

int :StartProgram(string PathProgram, out string Message)

int :CloseProgram(string Program, out string Message) 'Program = Name of the process

void :Login()

void :Logout()

bool :LoggedInByCard()

void :SilentLogin(string login, string password)

string :GetUserGroupLogon(string DataSourceRT, string CurrentUser)

void :GetCursorPosition(out int x , out int y)

void : NormalWinCC()

void : MinimizeWinCC()

void : MaximizeWinCC()

 

Dim CurrentUser , DatasourceNameRT , Obj , return
Set CurrentUser = HMIRuntime.Tags("@CurrentUser")
Set DatasourceNameRT = HMIRuntime.Tags("@DatasourceNameRT")
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
return = Obj.GetUserGroup(DatasourceNameRT.Read , CurrentUser.Read)
HMIRuntime.Trace "Grupo Usuario: " & return & vbNewline

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
return = Obj.StartProgram("C:\\xxx\\MyExportFile.csv",msg)
If return = -1 Then
HMIRuntime.Trace msg & vbNewline
End If

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
return = Obj.CloseProgram("firefox",msg)
If return = -1 Then
HMIRuntime.Trace msg & vbNewline
End If

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.Login()

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.Logout()

 

Dim Obj , x , y
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.GetCursorPosition x , y
HMIRuntime.Trace "X : " & x & vbNewline
HMIRuntime.Trace "Y : " & y & vbNewline

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.NormalWinCC() 

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.MinimizeWinCC() 

 

Dim Obj
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
Obj.MaximizeWinCC() 

 

08 de Marzo del 2017

"La gratitud en silencio no sirve a nadie". Gladys Bronwyn Stern