Library (VB.Net / C#) COM --> VBScript WinCC

Hi

I needed a sleep functions but with miliseconds and VBScript language, so I have made a library, if you need it or another functions like this, you can try it.

I have attach other functions from others user questions.

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)  format (HH:mm:ss.fff) ; format (MMMM dd, yyyy) ; format (yyyyMMddHHmmss)
int    : Sleep(int Miliseconds) Return 1 when the time is finished
int    : GetRandom() By defaul 0-100
int    : GetRandomNumber(int MinNumber, int MaxNumber)

Update 15-03-2018:

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)

Update 21-03-2018

string :GetUserGroupLogon(string DataSourceRT, string CurrentUser)

When you define Path, remember double slash, the library is build with C#

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

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

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

If you are interested, you can rate it, If you have an idea and I can do it, you can comment and I will try.

All you have to do, is register the library, copy and paste this to new file and save as *.bat

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm /CODEBASE  C:\Controls\VBScriptLibraryWinCC.dll
pasue

You have to change the path or create the Controls folder and copy here the library, also you can see this video

Regards

Donwload the last version from the last topic

I try to implement a new function if you want to know the User Group of User if you are working with Simatic Logon

I don't try with Active Directory environment, if you try let me know if is working. With WorkGroup work fine, It will take a few seconds, you can see the video.

string : GetUserGroupLogon (string DataSourceRT, string CurrentUser)

Regards

Update: 08-04-2018. New functions

void GetCursorPosition(out int x , out int y)

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

void NormalWinCC()
void MinimizeWinCC()
void MaximizeWinCC()

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

New Functions 12-07-2018:

int PrintHtmlToPdf(String Source, String Path , String msg)

Thanks to WkHtmlToPdf I have created this functions, if you want try it, you need to install WkHtmlToPdf. You can donwload from https://wkhtmltopdf.org/downloads.html

You can convert to pdf a website

Dim Obj , msg , ret
item.Enabled = False
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
HMIRuntime.Trace "Start: " & Obj.GetDateTime() & vbNewline
ret = Obj.PrintHtmlToPdf ("https://wkhtmltopdf.org","C:\\PDF\\wkhtmltopdf.pdf",msg)
If ret = -1 Then
HMIRuntime.Trace "Error: " & msg & vbNewline
End If
HMIRuntime.Trace "Finished: " & Obj.GetDateTime() & vbNewline
item.Enabled = True

 You can convert to pdf a file

Dim Obj , msg , ret
item.Enabled = False
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
HMIRuntime.Trace "Start: " & Obj.GetDateTime() & vbNewline
ret = Obj.PrintHtmlToPdf ("file:///C:/PDF/wkhtmltopdf.htm","C:\\PDF\\wkhtmltopdf2.pdf",msg)
If ret = -1 Then
HMIRuntime.Trace "Error: " & msg & vbNewline
End If
HMIRuntime.Trace "Finished: " & Obj.GetDateTime() & vbNewline
item.Enabled = True

Thanks to HtmlRenderer.PdfSharp I have created this functions, with this you don´t need to install nothing

int GeneratePdf(String Source, String Path , String msg)

With this functions you will able to create a pdf from html code, and you can include css style and image

Dim Obj, pdf , msg , ret
item.Enabled = False
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
HMIRuntime.Trace "Start: " & Obj.GetDateTime() & vbNewline

pdf = " <html> " _
& "<body>" _
& "<h1>My First Heading</h1>" _
& "<p>My first paragraph.</p>" _
& "<p><h1>Hello World</h1>This is html rendered text</p>" _
& " <tablewidth:100%"">" _
& "  <tr>" _
& "   <th>Firstname</th>" _
& "    <th>Lastname</th>" _
& "    <th>Age</th>" _
& "  </tr>" _
& "  <tr>" _
& "    <td>Jill</td>" _
& "    <td>Smith</td>" _
& "    <td>50</td>" _
& "  </tr>" _
& "  <tr>" _
& "    <td>Eve</td>" _
& "    <td>Jackson</td>" _
& "    <td>94</td>" _
& "  </tr>" _
& "</table> " _
& "</body>" _
& "</html> "

ret = Obj.GeneratePdf(pdf , "C:\\PDF\\CodeHTML2PDF.pdf",msg)
If ret = -1 Then
     HMIRuntime.Trace "Error: " & msg & vbNewline
End If
HMIRuntime.Trace "Finished: " & Obj.GetDateTime() & vbNewline
item.Enabled = True

Dim Obj, pdf , msg , ret
item.Enabled = False
Set Obj = CreateObject("VBScriptLibraryWinCC.dll")
HMIRuntime.Trace "Start: " & Obj.GetDateTime() & vbNewline

pdf = "<head><style>.test { background-color: linen;color: maroon;}</style></head>" _
& " <body Class=""test""><p><h1>Hello PLC HMI SCADAS</h1>This is html generated with HtmlRenderer.PdfSharp  and rendered text with css and image.</p>" _
& " <p><img src=""https://plc-hmi-scadas.com/images/header1280.gif"" height=""100%"" width=""100%""></p>" _
& " </body>"

ret = Obj.GeneratePdf(pdf , "C:\\PDF\\CodeHTML2PDF_2.pdf",msg)
If ret = -1 Then
HMIRuntime.Trace "Error: " & msg & vbNewline
End If
HMIRuntime.Trace "Finished: " & Obj.GetDateTime() & vbNewline
item.Enabled = True

New Update 26-07-2018

Update some functions and create a news.

Are you running WinCC with Full Screen and disable windows keys and you need to see taskbar for some reason, you can use ShowTaskbar() and HideTaskbar()

Now you don´t need any parameter to use GetUserGroup() , GetUserGroupLogon()

Dear Mr PHS

after download your .dll files then register its, it works fine

But i also tried create my own .dll files ( using VB.net, Visual Studio 2017, select net framework version 4.0, debug for win 32 bit as well as 64 bit, sign assembly also )  . Register window is done without error or warning 

But after write a small code as : 

dim obj

set obj=createobject("VBnettest.dll") 

and trigger it by press button. i received error as : Activex component cannot create object "VBnettest.dll" 

I think problem inside my dll files . i try several times but not success 

Would you please share how you create your dll files !

Thank you so much !

kiensnow

Dear Mr PHS

after download your .dll files then register its, it works fine

But i also tried create my own .dll files ( using VB.net, Visual Studio 2017, select net framework version 4.0, debug for win 32 bit as well as 64 bit, sign assembly also )  . Register window is done without error or warning 

But after write a small code as : 

dim obj

set obj=createobject("VBnettest.dll") 

and trigger it by press button. i received error as : Activex component cannot create object "VBnettest.dll" 

I think problem inside my dll files . i try several times but not success 

Would you please share how you create your dll files !

Thank you so much !

Hi

I have severals request about the code, I don´t have anything to hide, the true it is very easy view the source code of my dll.

But the subject of this library is share with the comunity and everyone can benefic of this.

If you have some request or add some functions, I will update the library for everyone. This is the main objective.

But,. if you objective is to learnt then I suggest read this where you find the main steps. And If I´m not wrong your library don´t works because you must expose to COM to createObject.

You can do amazing things with WinCC - Libraries with ANSI C - Library with .NET and so on...

Don´t forget rate it if it's worth it :-)

Regards
 

Thank you very much !

There's small mistake , i found and fixed it 

It works now !